'

'

Private Sub Command1_Click()

PlayZvuk App.Path & "\Signal.wav" ' PlayZvuk

End Sub

 

' ProstoZvuk

' windows winmm.dll

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

 

Public Function PlayZvuk(ZvukovFail)

ZvukovFail = Chr(34) & ZvukovFail & Chr(34) '

Call mciSendString("Open " & ZvukovFail & " Alias MM", 0, 0, 0) ' winmm.dll

Call mciSendString("Play MM", 0, 0, 0) '

End Function