Home » Tipps & Tricks » Multimedia » Audio-CDs » Aktuelle Position einer abspielenden CD erfahren

Aktuelle Position einer abspielenden CD erfahren

Wird eine CD mithilfe des MediaPlayers abgespielt, gibt folgender Code – z.B. in einem Timer platziert – die aktuelle Position aus:

uses mmsystem;

var Track, Min, Sec: Word;
begin
  with MediaPlayer1 do
  begin
    Track:=MCI_TMSF_Track(Position);
    Min:=MCI_TMSF_Minute(Position);
    Sec:=MCI_TMSF_Second(Position);

    Caption:=IntToStr(Track)+':'+IntToStr(Min)+':'+IntToStr(Sec);
  end;
end;