====== Les Sons dans Lazarus ======
===== MMSystem =====
<code delphi>
uses MMSystem;
...

sndPlaySound('C:\sounds\test.wav',0,snd_Async or snd_NoDefault or Snd_Loop););
</code>
<code delphi>
1. En créant un fichier ressource (monfichier.res).

{$R monfichier.RES} // Ton fichier ressource

Sons1 WAV "Data.wav"
Sons2 RCDATA "bronze.mp3"

Var
dirdir : string;

procedure TFmMain.BplayClick(Sender: TObject);
var
  hres: THandle;
  pres: PChar;
begin
 // cherche le son représentant Data.wav soit sons1
 
  hres := FindResource(hInstance, pchar('Sons1'), 'wav');
  if hRes <> 0 then
 
//si trouvé alors
 
  begin
  hres := LoadResource(hInstance, hres);

 //charge le son
   
  pres := LockResource(hres);
    
 //joue le son en boucle ajouter SND_LOOP
   
  sndPlaySound(pres, SND_SYNC or SND_LOOP or SND_MEMORY);
  UnLockResource(hres); FreeResource(hres);



end;
end;

</code>
====== Sources & Ressources ======
  * [[https://sheepdogguides.com/dt2g.htm]]