Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_ALIAS = &H10000 ' Воспроизведение звуков Windows,определенных в WIN.INI или в реестре (напр. SystemStart, Asterisk, и т.д.).
Const SND_ASYNC = &H1 ' Асинхронное воспроизведение.
Const SND_FILENAME = &H20000 ' Запуск указанного файла.
Const SND_LOOP = &H8 ' Циклическое воспроизведение до следующего вызова sndPlaySound lpszSoundName = "". Можно также использовать SND_ASYNC.
Const SND_NODEFAULT = &H2 ' Не запускать звук по умолчанию Windows, если указанный звук не может быть найден.
Const SND_NOSTOP = &H10 ' Не прекращать воспроизведение любого запущенного звука.
Const SND_NOWAIT = &H2000 ' Не ждать,если драйвер занят.
Const SND_SYNC = &H0 ' Синхронное воспроизведение(значение по умолчанию). Ждать, пока звук не закончил играть перед продолжающимся выполнением программы.
Public Function fnPlaySound(sPath As String) As Boolean
fnPlaySound = PlaySound(sPath, ByVal 0&, SND_ASYNC Or SND_NODEFAULT)
End Function
Public Function fnStopPlaySound() As Boolean
PlaySound 0&, 0&, SND_NODEFAULT
End Function