Title: How to play a sound file without using TMediaPlayer
uses
MMSystem;
procedure TForm1.Button1.Click;
begin
PlaySound('c:\Doggie.wav', 0, SND_FILENAME + SND_ASYNC);
end;
{
Different modes:
SND_ASYNC : Start playing, and don't wait to return
SND_SYNC : Start playing, and wait for the sound to finish
// 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. }