本实例将演示在程序运行过程中如何循环地播放一个指定的声音文件。
首先在程序的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,那么就可以实现循环播放声音文件了。