Freie Laufwerksbuchstaben ermitteln?

[Duffy]

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