uses
MMSystem;
procedure TForm1.Button1.Click;
begin
PlaySound('c:\Doggie.wav', 0, SND_FILENAME + SND_ASYNC);
end;
{
Different modes:
Verschiedene modi:
SND_ASYNC : Start playing, and don't wait to return
Sound wird im Hintergrund abgespielt.
SND_SYNC : Start playing, and wait for the sound to finish
Das Programm fährt erst dann fort, wenn der
Sound fertig abgespielt worden ist. }
// SND_LOOP:
PlaySound('BELLS.WAV', 0, SND_LOOP + SND_ASYNC);
{Keep looping the sound until another sound is played or
PlaySound(nil, 0, 0) is called. }
{Der Sound läuft in einer Schleife so lange, bis
PlaySound(nil, 0, 0) kommt oder eine neue Datei abgespielt wird.}