CD zu MP3 konvertieren

[Ultimator]

Delphi-Quellcode:

uses BASS, BASSCD, BASSENC;

.
.
.

var playhandle: hstream;

.
.
.

TForm1.FormCreate(Sender:TObject);
var i: integer;
begin
  Bass_Init(1, 14400, 0, Application.Handle, nil);
   for i := 0 to BASS_CD_GetTracks(0) do //Bei BASS_CD_GetTracks ist die Zahl die Numer des CD-Laufwerks
     CheckListBox1.Items.Add('Track ' + inttostr(i));  //In die CheckListBox kommen die ganzen Lieder
end;

procedure TForm1.ButtonRipClick(Sender: TObject);
begin
  playhandle := BASS_CD_StreamCreate(0, CheckListBox1.ItemIndex, BASS_STREAM_AUTOFREE);
  BASS_StreamPrebuf(playhandle);
  BASS_CD_Door(ComboBox1.ItemIndex, Bass_CD_DOOR_Lock);  //damit niemand das Laufwerk aufmacht
  BASS_Encode_Start(playhandle, PChar('lame.exe - "' + SaveDialo1.Filename + '.mp3"'), 0, nil, 0);
  BASS_StreamPlay(playhandle, false, 0);
end;

Wie man vielleicht erkennt, muss dann noch die LAME.exe im Programmverzeichnis liegen

Is also gar nicht so schwer
Und ich hoff, ich hab nix vergessen