Discussion :

[Chrispi]

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;

[Jipété]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mettre le fichier .wav dans le dossier de l'application ;
Mettre MMSystem dans les clauses uses.

Merci de préciser DANS LE TITRE "Windows only"...

[Chrispi]

Bonjour Jipété,

Merci de préciser DANS LE TITRE "Windows only"...

C'est fait.