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

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

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

    procedure TFormFormCreate(Sender: TObject);
    begin
    SndPlaySound(c:\RECYCLEWAVSND_ASYNC or SND_LOOP);
    end;

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

    程序代碼如下

    unit Unit;
    interface
    uses
    Windows Messages SysUtils Variants Classes Graphics Controls Forms
    Dialogs MMSYSTEM;
    type
    TForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    var
    Form: TForm;
    implementation
    {$R *dfm}
    procedure TFormFormCreate(Sender: TObject);
    begin
    SndPlaySound(c:\RECYCLEWAVSND_ASYNC or SND_LOOP);
    end;
    end

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

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

From:http://tw.wingwit.com/Article/program/Delphi/201311/24722.html