Mit folgenden Zeilen kannst du das Format auf ms umstellen:
Delphi-Quellcode:
var
lSetParms : TMCI_Set_Parms;
begin
ZeroMemory(@lSetParms, SizeOf(lSetParms));
lSetParms.dwTimeFormat := Cardinal(MCI_FORMAT_MILLISECONDS);
mciSendCommand(fDevID, MCI_SET, MCI_WAIT or MCI_SET_TIME_FORMAT, Cardinal(@lSetParms));
wobei fDevID das
Handle des geöffneten Gerätes ist (entspricht dem Property
Handle des TMediaplayer).
Vielleicht gibt es beim TMediaplayer auch eine Eigenschaft um das einzustellen. Da ich selbst direkt mit den MCI-Funktionen gearbeitet habe kenne ich mich da nicht so genau aus.