关于多媒体播放器的问题

Question

我曾经用delphi6做过一个播放器。
请问如何显示该视频文件已经播放了多少时间？
就想超级解霸一样，时时刻刻的显示文件播放的时间位置？
如何得知文件需要播放多少分钟或小时？最好是通用的。

Answer 1

HMSRec = record
             Hours   : byte;
             Minutes : byte;
             Seconds : byte;
             NotUsed : byte;
           end;begin
   .........
   TimeFormat:=tfMilliseconds;
    Thelength := mp1.Length;
    with  HMSRec(TheLength) do
      begin
        Label1.Caption := '文件时间长度：'+IntToStr(thelength div 60000 div 60)+':'+IntToStr(thelength div 60000 mod 60)+':'+IntToStr(thelength div 1000 mod 60);
      end;   //这是片长
在timer里间隔时间设为1秒
edit1.Text :=inttostr(strtoint(edit1.text)+1);//这是播放了的时间

Answer 2

你可以用delphi6自带的，很好用的。

Answer 3

你是用directshow还是tmideaplay做的？