ihr konntet mir zwar auch nicht bei diesem Thema helfen. Trotzdem zeige ich euch noch eine Lösung, nämlich:
procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound(PChar('C:\Datei.wav'),SND_SYNC);
end;
Zusätzlich muss die Unit mmsystem eingebunden werden.
SND_SYNC = Während die Datei abgespielt wird, steht die Anwendung
SND_ASYNC = Die Datei wird unabhängig vom Programm abgespielt.
SND_LOOP = Immer wieder und immer wieder
Diese Procedure sorgt wieder für Ruhe:
procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound(nil,0);
end;