Hallo, ich bin mal wieder auf Eure Hilfe angewiesen.
Im Anhang der Source (Delphi 2009) zur einer kleinen Übung von mir:
Es werden alle logischen Laufwerke in einem TreeView dargestellt.
Unter anderem auch verbundene Netzwerk-Laufwerke.
Um den
UNC-Pfad zu ermitteln benutze ich WNetGetUniversalName:
Delphi-Quellcode:
procedure TRemoteDrive.ReadDriveInfo;
var
Buffer: UNIVERSAL_NAME_INFO;
Size : DWORD;
begin
FDeviceType := FILE_DEVICE_NETWORK;
Size := 1024;
try
if WNETGetUniversalName(PWideChar(FDriveLetter), UNIVERSAL_NAME_INFO_LEVEL, @Buffer, Size) = 0 then
FRemotePath := Buffer.lpUniversalName;
except
end;
end;
doch Leider kommt es nach dem verlassen der Procedur zu einer
AV und ich habe keinen Schimmer warum.
Also wer Lust und Laune hat mal den Source zu testen, ich wäre jedenfalls für Tipps dankbar.
VG Alter Mann