我想在指定的Panel组件上播放AVI动画。
是用API中的mciSendString实现。
//****************
var
Result :LongInt;
begin
Result:=mciSendString('open d:\aa\gsj.avi Alias ccc',nil,0,0);
//*****打开d:\aa\gsj.avi动画,别名ccc
Result:=mciSendString('Window ccc handle '+Form1.Panel1.handle,nil,0,0);
//******让ccc在Form1的Panel1上放映。
//就是这显示错误:什么什么string 和hwnd 矛盾
Result:=mciSendString('play ccc',nil,0,0);
end;
是用API中的mciSendString实现。
//****************
var
Result :LongInt;
begin
Result:=mciSendString('open d:\aa\gsj.avi Alias ccc',nil,0,0);
//*****打开d:\aa\gsj.avi动画,别名ccc
Result:=mciSendString('Window ccc handle '+Form1.Panel1.handle,nil,0,0);
//******让ccc在Form1的Panel1上放映。
//就是这显示错误:什么什么string 和hwnd 矛盾
Result:=mciSendString('play ccc',nil,0,0);
end;
解决方案 »
- Delphi 的 春天要来了,delphi XE2 快要发布了 --李维博客内容
- 关于Delphi7的FastReport控件的问题
- 有谁解过立方方程x3+ax2+bx+c=0吗
- 使用TWebBrowser时,弹出新页面时如何只使用自己的弹出式窗口而不用IE的?
- 简单问题,TClientDataSet用Close以后重新打开还是不刷新
- SetWindowLong为何无作用!!!!!
- InstallShield Developer8.0 的问题
- TTable的过滤问题?很难!
- 招骋软件开发人员--福州地区
- 我有一个变量定义为 myWord:^DOWRD 类型,现在知道myWord指针的址址,如何取出具体的值?
- 错误导入midas.dll是什么原因?该如何解决?(急)
- 疑惑!!!为什么程序会自动变大呢??
不知道能不能得分??
上面问题怎么解决呀??