Как при проигрывании музыки с Audio CD показывать сколько прошло минут и секунд?

Вопрос:

Как при проигрывании музыки с Audio CD показывать сколько прошло минут и секунд?

Ответ:

В примере время выводится по таймеру.

Пример:

uses MMSystem;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Trk : Word;
  Min : Word;
  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;