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