Howtoplayan.AVIfileusingAPIandtheMMSYSTEM.DLL..
-------------------------------------------------------------------
Hereshowtoplayan.AVIfileviaAPI
DeclarethisAPI:
DeclareFunctionmciSendString&Lib"MMSYSTEM"(ByValpstrCommand$,
ByVallpstrReturnStrAsAny,ByValwReturnLen,ByValCallBack)
Addthiscodetotheappropriateevent:
DimCmdStr$
DimReturnVal&
Modifypathandfilenameasnecessary
CmdStr$="playG:\VFW_CINE\AK1.AVI"
ReturnVal&=mciSendString(CmdStr$,0&,0,0&)
ToplaytheAVIfullscreenappendtoCmdStr$:
CmdStr$="playG:\VFW_CINE\AK1.AVIfullscreen"->
文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
