如何确定MediaPlayer播放的文件能播放多长时间,显示为'分,秒',如'03:15.057' (30分)

如何确定MediaPlayer播放的文件能播放多长时间,显示为'分,秒',如'03:15.057'

不要多次提问，谢谢合作

to taozhiyu
把我前面的给删了，谢谢，要么把分加过来好吗，我初来没分

删除后，分数自然就给你呢，。你没有损失任何分数。放心！

谢了，老哥最好能帮我解决下问题，

你干嘛用呀，用directshow吧，它非常容易得到的!

从书上得来的，可以用的。
//显示播放或录制的时间
procedure tform1.shownowtimeorframe;
var
nowtime,alltime:LongInt;
minutes,seconds:integer;
begin

//if showformat=timeformat then

// begin

with mediaplayer1do

begin

timeformat:=tfmilliseconds;
nowtime:=position;
alltime:=length;
minutes:=nowtime div 60000;
seconds:=(nowtime-60000*minutes) div 1000;
label1.Caption:=inttostr(minutes)+'分'+inttostr(seconds)+'秒';
minutes:=alltime div 60000;
seconds:=(alltime-60000*minutes) div 1000;
label2.Caption:=inttostr(minutes)+'分'+inttostr(seconds)+'秒';
end;

end;