Автор: mad_Max. Дата публикации: 03.08.2004
Функция воспроизведения звука из прикрепленного к программе resурса
Здесь надо только указать ID, под которым звук записан в res.
Вшитие звука в программу
Функция воспроизведения звука из прикрепленного к программе resурса
Public Const SND_SYNC = &H0 ’ play synchronously (default)
Public Const SND_MEMORY = &H4 ’ lpszSoundName points to a Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal SoundData As Any, ByVal uFlags As Long) As Long
Public Sub ResPlaySound(ResourceId As Long)
Dim sndBuff As String
sndBuff = StrConv(LoadResData(ResourceId, "WAVE"), vbUnicode)
Call sndPlaySound(sndBuff, SND_SYNC Or SND_MEMORY)
End Sub
Здесь надо только указать ID, под которым звук записан в res.
Комментарии |
| отсутствуют |
Добавление комментария |