| syypzm_1004
35909
|
2008/10/25 18:10:20 |
| 真的很方便，谢谢！ |
| hihisky
29902
|
2007/6/10 7:10:06 |
| 的确很不错啊，谢谢啦 |
| zhang321
26183
|
2006/9/19 13:49:11 |
| 我想做一个播放列表，然后循环播放没、不知道如何做，哪位能给思路。。。 |
| arsser2
26089
|
2006/9/15 13:19:53 |
| delphi7生成的tlb有大问题,很多接口函数调用的时候报错,所以,这个文件还是很有价值的. |
| arsser2
26043
|
2006/9/13 14:35:34 |
| 很好 |
| ruralboy
25955
|
2006/9/9 10:28:01 |
很简单的,你在 Uses 那里引用单元 u_WMP.pas,然后就可以开始写代码了.
在全局变量那里加一个控件指针: Player: TWMP;
然后在 FormCreate 过程建立一个实例然后就可以使用了:
var
ok: boolean;
begin
Player := TWMP.Create(ok);
end;
在 ButtonClick 过程写 Player.OpenPlay('一个文件路径');
电影播放窗口,可以在 Form 上放一个 TPanel ,然后在建立 Player 实例之后写:
Player.Display := Panel1; |
| wumingwuhao
25920
|
2006/9/7 23:24:30 |
| 可不可以发个示例啊 |
| jmwl77
25812
|
2006/9/2 0:26:10 |
| 非常感谢 |
|
