Aspi Ansprechen ?

[p0ke]

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