Computer zu einem Netzlaufwerk finden

[Alexander Hofmann]

Kann ich irgendwie feststellen, auf welchem Computer sich ein Netzlaufwerk befindet?
Angenommen M: ist ein Netzlaufwerk z.B.

"\\Computer_A\FreigabeDir"
Ich stelle mir da sowas vor wie
procedure (verzeichnis:string; VAR Computername:String);
Geht sowas?

Gruß Alex

[Andreas Kosch]

Hallo,

das folgende Beispiel ermittelt den gemappten UNC-Pfadname. Im ersten Teil ist der Rechnername enthalten:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
szLW : array[0..7] of Char;
szRemoteName : array[0..99] of Char;
iLength : DWORD;
begin
szLW := 'M:';
iLength := SizeOf(szRemoteName);
WNetGetConnection(szLW, szRemoteName, iLength);
ShowMessage(szRemoteName);
end;
</pre&gt