' No Device carte Son (pour savoir si elle existe)
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
' Version mémoire
Private Declare Function sndPlaySoundmem Lib "winmm.dll" Alias "PlaySoundA" ( _
                                    ByVal lpszName As Long, _
                                    ByVal hModule As Long, _
                                    ByVal dwFlags As Long) As Long
Private Const SND_SYNC      As Long = &H0        ' Attend que le son soit joué pour revenir
Private Const SND_ASYNC     As Long = &H1       ' Démarre le son et reviens
Private Const SND_NODEFAULT As Long = &H2   ' Si problème, n'émettra pas de bip
Private Const SND_MEMORY    As Long = &H4      ' Le son est en mémoire
Private Const SND_LOOP      As Long = &H8        ' Joue en boucle (arrêt = sndPlaySound(Null, SND_SYNC)
Private Const SND_NOSTOP    As Long = &H10     ' N'interrompt pas le son en cours
Private Const SND_NOWAIT    As Long = &H2000   ' N'attend pas après le driver si occupé

Public Sub JoueSonMémoire()

    ' Joue un son pour attirer l'attention (depuis ressource)
    
    Dim bCarteSon As Boolean
    Dim sSonMessage() As Byte
    Dim Ret As Boolean
    
    On Error Resume Next
    
    ' Test s'il existe une carte son
    bCarteSon = False
    If waveOutGetNumDevs <> 0 Then bCarteSon = True
    ' Définit le fichier son
    sSonMessage = LoadResData(4013, "SON.MESSAGE")
    
    ' Joue le son
    If bCarteSon Then Ret = sndPlaySoundmem(VarPtr(sSonMessage(0)), _
                                            0, _
                                            SND_NOWAIT Or SND_NODEFAULT Or SND_MEMORY Or SND_ASYNC)

End Sub

Uses MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
Var ResName : PChar;
    p       : Pointer;
    h       : THandle;
begin
  ResName := 'Tada';
  Try
    H := LoadResource(hInstance, FindResource(hInstance, ResName, 'WAV'));
    P := LockResource(H);
    playSound(p, 0, SND_ASYNC Or SND_MEMORY);
  Finally
    UnLockResource(H);
  End;
end;