Eine einfache *.wav-Datei abspielen
Dies kann man ganz einfach mit dem MediaPlayer machen. Dieser hat nun den Nachteil, dass er sehr groß ist. Man kann aber auch mit einem simplen Befehl ganz einfach Sounddateien abspielen:
Delphi-Quellcode:
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:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
sndPlaySound(nil,0);
end;
Quelle: DSDT