【 tulaoshi.com - 编程语言 】
'Author:GordonF.MacLeod
'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"->