hola
lo primero es colocar la clausula MMSystem en el uses del form
y en el evento on timer poner lo siguiente
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;
pero ten en cuenta que esto solo sirve en caso de cd de musica.
si utilizas wav midi o mp3 no te sirve
un saludo
|