shokwave hat geschrieben:Wenn es dir nur um einen Sound geht und nicht mehrere gleichzeitig, dann reicht schon:Code: Alles auswählen
uses mmsystem,..
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('bang_3.wav', 0, SND_FILENAME or SND_ASYNC);
end.
Funktioniert nur unter Windows und die Datei muss eine Wave-datei sein.
Edit: Freie Sounds gibts z.B. unter http://www.pacdv.com/sounds/index.html
erklär mir bitte den playsound befehl mit snd ,0 usw.