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