Hallo Salomon,
die nachfolgende Procedure sollte dir eigentlich helfen zu entstpannen ...
Delphi-Quellcode:
//-----------------------------------------------------------------------//
//#######################################################################//
//## Procedure GetLogicalDriveList: ##//
//#######################################################################//
//## Datum: Änderung: ##//
//## ====== ========= ##//
//## 10.01.2001 Initial Release ##//
//#######################################################################//
procedure GetLogicalDriveList(List: TStrings);
var
Drive: Integer;
Bits: set of 0..25;
begin
List.Clear;
Integer(Bits) := Windows.GetLogicalDrives;
for Drive := 0 to 25 do
begin
if Drive in Bits then
begin
GetDriveType(PChar(Char(Drive + Ord('A')) + ':\'));
List.Add(Char(Drive + Ord('A')));
end;
end;
end;
bye