'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"
...[ 查看全文 ]