Bonjour,
Je cherche à jouer un son en cliquant sur un bouton via la commande Playsound tout en ayant déjà en fond une musique. Cela, j'y arrive très bien.
Mon soucis est que lors de l'exécution du son en cliquant sur le bouton, ça arrête la musique de fond...
Y aurait-il par hasard un moyen de ne pas arréter cette musique de fond tout en jouant la 2ème ?
Voici la partie de monde code:
J'ai essayé en jouant avec les SND_x (SND_ASYNC, SND_LOOP or SND_ASYNC, SND_NOSTOP or SND_ASYNC et SND_SYNC) mais ça n'a pas l'air d'être ça, ou alors il en existe d'autres ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string); begin if not(PlaySound('wav\Theme For A Strange World.wav', handle,SND_LOOP or SND_ASYNC)) then showmessage('Fichier non trouvé'); end; procedure TForm1.CreditClick(Sender: TObject); begin if not(PlaySound('wav\Cri.wav', handle,SND_ASYNC)) then showmessage('Fichier non trouvé'); end;
Partager