至顶网›软件频道 ›基础软件›用Delphi设计循环播放声音文件程序

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

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

本实例将演示在程序运行过程中如何循环地播放一个指定的声音文件

作者：佚名来源：blog 2007年10月31日

本实例将演示在程序运行过程中如何循环地播放一个指定的声音文件。

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

procedure TForm1.FormCreate(Sender: TObject);
begin
　SndPlaySound(’c:\RECYCLE.WAV’,SND_ASYNC or SND_LOOP);
end;

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

　　程序代码如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, MMSYSTEM;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

　{ Private declarations }

public

　{ Public declarations }

end;

var

　Form1: TForm1;
　implementation
　{$R *.dfm}

　procedure TForm1.FormCreate(Sender: TObject);
begin
　SndPlaySound(’c:\RECYCLE.WAV’,SND_ASYNC or SND_LOOP);
end;

end.

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

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

查看本文来源

VC设计可自动循环播放的MP3播放器

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

业界热点: