Советы по Delphi

         

TMEDIAPLAYER: Определение 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 в список используемых модулей в Unit1
Данный код выводит текущий трэк и время.
}

[001984]



Содержание раздела