Aspi Ansprechen ?

[Predator]

hi Jungs,

also ich will einen kleinen Kopierschutzscanner programmieren,
der soll jetzt anzeigen wieviel
Sektoren die CD hat, ob Überlänge vorhanden ist u.s.w.

Sowas sollte mit Aspi kein Problem sein, für mich schon,
denn ich hab mit Aspi noch nie gearbeitet.

Meine Frage.

Ich habe mir bei torry die ASPI Library for Delphi v.1.0 runtergeladen
und komme damit nicht ganz zurecht.
Kann mir jemand sagen wie ich die Komponente Ordnungsgemäß benutze und
wie ich da in einer ComboBox die Laufwerke anzeigen lassen kann z.B.

ClonyXXL zeig an:

LiteOn LTR xxxx 0:1

o.ä.

Ich will hauptsächlich das er mir anzeigt wieviele Sektoren die CD hat und wie das Laufwerk heißt, also
dass man auswählen kann welches Laufwerk getestet werden soll.

Ich würde mich über einen Code oder OpenSource proggi sehr freuen.

Also bis dann :-D

[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. :mrgreen:

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