如何用API及MMSYSTEM.DLL播放AVI文件
人生本是一个不断学习的过程,在这个过程中,图老师就是你们的好帮手,下面分享的如何用API及MMSYSTEM.DLL播放AVI文件懂设计的网友们快点来了解吧!
'Howtoplayan.AVIfileusingAPIandtheMMSYSTEM.DLL..
'-------------------------------------------------------------------
'Here'showtoplayan.AVIfileviaAPI
'DeclarethisAPI:
DeclareFunctionmciSendString&Lib"MMSYSTEM"(ByValpstrCommand$,
ByVallpstrReturnStrAsAny,ByValwReturnLen,ByValCallBack)
'Addthiscodetotheappropriateevent:
DimCmdStr$
DimReturnVal&
'Modifypathandfilenameasnecessary
CmdStr$="playG:VFW_CINEAK1.AVI"
ReturnVal&=mciSendString(CmdStr$,0&,0,0&)
'ToplaytheAVI'fullscreen'appendtoCmdStr$:
CmdStr$="playG:VFW_CINEAK1.AVIfullscreen"->