Laufwerks-Dialog

[Duffy]

Hallo Hansa,
das reicht Dir?

Delphi-Quellcode:

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
Claus