home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 3.ddi / VIDEO / PLAYAVI.PRG < prev    next >
Encoding:
Text File  |  1993-08-31  |  404 b   |  13 lines
  1. declare pfunction MCIExecute returning long in dll \windows\system\mmsystem.dll
  2.  
  3. sAVIFile = '*'
  4. do while .not. empty(sAVIFile)
  5.   sAVIFile = dbfmenu('Video File,*.AVI','Select Video File')
  6.   if .not. empty(sAVIFile)
  7.     sString = 'open ' + alltrim(sAVIFile) + ' type AVIVideo alias AVIFile'
  8.     MCIExecute(@sString)
  9.     MCIExecute('play AVIFile')
  10.     MCIExecute('close AVIFile')
  11.   endif
  12. enddo
  13.