delphi 如何提取视频文件的时长？

RT，delphi 中如何提取视频文件的时长？麻烦各个大哥指点指点！

http://blog.csdn.net/jean852001/article/details/43484785