首页 相关文章 利用API播放AVI

利用API播放AVI

声明:
  DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLength
  AsLong,ByValhwndCallbackAsLong)AsLong
  代码:
  DimreturnstringAsString
  FileNameAsString
  returnstring=Space(127)
  FileName="C:A1.avi"
  erg=mciSendString("open"&Chr$(34)&FileName&Chr$(34)&"typeavivideoaliasvideo",returnstring,127,0)
  erg=mciSendString("setvideotimeformatms",returnstring,127,0)
  erg=mciSendString("playvideofrom0",returnstring,127,0)
  '记着关闭!<...[ 查看全文 ]

2016-02-19 标签:

利用API播放AVI的相关文章