用Delphi設(shè)計循環(huán)播放聲音文件程序

本實例將演示在程序運行過程中如何循環(huán)地播放一個指定的聲音文件。
    首先在程序的uses段中添加MMSYSTEM，然后在窗體的初始化過程中添加以下代碼：
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    SndPlaySound(’c:\RECYCLE.WAV’,SND_ASYNC or SND_LOOP);
    end;
    這樣，在程序運行的初期，程序就會通過SndPlaySound函數(shù)循環(huán)不斷地播放聲音文件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鍵運行程序。在程序運行過程中，程序會不間斷地播放聲音文件。
    通過調(diào)用SndPlaySound函數(shù)，讀者可以在自己的程序中播放聲音文件，當(dāng)然如果指定參數(shù)SND_LOOP，那么就可以實現(xiàn)循環(huán)播放聲音文件了。