Mega Code Archive

 

Categories / Delphi / Multimedia

 

Play a sound file without using tmediaplayer[2]

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.}