Netzlaufwerk verbunden, aber nicht bereit

[paritycheck]

Zitat von berens:

Beispiel (\\pc1\frei\1.txt existiert!):

Wenn obiges funtioniert würde ich als Workaround versuchen das Laufwerk in seinen Netzwerkpfad aufzulösen.

Delphi-Quellcode:

function GetNetworkDriveUNC(Driveletter: string): String;
var
  len: cardinal;
  buff: PChar;
begin
  len:= 0;
  if WNetGetConnection(PChar(Driveletter), Buff, len) = ERROR_MORE_DATA then begin
     GetMem(buff, len);
     if WNetGetConnection(PChar(Driveletter), Buff, len) = NO_ERROR then begin
        SetString(Result, buff, len);
     end;
     FreeMem(buff);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(getnetworkdriveunc('z:'));
end;

Ansonsten bin ich grade auch mit meinem Latein am Ende