Twin Basic

SoundBuffer = StrConv(LoadResData(ResourceId, "CUSTOM"), vbUnicode)

' Проигрывание WAV-файла из ресурсов с помощью VB6 (не поддерживает числовые имена ресурсов)
Public Function LoadResWaveVB(id As String, Optional section As String = "WAVE") As Boolean
    Dim RetValue As Long
    
    WaveData() = LoadResData(id, section)
    RetValue = sndPlaySound(WaveData(0), SND_ASYNC Or SND_MEMORY)
    
    If RetValue <> 0 Then
        LoadResWaveVB = True
    End If
End Function

BeginPlaySound (101), SND_SYNC

Public Sub BeginPlaySound(ByVal ResourceId As Integer, Optional Flag As Long = SND_ASYNC)
    Dim SoundBuffer As String
    Dim Ret As Variant
        'The returned string is converted to Unicode
        SoundBuffer = StrConv(LoadResData(ResourceId, "CUSTOM"), vbUnicode)
    Ret = sndPlaySound(SoundBuffer, Flag Or SND_NODEFAULT Or SND_MEMORY)
    DoEvents
End Sub

Option Explicit
'//////////////////////////////////////////////////////////////
'// Модуль для проигрывания WAV-файла из ресурсов            //
'// Copyright (c) 25.07.2021, 30.11.2021 by Владислав Пешков //
'// e-mail: vladislavpeshkov@yandex.ru                       //
'// Версия 2.2                                               //
'//////////////////////////////////////////////////////////////
 
' Декларации API...
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function LoadLibraryEx Lib "kernel32" Alias "LoadLibraryExA" (ByVal lpLibFileName As String, ByVal hFile As Long, ByVal dwFlags As Long) As Long
Private Declare Function FindResource Lib "kernel32" Alias "FindResourceA" (ByVal hInstance As Long, ByVal lpName As String, ByVal lpType As String) As Long
Private Declare Function LoadResource Lib "kernel32" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long
Private Declare Function LockResource Lib "kernel32" (ByVal hResData As Long) As Long
Private Declare Function SizeofResource Lib "kernel32" (ByVal hInstance As Long, ByVal hResInfo As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function FreeResource Lib "kernel32" (ByVal hResData As Long) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
 
' Константы
Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4
Private Const RT_RCDATA = 10&
Private Const LOAD_LIBRARY_AS_DATAFILE = &H2
 
Dim WaveData() As Byte
 
Private Function wAppPath() As String
    If Right$(App.Path, 1) = "\" Then
        wAppPath = Mid(App.Path, 1, Len(App.Path) - 1)
    Else
        wAppPath = App.Path
    End If
End Function
 
' Проигрывание WAV-файла из ресурсов с помощью VB6 (не поддерживает числовые имена ресурсов)
Public Function LoadResWaveVB(id As String, Optional section As String = "WAVE") As Boolean
    Dim RetValue As Long
    
    WaveData() = LoadResData(id, section)
    RetValue = sndPlaySound(WaveData(0), SND_ASYNC Or SND_MEMORY)
    
    If RetValue <> 0 Then
        LoadResWaveVB = True
    End If
End Function
 
' Проигрывание WAV-файла из ресурсов с помощью API
Public Function LoadResWaveAPI(id As Variant, Optional section As String, Optional FileName As String) As Long
    Dim hModule As Long, hResource As Long, hGlobal As Long, arrSize As Long
    Dim lpData As Long
    
    If FileName = vbNullString Then
        FileName = wAppPath + "\" + App.EXEName + ".exe"
    End If
    
    hModule = GetModuleHandle(FileName)
    
    If hModule = 0 Then
        ' As datafile: 32bit can load a x64 PE file for resources, x64 bit can load 32bit also..
        hModule = LoadLibraryEx(FileName, 0&, LOAD_LIBRARY_AS_DATAFILE)
        
        If hModule = 0 Then
            Exit Function
        End If
    End If
    
    If section <> vbNullString Then
        hResource = FindResource(hModule, IIf(VarType(id) <> vbString, "#", vbNullString) & id, section)
    Else
        hResource = FindResource(hModule, IIf(VarType(id) <> vbString, "#", vbNullString) & id, "WAV")
        If hResource = 0 Then hResource = FindResource(hModule, IIf(VarType(id) <> vbString, "#", vbNullString) & id, "WAVE")
    End If
    
    If hResource > 0 Then
        hGlobal = LoadResource(hModule, hResource)
        lpData = LockResource(hGlobal)
        arrSize = SizeofResource(hModule, hResource)
        
        ReDim WaveData(arrSize - 1)
        CopyMemory WaveData(0), ByVal lpData, arrSize
        
        FreeResource hGlobal
        FreeLibrary hModule ' Освобождаем EXE-ресурс из памяти
        
        If sndPlaySound(WaveData(0), SND_ASYNC Or SND_MEMORY) > 0 Then
            LoadResWaveAPI = arrSize
        End If
    End If
End Function
 
' Освободить память
Public Sub ClearArrayWave()
    Erase WaveData
End Sub