TDirectory.GetLogicalDrives

[Willie1]

Hallo Friedrich,
ich habe deine Quelltexte zunächst unverändert übernommen. DDSnippets.pas habe ich nie geändert.

Delphi-Quellcode:

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

Ich habe es jetzt so geschrieben.
Beim ersten Durchlauf funktioniert es, bei weiteren gibt es eine Fehlermeldung, probiere es bitte selbst aus. (du brauchst es ja nur zu kopieren)
Gruß Willie.