PlaySound-Wiedergabe unterbrechen

[chkdsk]

Hallo!

Habe in einem Spiel die Hintergrundmusik wie folgt realisiert:

PlaySound(PChar('music'), hInstance, snd_Loop or snd_ASync or snd_Resource);


Bloß wie kann ich das ganze jetzt wieder unterbrechen?

[demonscave]

procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound(nil,0);
end;

Das sollte gehen...

[Dani]

Hi,

ein kurzer Blick ins Platform SDK verrät:

Zitat:

BOOL PlaySound(
LPCSTR pszSound,
HMODULE hmod,
DWORD fdwSound
);

fdwSound
Flags for playing the sound. The following values are defined.

...

SND_PURGE

Sounds are to be stopped for the calling task. If pszSound is not NULL, all instances of the specified sound are stopped. If pszSound is NULL, all sounds that are playing on behalf of the calling task are stopped.
You must also specify the instance handle to stop SND_RESOURCE events.