minutos y segundos con Tmediaplayer

[Pepetrueno]

Hola a Todos
¿Me podrian decir como se hace para extraer de Tmediaplayer.timeformat los minutos y segundo para mostrarlo en un Tlabel , de un reproductor de cd ?.
desde ya muchisimas gracias a todos


Pepetrueno

[madriles]

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

[Pepetrueno]

muchisimas gracias por la informacion, me resulto y anda barbaro
pepetrueno