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

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

    首先在程序的uses段中添加MMSYSTEM 然后在窗体的初始化过程中添加以下代码

    procedure TForm FormCreate(Sender: TObject);    begin    SndPlaySound( c:RECYCLE WAV SND_ASYNC or SND_LOOP);    end;

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

    程序代码如下

    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 TForm FormCreate(Sender: TObject);    begin    SndPlaySound( c:RECYCLE WAV SND_ASYNC or SND_LOOP);    end;    end

    保存文件 然后按F 键运行程序 在程序运行过程中 程序会不间断地播放声音文件