1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

function GetNetworkDriveConnection(const Laufwerk,Verzeichnis: String): boolean;
var
  lpnLength: Cardinal;
  FuncResult: DWORD;
  lpLocalName: PChar;
  lpRemoteName: PChar;
  RemoteName: String;
begin
  lpLocalName:=AllocMem(MAX_PATH+1);
  lpRemoteName:=AllocMem(MAX_PATH+1);
  StrPCopy(lpLocalName,Laufwerk);
  lpnLength:=MAX_PATH;
  FuncResult:=WNetGetConnection(lpLocalName,lpRemoteName,lpnLength);
  RemoteName:=lpRemoteName;
  if (FuncResult=0) AND (Verzeichnis=RemoteName)
    then
      Result:=true
    else
      Result:=false;
  FreeMem(lpLocalName);
  FreeMem(lpRemotename);
end;					

1:
2:
3:
4:
5:

if (FuncResult=0) AND (Verzeichnis=RemoteName)
    then
      Result:=true
    else
      Result:=false;					

1:

  Result:=((FuncResult=0) AND (Verzeichnis=RemoteName));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

//Laufwerk = steht für den lokalen Laufwerksbuchstaben des Netzlaufwerks
//Verzeichnis = steht für den entfernten Pfad auf den zugegriffen werden soll
function GetNetworkDriveConnection(const Laufwerk,Verzeichnis: String): boolean;
var
  LRes: TNetResource;
  LInfo: TNetConnectInfoStruct;
begin
  ZeroMemory(@LRes,SizeOf(LRes));
  LRes.lpLocalName:=PChar(Laufwerk);
  LRes.lpRemoteName:=PChar(Verzeichnis);
  LInfo.cbStructure:=SizeOf(LInfo);
  Result:=MultinetGetConnectionPerformance(@LRes,@LInfo)=NO_ERROR;
end;