Alle Sounds stoppen

XoomIt · Hält's aus hier Beiträge: 3

Moin,
in meinem Programm läuft eine Hintergrundmusik ( siehe Programmier Tip "http://www.swissdelphicenter.ch/de/showcode.php?id=1643" ) und parallel dazu andere Töne. Ich suche nach einem Befehl / einer Möglichkeit alle Töne verstummen zu lassen.
Bei der normalen PlaySound Funktion kann man sich zur Not behelfen, indem man einen "tonlosen" Sound abspielt, bei der "SendMCICommand"-Prozedur ( siehe Tip ) geht das nicht, da ein Sound durch abspielen eines anderen nicht stoppt.
Gibt es da eine möglichst einfache Lösung ( sowas wie KillAllSounds *gg* )
Danke schonmal und bis denn
XoomIt

Moderiert von tommie-lie: URL-Tag hinzugefügt

FeG · Verfasst: So 14.09.03 20:39

Hi,

ähh, ohne mich genauer damit befasst zu haben, wie wär's mit dem, was auf SwissDelphiCenter steht?
SendMCICommand('close waveaudio'); ???

MfG,
FeG

XoomIt · Hält's aus hier Beiträge: 3

Nein, funktioniert nicht. Hatte ich schon probiert und mich auch gewundert warum es nicht geht.
Danke trotzdem, und wenn noch wer was weiss, bitte ...
MfG
XoomIt

kasi · Beiträge: 37 Win XP D5 Ent

Versuch es mal in dieser Art

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button3Click(Sender: TObject);
begin 
  SendMCICommand('open C:\data\zwitscher\feldspatz.wav type waveaudio alias spatz');
  SendMCICommand('play spatz');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  SendMCICommand('open C:\data\zwitscher\Flussseeschwalbe.wav type waveaudio alias schwalbe');
  SendMCICommand('play schwalbe');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  SendMCICommand('close schwalbe');
  SendMCICommand('close spatz');
end;

KASI

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme