Discussion :

[Yyukk]

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:

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;

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 ?

[Lung]

Si tu trouves, ça m'intéresse aussi.
Moi, pour y arriver, j'ai été obliger d'utiliser deux exe séparés, ou d'utiliser un TMediaPlayer.

[Droïde Système7]

Peut-être un peu de lecture pour éclairer :
http://www.developpez.net/forums/d25...e/#post1645539

@+