home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / envelop / envelop.5 / Tools / Arsenal / tools / playwav / audio.eto next >
Text File  |  1996-07-08  |  994b  |  31 lines
  1. Type AudioPlayer
  2.  
  3. ' call with name of wav file or name of registered windows sound
  4.  Dim SND_SYNC        As Long 'return after sound played
  5.  Dim SND_ASYNC        As Long 'return right away, sound plays async
  6.  Dim SND_NODEFAULT    As Long 'return silently if not found
  7.  Dim SND_MEMORY        As Long 'file is an in memory image
  8.  Dim SND_LOOP        As Long 'combine with async, play loop till next call
  9.  Dim SND_NOSTOP        As Long 'return without playing if player busy
  10.  Declare Function sndPlaySoundA Lib "Winmm" (ByVal file as string, ByVal opt as long) as long
  11.  
  12.  Function Play(file As String) As Long
  13.    Play = sndPlaySoundA(file, SND_ASYNC Or SND_NODEFAULT)
  14.  End Function
  15.  
  16.  Function PlaySync(file As String) As Long
  17.    Play = sndPlaySoundA(file, SND_SYNC Or SND_NODEFAULT)
  18.  End Function
  19.  
  20. End Type
  21.  
  22. Begin Code
  23.   AudioPlayer.SND_SYNC = 0
  24.   AudioPlayer.SND_ASYNC = 1
  25.   AudioPlayer.SND_NODEFAULT = 2
  26.   AudioPlayer.SND_MEMORY = 4
  27.   AudioPlayer.SND_LOOP = 8
  28.   AudioPlayer.SND_NOSTOP = 16
  29.  
  30. End Code
  31.