Home » Tipps & Tricks » Multimedia » Sound-Wiedergabe » Wave-Datei abspielen

Wave-Datei abspielen

Dies kann man ganz einfach mit dem MediaPlayer machen. Dieser hat nun den Nachteil, dass ersehr groß ist. Man kann aber auch mit einem simplen Befehl ganz einfach Sounddateienabspielen:

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;