home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / envelop / envelop.3 / Program / winmm.eto < prev   
Text File  |  1996-07-08  |  1KB  |  43 lines
  1. Type WinMM
  2.  Declare Function sndPlaySoundA Lib "Winmm" (ByVal file as string, ByVal opt as long) as long
  3. ' call with name of wav file or name of registered windows sound
  4.  
  5.  Declare Function mciSendStringA Lib "Winmm" (ByVal cmnd as string, ByVal rtn as string, ByVal rtnsize as long,  ByVal hwin as long) as long
  6.  
  7.  Declare Function mciGetErrorStringA Lib "Winmm" (ByVal err as long, ByVal etxt as string, ByVal etxtsize as long) as long
  8.  
  9.  Const SND_SYNC        = 0  'return after sound played
  10.  Const SND_ASYNC    = 1  'return right away, sound plays async
  11.  Const SND_NODEFAULT    = 2  'return silently if not found
  12.  Const SND_MEMORY    = 4  'file is an in memory image
  13.  Const SND_LOOP        = 8  'combine with async, play loop till next call
  14.  Const SND_NOSTOP    = 16 'return without playing if player busy
  15.  
  16.  Dim result As Long
  17.  Dim resultstr As String
  18.  
  19.  
  20.   Sub ParseError(err as long)
  21.     If err == 0 Then 
  22.       resultstr = "OK"
  23.     Else 
  24.       resultstr = Space(251)
  25.       mciGetErrorStringA(err, resultstr, 250)
  26.     End If
  27.   End Sub
  28.  
  29. ' example usages  
  30. '    result = mciSendStringA("open c:\chicago\media\wndsurf1.avi alias surf", "", 0, 0)
  31. '    ParseError(result)
  32. '    result = mciSendStringA("play surf", "", 0, 0)
  33. '    result = mciSendStringA("stop surf", "", 0, 0)
  34. '    result = mciSendStringA("close surf", "", 0, 0)
  35. ' sndPlaySoundA("ding.wav",0)
  36.  
  37. End Type
  38.  
  39. Begin Code
  40.  WinMM.result = 256
  41.  WinMM.resultstr = space(251)
  42. End Code
  43.