Tu a plein de choix possible....
tu peux utiliser le Composant TMediaPlayer ou utiliser SND_ASYNC pour cela suis les instructions suivants...
Ajoute -> SYSUTILS <- dans les USES pour pouvoir utiliser les constantes prédéfinies comme SND_ASYNC, ajoutez aussi MMSystem
Utilité des commandes:
SND_ASYNC : Cette commande spécifie à l'application, reprend la main dès que le son à commencé à jouer.
SND_SYNC : Cette commande spécifie à l'application, si vous voulez que l'application attende la fin du son pour continuer à s'exécuter
SND_LOOP : Cette commande spécifie à l'application, pour que le son soit en boucle (en continu... - qu'il se répète); spécifier soit 'SND_LOOP' ou 'SND_ASYNC or SND_LOOP'
Code Exemple:
procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound(PChar('song.wav'),SND_ASYNC);
end;
Note: la commande 'SND_ASYNC' sert seulement a faire jouer des son wav tandis que TMediaPlayer fait tous :)
- MAsterC, bon codage à tous! -