Bonjour,

Un exemple de procédure pour jouer un son wav.

Préalablement :
  • Mettre le fichier .wav dans le dossier de l'application ;
  • Mettre MMSystem dans les clauses uses.

Voici le code appliqué au clic d'un bouton :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
 PlaySound('Son.wav',0,SND_ASYNC);
end;