Как при проигрывании музыки с Audio CD показывать сколько прошло минут и секунд
Как при проигрывании музыки с 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;
