Manchmal sind Netzlaufwerke auch nicht verbunden.
Siehe Screenshot im Anhang.
Ich hätte hier eine Funktion, die das Laufwerk wieder verbindet.
Delphi-Quellcode:
function ReconnectDrive(const path:string):DWORD;
var
libhandle : HMODULE;
func : TWNetRestoreConnectionW;
driveW : WideString;
begin
Result := 0;
driveW := ExtractFileDrive(path);
if driveW='' then
Exit;
libhandle := LoadLibrary('mpr.dll');
if libhandle=0 then
Exit;
try
func := TWNetRestoreConnectionW(GetProcAddress(libhandle, 'WNetRestoreConnectionW'));
if Assigned(func) then
Result := func(0, @driveW[1]);
finally
FreeLibrary(libhandle);
end;
end;
Bitte Rückinfo hier im Forum, ob das aus deinem Dienst heraus funktioniert.