Laufwerksangaben aus Listbox verwenden

[Paulman]

Hab's jetzt so gelöst:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
for I := 0 to 25 do
    if DriveExists(I) then
    ListBox1.Items.AddObject(Chr(I + Ord('A')) +':\ (' + DriveType(I) + ')', TObject(I));
end;


procedure TForm1.ListBox1Click(Sender: TObject);
var
i: integer;
begin
  i := ListBox1.ItemIndex;
  ShowMessage(Format('%s, Index: %d',[ListBox1.Items.Strings[i], Integer(ListBox1.Items.Objects[i])]));
end;

So wollte ich das, supi.
Danke und viele Grüße
PM