Hello again, thanks for your answer and "sorry" here is my code. I tried this and it works:
uses MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound('C:\dog.wav',SND_NODEFAULT Or SND_ASYNC);
end;
Now my problem is loading a lrs file, I wrote this code but it doesn't work.
uses MMSystem;
initialization
{$I unit1.lrs}
{$I sounds.lrs}
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('dog', hInstance, SND_RESOURCE or SND_SYNC);
end;
Thank you again.