关于windows mediaplayer 的问题,那位富翁能够帮我解决!!!在线等候(100分)

小弟我使用windows mediaplayer进行视频播放,如何取得视频播放的总时间?

我也想知道，希望高手回复！

/此函数执行在播放过程中进行动态的时间播放显示功能
void __fastcall TSuperPlayerform::Timer3Timer(TObject *Sender)
{
long int remaintime;
MediaPlayer1->TimeFormat=tfMilliseconds;
//转换时间显示模式
lLength=MediaPlayer1->Length;
vform->Caption=ExtractFileName(MediaPlayer1->FileName);
lPosition=MediaPlayer1->Position;
remaintime=lLength-lPosition;
LabelTime->Caption=IntToStr(lLength/(1000*60))+":"+IntToStr((lLength%(1000*60)/1000)/10)+IntToStr((lLength%(1000*60)/1000)%10);
if(!N6->Checked) //显示播放时间
{
LabelHour->Caption=IntToStr((lPosition/(1000*3600))/10)+IntToStr((lPosition/(1000*3600))%10);
LabelMinute->Caption=IntToStr((lPosition/(1000*60))/10)+((lPosition/(1000*60))%10);
Labelse
conds->Caption=IntToStr((lPosition%(1000*60)/1000)/10)+IntToStr((lPosition%(1000*60)/1000)%10);
}
else
//显示剩余播放时间
{
LabelHour->Caption=IntToStr((remaintime/(1000*3600))/10)+IntToStr((remaintime/(1000*3600))%10);
LabelMinute->Caption=IntToStr((remaintime/(1000*60))/10)+((remaintime/(1000*60))%10);
Labelse
conds->Caption=IntToStr((remaintime%(1000*60)/1000)/10)+IntToStr((remaintime%(1000*60)/1000)%10);
}
}

这是C++BUILDER的代码，你把它翻译成DEPHI即可

DFWM能不能请教一下这样一个问题：
如果两台电脑A,B，在A的电脑上播放B中的流媒体文件应该怎么设计呢？？我是初学者，想不到怎么弄啊，望大侠赐教！！：）

我花了几天的时间，在SDK里找到的，希望对你有所帮助[8D] 返回的时间是秒。

label1.caption:= '当前进度：'+inttostr(trunc(Move1.controls.currentPosition));
label2.caption:= '影片总长：'+inttostr(trunc(Move1.currentMedia.duration));