WNetAddConnection2 schlägt nach Fehlversuch immer fehl

[JonnyGuitar]

Moin zusammen,

ich verbinde mich mit folgender Funktion mit einem Netzlaufwerk.

Delphi-Quellcode:

function Connect(Drive: string; Folder: string;
  Username: string; Password: string; RestoreAtLogon: Boolean): HRESULT;
var
  NetResource: TNetResource;
  dwFlags: DWORD;
begin
  with NetResource do
  begin
    dwType := RESOURCETYPE_DISK;
    lpLocalName := PChar(Drive);
    lpRemoteName := PChar(Folder);
    lpProvider := nil;
  end;

  if (RestoreAtLogon) then
    dwFlags := CONNECT_UPDATE_PROFILE
  else
    dwFlags := 0;

  Result := WNetAddConnection2(NetResource, PChar(Password),
    PChar(Username), dwFlags);
end;

Gebe ich die richtigen URL zum Server und die richtigen Zugangsdaten an
so funktioniert das Verbinden einwandfrei.

Habe ich mich aber z.B. bei der ServerURL vertan so schlägt die Funktion
mit dem Fehler 67 fehl. Nach einer Korrektur der URL schlägt die Funktion
trotzdem immer weiter fehl. Erst wenn ich das Programm beendet und neu
gestartet habe geht das mit den richtigen Daten.

Woran liegt das? Muss ich vor WNetAddConnection2 nochwas aufrufen damit er
einen neuen Versuch starten kann?


Gruss Jonny