Einzelnen Beitrag anzeigen

ThoPos

Registriert seit: 30. Jun 2004
Ort: Köln
67 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#3

Re: Alle MountPoints auslesen

  Alt 25. Mär 2010, 17:36
Hello Remko,

thanks for the informations. It works fine:

Delphi-Quellcode:
procedure GetVolumes(Vol:TStrings);
var Res : integer;
    Buf : array [0..MAX_PATH] of Char;
begin
 Vol.Clear;
 Res := FindFirstVolume(Buf,SizeOf(Buf));
 repeat
  Vol.Add(StrPas(Buf));
 until (not FindNextVolume(Res,Buf,SizeOf(Buf)));
 FindVolumeClose(Res);
end;
Do you know a function like GetDriveType, whitch I could use for unmounted volumes?

Gruß aus Köln
Thomas
Thomas
  Mit Zitat antworten Zitat