Как определить текущую позицию CD

Тема в разделе "Delphi", создана пользователем WinHack, 28 ноя 2016.

  1. WinHack
    Вот простой способ следить за текущей позицией CD: создать таймер и поместить этот код в событие OnTimer

    Код:
    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;
    Примечание: Добавьте MMSystem в раздел uses модуля. Результат выполнения кода - отображение текущего трека и времени.