Вобщем есть WAV в ResFile надо ее воспроизвести!
Как звуки воспроизвести я знаю, а вот как из этого ResFile - чето не доходит.
И второй вопрос если я скомпилирую проект в exe, то WAV будет внутри самого exe?
Спасибо за ранее!
Option Explicit
Private Const SND_APPLICATION = &H80
Private Const SND_ALIAS = &H10000
Private Const SND_ALIAS_ID = &H110000
Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Const SND_LOOP = &H8
Private Const SND_MEMORY = &H4
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_PURGE = &H40
Private Const SND_RESOURCE = &H40004
Private Const SND_SYNC = &H0
Private Declare Function PlaySound Lib "WINMM.DLL" Alias "PlaySoundA" (ByRef Sound As Any, _
ByVal hLib As Long, ByVal lngFlag As Long) As Long 'BOOL
Private Sub Form_Load()
Dim DataArray() As Byte
DataArray = LoadResData(1, "WAVE")
Call PlaySound(DataArray(0), 0, SND_MEMORY Or SND_NODEFAULT Or SND_SYNC)
Erase DataArray
End Sub
Сейчас этот форум просматривают: Google-бот, SemrushBot, Yandex-бот и гости: 11