显示媒体时间

var
  Minute : byte;

with MyMediaPlayer do
  case TimeFormat of
    tfHMS : Minutes := MCI_HMS_Minute(Length);
    tfMSF : Minutes := MCI_MSF_Minute(Length);
  {etc etc}
  end;