Mega Code Archive
Determine which track the current CD is on
<![CDATA[
Title: determine which track the current CD is on?
// This will show current track and time.
// Zeigt den aktuellen CD-Track und Zeit an.
uses
MMSystem;
procedure TForm1.Timer1Timer(Sender: TObject);
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;
]]>