Карта сайтаСсылкиКонтакты

Хостинг


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

PDF Печать
Статьи

Вот простой способ следить за текущей позицией 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 модуля. Результат выполнения кода - отображение текущего трека и времени.


 

Комментарии   

 
0 #1 homeschooling 09.08.2014 13:40
hello there and thank you for your information – I have certainly picked up something new from right here.

I did however expertise several technical points using this website, as I experienced to reload the website many times previous to
I could get it to load properly. I had been wondering if your web host is
OK? Not that I'm complaining, but slow loading instances times will sometimes affect your placement in google
and could damage your high quality score if ads
and marketing with Adwords. Well I am adding this RSS
to my e-mail and could look out for a lot more of
your respective interesting content. Ensure that you update this again very soon.
Цитировать
 

Добавить комментарий


Защитный код
Обновить