Mega Code Archive
Playing a wav file without TMediaPlayer
<![CDATA[
Title: Playing a wav file without TMediaPlayer
Question: How can I play a WAV file without TMediaPlayer in Delphi apps?
Answer:
As you know ,to play a WAV sound, you can use a TMediaPlayer object.
This article shows that how can playing a wav file without TMediaplayer.
--------
declared in the mmsystem unit
........
function PlayWav(const FileName: string): Boolean;
begin
Result := PlaySound(PChar(FileName), 0, SND_ASYNC);
end;
procedure StopWav;
var
buffer: array[0..2] of char;
begin
buffer[0] := #0;
PlaySound(Buffer, 0, SND_PURGE);
end;
-------------------------------
//Example:
procedure TForm1.Button1Click(Sender: TObject);
begin
PlayWav('c:\windows\media\start.wav');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
StopWav;
end;
]]>