How to determine which track the current CD is on

Problem/Question/Abstract:

How to determine which track the current CD is on

Answer:

Here's an easy way to do it: create a timer and put this code in the OnTimer event:


var
  Trk, Min, Sec: Word;
begin
  with MediaPlayer1 do
  begin
    Trk := MCI_TMSF_TRACK(Position);
    Min := MCI_TMSF_MINUTE(Position);
    Sec := MCI_TMSF_SECOND(Position);
    Label1.Caption := Format('%.2d', [Trk]);
    Label2.Caption := Format('%.2d:%.2d', [Min, Sec]);
  end;
end;


Add MMSystem to the uses clause in Unit1. This will show current track and time.