Как воспроизвести звуковой файл *.WAV?
Создайте новый модуль и объявите в декларациях одну АПИ-шку:
Public Declare Function sndPlaySound Lib "winmm.dll"
Alias "sndPlaySoundA" (ByVal lpszSoundName As String,
ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1
Const SND_MEMORY = &H4
Const SND_ASYNC = &H1
Const SND_MEMORY = &H4
Воспроизводим звук:
PlaySound(App.Path & "\ERROR.WAV", SND_ASYNC Or SND_NODEFAULT
Or SND_MEMORY Or SND_NOSTOP)
Оригинальная статья Влада Рубцова. https://vladikcomper.scanf.su/