Mega Code Archive
Displaying seconds, minutes, tracks of an avi
<![CDATA[
Question:
How can I display the real time track selection and current
play time of an Audio CD track?
Answer:
The following example demonstrates displaying the current track
and play time of an AudioCD, updating the values every second by
utilizing a timer event.
Example:
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;
]]>