mciSendStringA API
AviPath = "C:\\WINDOWS\\clock.avi"
dllcall("winmm.dll","Long","mciSendStringA","char *","open " & AviPath & " alias avi parent " & 控件.获得句柄("图片框0") & " style child","char *",null,"Long",0,"Long",0)
// 打开 AVI 显示在 Picture
dllcall("winmm.dll","Long","mciSendStringA","char *","close avi","char *",null,"Long",0,"Long",0) // 关闭 AVI
dllcall("winmm.dll","Long","mciSendStringA","char *","play avi","char *",null,"Long",0,"Long",0) // 播放\继续 AVI
dllcall("winmm.dll","Long","mciSendStringA","char *","pause avi","char *",null,"Long",0,"Long",0) // 暂停 AVI
dllcall("winmm.dll","Long","mciSendStringA","char *","stop avi","char *",null,"Long",0,"Long",0) // 停止 AVI
建议每次打开一个AVI的时候 先调用 关闭AVI的命令。
|