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.