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;
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;
本文转自 OldHawk 博客园博客，原文链接：http://www.cnblogs.com/taobataoma/archive/2007/08/20/862484.html，如需转载请自行联系原作者
