用Delphi設計循環播放聲音文件程序

本實例將演示在程序運行過程中如何循環地播放一個指定的聲音文件。

首先在程序的uses段中添加MMSYSTEM，然後在窗體的初始化過程中添加以下代碼：

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

這樣，在程序運行的初期，程序就會通過SndPlaySound函數循環不斷地播放聲音文件c:\RECYCLE.WAV。

程序代碼如下：

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MMSYSTEM;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
　{ Private declarations }
public
　{ Public declarations }
end;
var
　Form1: TForm1;
　implementation
　{$R *.dfm}
　procedure TForm1.FormCreate(Sender: TObject);
begin
　SndPlaySound(’c:\RECYCLE.WAV’,SND_ASYNC or SND_LOOP);
end;
end.

保存文件，然後按F9鍵運行程序。在程序運行過程中，程序會不間斷地播放聲音文件。

通過調用SndPlaySound函數，讀者可以在自己的程序中播放聲音文件，當然如果指定參數SND_LOOP，那麼就可以實現循環播放聲音文件了。