procedure TForm1.Button1Click(Sender: TObject);
begin
  MediaPlayer1.TimeFormat := tfFrames;
  ShowMessage('Number of frames = ' + 
    IntToStr(MediaPlayer1.Length));
  MediaPlayer1.TimeFormat := tfMilliseconds;
  ShowMessage('Number of milliseconds = ' +
              IntToStr(MediaPlayer1.Length));
end;

最新文章

1. AngularJS 学习之路（1）
2. 实现简易而强大的游戏AI——FSM，有限状态机
3. Understanding Linux /proc/cpuinfo
4. 深入剖析jsonp跨域原理
5. jsp页面之间传参用el表达式获取
6. uva----11729 Commando war (突击战争)
7. HDU2079选课时间(母函数)
8. 让Mac OS X中的PHP支持GD
9. ios 加密
10. [物理学与PDEs]第5章第3节 守恒定律, 应力张量
11. 洛谷P3966 [TJOI2013]单词(AC自动机)
12. css和HTML布局小技巧
13. Flask蓝图
14. aspectj 表达式 execution切点函数
15. 自己理解Java中的lambda
16. C#使用MapReduce实现对分片数据的分组
17. PostgreSQL 之 yum安装 postgis 插件
18. Kubernetes - Deploy Guestbook example on Kubernetes
19. Python3 小工具-MAC泛洪
20. 解决_CRT_SECURE_NO_WARNINGS 警告

热门文章

1. drbd脑裂问题处理
2. Angular 4 表单校验2
3. golang kafka client
4. serialize unserialize
5. 关于 eclipse startexplorer插件 快速打开文件夹
6. RabbitMQ-1 Helloword
7. 小峰servlet/jsp（1）
8. C++中reinterpret_cast、const_cast、static_cast、dynamic_cast的作用与区别
9. python接口自动化20-requests获取响应时间(elapsed)与超时（timeout）
10. 杂项：GIT （分布式版本控制系统）