用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那么就可以实现循环播放声音文件了