Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода
Автор: mad_Max. Дата публикации: 03.08.2004

Вшитие звука в прогу

Функция воспроизведения звука из прикрепленного к проге resурса

CODE NOW!
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

Комментарии

отсутствуют

Добавление комментария


Ваше имя (на форуме):

Ваш пароль (на форуме):

Комментарии могут добавлять только пользователи,
зарегистрированные на форуме данного сайта. Если Вы не
зарегистрированы, то сначала зарегистрируйтесь тут

Комментарий:





Главная     Программы     Статьи     Разное     Форум     Контакты