CD-Informationen abrufen

[DelphiUser7]

Ich lade den Track über einen Button, der mit folgender Routine versehen ist:

Delphi-Quellcode:

with OpenDialog2 do begin
    Filter := 'cda-Files(*.cda)|*.cda';
  end;
  if OpenDialog2.Execute then
 mediaplayer2.FileName := OpenDialog2.FileName;
 mediaplayer2.Open;
 mediaplayer2.play; {für das direkte Abspielen des Tracks};

Zum Abspielen des Tracks verwende ich folgende Routine:

Delphi-Quellcode:

procedure TForm2.Play1Click(Sender: TObject); {Play1 entspricht dem Button 'Play'}
begin
 cdaudiolist.Items.Count;
 mediaplayer2.play;
 Timer1.Enabled := True;

end;

War das ausführlich genug erklärt.
Ich hoffe, ihr könnt mir jetzt weiterhelfen.

Gruss
DelphiUser7

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]