Ich möchte herausfinden, ob ein bestimmter Laufwerksbuchstabe mit einer bestimmten Netzwerkfreigabe verbunden ist.

Laut MSDN kann man dazu WNetGetConnection verwenden.

markieren

Delphi-Quellcode:

DWORD WNetGetConnection(
  __in LPCTSTR lpLocalName,
  __out LPTSTR lpRemoteName,
  __inout LPDWORD lpnLength
);

Mein Code sieht nun so aus, aber er liefert keinen szDeviceName zurück... woran könnte es liegen?

Hinweis: Das Laufwerk DATAPATHCONST ist als q definiert und gibt es, ich bin mit dem Netzwerk verbunden,
und der entsprechende Server ist auch eingeschaltet und verfügbar

zusammenfalten · markieren

Delphi-Quellcode:

var
  szDeviceName : string ;
  cchBuff : cardinal;
  dwResult : dword;

begin
        szDeviceName := '';
        dwResult := WNetGetConnection(DATAPATHCONST+':', pchar(szDeviceName), cchBuff);

        datalog(inttostr(dwResult)); // Ausgabe in Logfenster, es wird 234 ausgegeben
        datalog(szDeviceName); // Ausgabe in Logfenster, momentan leer
end;

Hallo andreasm82, anbei Sample.

zusammenfalten · markieren

Delphi-Quellcode:

function GetVolume(const DriveChar: Char): string;
const
  MaxVolSize = 260;
var
  Path : array [0..3] of Char;
  NU, VolSize : DWord;
  Vol : PChar;
begin
  Path[0] := DriveChar;
  Path[1] := ':';
  Path[2] := #0;
  VolSize := MaxVolSize;
  GetMem(Vol, MaxVolSize);
  Vol[0] := #0;
  Result := '';
  try
    if WNetGetConnection(Path, Vol, VolSize) = WN_SUCCESS then
      Result := StrPas(Vol)
    else begin
      if GetVolumeInformation(PChar(DriveChar + ':\'),
        Vol, MAX_PATH, nil, NU, NU, nil, 0) then
        Result := Vol;
      Result := Format('[%s]',[Result]);
    end;
  finally
    FreeMem(Vol, MaxVolSize);
  end;
end;

lg. Astat

Super, genial. Das funktioniert! Danke

Woher haste diesen Sample-Code?

Zitat von andreasm82:

Woher haste diesen Sample-Code?

Selbst geschrieben? Es soll noch Programmierer geben, die selber Code schreiben können.