Delphi设计循环播放声音文件程序

本实例将演示在程序运行过程中如何循环地播放一个指定的声音文件。
　　首先在程序的uses段中添加MMSYSTEM，然后在窗体的初始化过程中添加以下代码：

　　procedure TForm1.FormCreate(Sender: TObject);
begin
　SndPlaySound('c:\RECYCLE.WAV',SND_ASYNC or SND_LOOP);
end;

　　这样，在程序运行的初期，程序就会通过SndPlaySound函数循环不断地播放声音文件c:\RECYCLE.WAV。