Функция воспроизведения звука из прикрепленного к проге 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
Комментарии
отсутствуют
Добавление комментария
:: Последние обновления ::
04.09.2011 Долгожданный релиз VB Decompiler. Масса улучшений декомпиляции Native Code. Значительно расширенна и обновлена справочная система на русском и английском языках.
20.12.2010 DotFix Software поздравляет наших клиентов и посетителей сайта с наступающим Новым Годом и рождеством! Желаем приятно провести праздники и успехов в новом году!
28.11.2010 Выпущена новая версия защиты DotFix NiceProtect. Основные изменения коснулись обфускатора Delphi программ. Теперь имеется полная поддержка Tab и Page контролов на формах, что обеспечивает максимальную совместимость обфускации с Delphi XE программами.
21.10.2010 Обновлен декомпилятор Visual Basic программ до версии 8.1. Декомпиляция P-Code программ становится все более идеальной, также проделана большая работа по улучшению анализа Native Code и .NET приложений.
16.09.2009 Полностью обновлен движок сайта! Теперь все ссылки имеют читаемый понятный вид, разного рода глюки на страницах убраны. И теперь сайт полноценно работает на второй версии нашего движка.