Wave-Datei abspielen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;