'Author:GordonF.MacLeod 'Howtoplayan.AVIfileusingAPIandtheMMSYSTEM.DLL.. '------------------------------------------------------------------- 'Here'showtoplayan.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&)
'ToplaytheAVI'fullscreen'appendtoCmdStr$:
CmdStr$="playG:\VFW_CINE\AK1.AVIfullscreen"->
|