| 用Delphi设计循环播放声音文件程序 |
|
|
|
作者：佚名 文章来源：不详 点击数： 更新时间：2006-12-1 17:14:09  |
本实例将演示在程序运行过程中如何循环地播放一个指定的声音文件。
首先在程序的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，那么就可以实现循环播放声音文件了。
|
| 文章录入：bolang 责任编辑：bolang |
|
上一篇文章： Delphi编程禁止用户关闭操作系统
下一篇文章： Delphi数据库应用程序中常见错误 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
