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.