Vielleicht hilft dir das weiter:
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var i : integer;
begin
with fDrives do
for i := 0 to Count-1 do
ComboBox1.Items.Add(ScsiDeviceIDtoStr(DeviceID[i]) + ' '
+ ProductID[i] + ' ('
+ VendorID[i] + ' = '
+ Vendor[i] + ')');
if ComboBox1.Items.Count > 0
then begin
ComboBox1.ItemIndex := 0;
ComboBox1Change(ComboBox1);
end else ComboBox1.Enabled := False;
end;
Kleiner Tip: Da liegen auch Demo Sources bei.
Eigentlich interessierte mich das ja nich, aber ich hab mir den Kram bei torry mal geholt. Erwarte aber nich das ich mir auch noch die Komponenten installiere um das life zu testen
Naja, ich hoffe dann mal mein Post ist nich ganz überflüssig.
Gruss
p0ke