Playing WAVs RES files

[Serge]

Not exactly:

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const FLAGS = SND_ASYNC And SND_NODEFAULT


Public Sub PlayWavResource(pintResourceID As Integer)
    Dim bytArr() As Byte
    Dim intFFN As Integer
    Dim strPath As String
    bytArr = LoadResData(pintResourceID, "CUSTOM")
    Call sndPlaySound(StrConv(bytArr, vbUnicode), FLAGS)
End Sub

------------------

Serge

Software Developer
[email protected]
ICQ#: 51055819