Сообщество Чайников

Вопрос

Если положить несколько *.WAV'ов в файл ресурсов, то как их потом можно проиграть (если вообще можно)?

Ответ

Да очень просто.

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_ASYNC = &H1
Public Const SND_MEMORY = &H4


Private sWav As String
sWav = StrConv(LoadResData(101, "SOUND"), vbUnicode)
sndPlaySound sWav, SND_ASYNC Or SND_MEMORY

Vovan-VE