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
