Hier mal die gesamte Procedur:
Delphi-Quellcode:
procedure TForm1.LameCoder1EndProcess(Sender: TObject);
begin
ProgressBar1.Position:=0;
DeleteFile(Memo1.Text); //Das ist die zu rippende Datei
Label12.Caption:='Track erfolgreich gerippt';
Label15.Caption:=IntToStr(StrToInt(Label15.Caption) + StrToInt(Label18.Caption));
listbox1.ItemIndex:=StrToInt(Label15.Caption);
if Listbox1.ItemIndex <> -1 then begin //Hier soll geprüft werden,
//ob das Listenende erreicht wurde. Wenn nicht, dann Timer auf True
//und ButtonClick.
Listbox1.Items[ListBox1.Items.Count -1];
Label13.Caption:='Track '+InttoSTR(Listbox1.ItemIndex + 1);
Timer2.Enabled:=True;
Button4Click(nil);
end;
end;
Button4 Event:
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var ini: TIniFile;
begin
CDRip.RipTrack(Edit1.Text+'\'+Label13.Caption+'.wav',seltrack,drivenum,Application);
//Edit1 beinhaltet den Zielpfad.
Timer2.Enabled:=True;
ini:=TIniFile.Create('C:\3\ripphat.ini');
try
Ini.WriteString('ripphat', '01', Edit1.Text);
finally
Ini.Free;
end;
end;