TDirectory.GetLogicalDrives

[FriedrichAT]

Hallo Willie!
Habe etwas in meinem "Fundus" gefunden...

Delphi-Quellcode:

uses DDsnippets;

procedure TForm1.Button1Click(Sender: TObject);
var SL: TStrings;
begin
  SL:= TStringList.Create;
  try
    DriveDisplayNames(SL);
    ComboBox1.Items.Assign(SL);
    ComboBox1.ItemIndex:= 0;
  finally
    SL.Free;
  end;
end;

Hoffe es hilft!!!