Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Мультимедия / Как при проигрывании музыки с 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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru