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