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

这个例子将演示如何在程序运行时循环播放指定的声音文件。

首先在程序的uses部分添加MMSYSTEM，然后在表单的初始化过程中添加以下代码:

程序TForm1。FormCreate(发件人:to object)；
begin
SndPlaySound(' c:\ RECYCLE。WAV '，SND_ASYNC或SND _ LOOP)；
end；

这样，在程序运行的初始阶段，程序会播放声音文件c:\RECYCLE。WAV通过SndPlaySound函数连续播放。

程序代码如下:

unit Unit1

连接

使用

窗口、消息、系统、变量、类、图形、控件、表单，

对话框，MMSYSTEM

类型

TForm1 =类(TForm)

procedure form create(Sender:to object)；

私人的

{私人声明}

公众的

{公开声明}

结束；

定义变量

form 1:t form 1；
实现
{$R *。dfm}

程序TForm1。FormCreate(发件人:to object)；
begin
SndPlaySound(' c:\ RECYCLE。WAV '，SND_ASYNC或SND _ LOOP)；
end；

结束。

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

通过调用SndPlaySound函数，读者可以在自己的程序中播放声音文件。当然，如果指定参数SND_LOOP，可以循环播放声音文件。