~~~~~~~~~~~~~~~~~~~~~~~~~
uses MMSystem;
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;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» TMemo printing
« Week number calculating
