【 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"->