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

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