怎样循环播放一段WAV声音？

Question

怎样循环播放一段WAV声音？谢谢！

Answer 1

...
 MediaPlayer1.FileName:='Demo.wav';
 MediaPlayer1.Open; 
 MediaPlayer1.Notify:=True;
 MediaPlayer1.Play;
...procedure TForm1.MediaPlayer1OnNotify(...);
begin
 If MediaPlayer1.Position=MediaPlayer1.Length then
 begin
  MediaPlayer1.Rewind;
  MediaPlayer1.Play;
 end;
end;

Answer 2

还不够好。。
  MediaPlayer1.Play;
，，，，，procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if MediaPlayer1.Mode=mpStopped then
  begin
。。
  MediaPlayer1.Play;

  end;
end;  

Answer 3

可不可以不用控件？用PlaySound可以实现吗？用其它Api函数可以吗？

Answer 4

底层的音频函数
waveoutopen 等

Answer 5

uses mmsystem;playsound('c:\virus.wav',handle,snd_loop or SND_ASYNC);