Server ermitteln

[Gesine Kuhlmann]

Hallo,

Wer hat eine Idee, wie man den Servernamen ermitteln kann, der zu einem feigegebenen Laufwerk gehört ??

Danke
Gesine

[Andreas Kosch]

Hallo,

das folgende Beispiel liefert zu jedem gemappten Laufwerksbuchstaben den UNC-Pfadnamen zurück:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
sDrive : String;
sNetPath : String;
dwMaxLen : DWord;
begin
dwMaxLen := MAX_PATH;
ListBox1.Items.Clear;
SetLength(sNetPath, dwMaxLen);
// Laufwerke A bis Z durchprobieren
for i := 0 to 25 do
begin
sDrive := Format('%s:',[Chr(65 + i)]);
WNetGetConnection(PChar(sDrive), PChar(sNetPath), dwMaxLen);
ListBox1.Items.Add(Format('Laufwerk %s = %s',[sDrive, sNetPath]));
end;
end;
</pre>
Das Ergebnis könnte zum Beispiel so aussehen, wobei der Rechnername vor dem Freigabename steht: <br>
<i>Laufwerk S: = \\SOLO9150\Daten</i&gt