home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 3.ddi / VIDEO / PLAYWAV.PRG < prev    next >
Encoding:
Text File  |  1993-08-31  |  425 b   |  12 lines
  1. declare pfunction sndPlaySound returning integer in dll \windows\mmsystem.dll
  2.  
  3. @ 20,0 say center('You must have a sound driver, such as SPEAKER.DRV' ,79) 
  4. @ 21,0 say center('or a sound card, installed to play .WAV files',79)
  5.  
  6. sSoundFile = '*'
  7. do while .not. empty(sSoundFile)
  8.   sSoundFile = dbfmenu('Sound Files,*.WAV','Select a WAV File')
  9.   if .not. empty(sSoundFile)
  10.     sndPlaySound(@sSoundFile,9)
  11.   endif
  12. enddo