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

PDF Печать

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

  Trk, Min, Sec: Word;
  with MediaPlayer1 do
    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]);

Примечание: Добавьте 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.

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

Защитный код