TechTIC prog:lazarus:cas:sons
http://wiki.techtic.pro/
2026-05-12T20:36:14+0200TechTIC
http://wiki.techtic.pro/
http://wiki.techtic.pro/lib/exe/fetch.php?media=favicon.icotext/html2023-05-24T12:26:50+0200Anonymous (anonymous@undisclosed.example.com)Les Sons dans Lazarus
http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:sons:sons&rev=1684924010&do=diff
Les Sons dans Lazarus
MMSystem
uses MMSystem;
...
sndPlaySound('C:\sounds\test.wav',0,snd_Async or snd_NoDefault or Snd_Loop););
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'), 'w…