Aus Mapping Servernamen ermitteln

[ringli]

Delphi-Quellcode:

function NetDriveQuery (_locDrive : String) : String;
var
  pLocName : PChar;
  pShareName : PChar;
  FuncResult : DWORD;
  BufLength : Cardinal;
begin
  // Speicher für die Strings allozieren!
  pLocName   := StrAlloc(255);
  pShareName := StrAlloc(255);
  // String in PString kopieren
  StrPCopy (pLocName, _locDrive);
  BufLength := 255;
  FuncResult := WNetGetConnection(pLocName,pShareName,BufLength);
  if FuncResult <> NO_ERROR then
    Result := pLocName
  else
    Result := pShareName;
  // aufräumen!
  StrDispose (pShareName);
  StrDispose (pLocName);
end;

Die Funktion habe ich glaube ich mal hier in der DP gefunden, bin mir aber nicht mehr sicher...

Damit bekommst du zumindest schon mal raus ob es sich um ein gemapptes Netzlaufwerk handelt oder nicht.