PlaySound yöntemi ile çalan Wav dosyasını nasıl durdururuz?

[NewMember]

Arkadaşlar PlaySound yöntemi ile bir wav dosyasını çaldırıyorum ancak durdurmak için ne yapmalızyız?

Kod: Tümünü seç

procedure Tfrmana.MuzikCal;
var a:pchar;
begin
a:=pchar(ExtractFilePath(Application.ExeName)+'Beeth5th.wav');
try
PlaySound(a, 0, SND_FILENAME + SND_ASYNC);
except
end;
end;

Teşekkürler.

[Hakan Can]

nil kullanarak:

Kod: Tümünü seç

PlaySound(nil, 0, 0);

İyi çalışmalar.

[NewMember]

Teşekkür ederim.