用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,可以循环播放声音文件。
位律师回复
0条评论