Aktuelle Position einer abspielenden CD erfahren |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Wird eine CD mithilfe des MediaPlayers abgespielt, gibt folgender Code - z.B. in einem Timer platziert - die aktuelle Position aus:
uses mmsystem;
var Track, Min, Sec: Word;
begin
with MediaPlayer1 do
begin
Track:=MCI_TMSF_Track(Position);
Min:=MCI_TMSF_Minute(Position);
Sec:=MCI_TMSF_Second(Position);
Caption:=IntToStr(Track)+':'+IntToStr(Min)+':'+IntToStr(Sec);
end;
end;