delphi 播放声音 采用 异步方式,比较流畅

delphi 播放声音采用异步方式，比较流畅

delphi 播放声音采用异步方式，比较流畅

作者:webfly 日期:2011-01-10

字体大小: 小中大

//声明:

sndPlaySound(

lpszSoundName: PChar; {声音文件}

uFlags: UINT{播放选项}

): BOOL;//uFlags 参数可选值:SND_SYNC = 0; {同步播放, 程序须等到播放完毕才向下执行}SND_ASYNC = 1; {异步播放, 在函数返回之后开始播放, 不影响程序继续执

行}SND_NODEFAULT = 2; {声音文件缺失时, 函数自动返回不播放默认声音}SND_MEMORY = 4; {播放内存中的声音, 譬如资源文件中的声音}SND_LOOP = 8; {循环播放, 需要和SND_ASYNC 组合使用}SND_NOSTOP = 16;{如果当前正在播放声音, 立即返回False}SND_APPLICATION 用应用程序指定的关联来播放声音。SND_ALIAS pszSound 参数指定了注册表或WIN.INI中的系统事件的别名。

SND_ALIAS_ID pszSound参数指定了预定义的声音标识符。SND_ASYNC 用异步方式播放声音，PlaySound函数在开始播放后立即返回。SND_FILENAME pszSound参数指定了WA VE文件名。SND_LOOP 重复播放声音，必须与

SND_ASYNC标志一块使用。SND_MEMORY 播放载入到内存中的声音，此时pszSound是指向声音数据的指针。SND_NODEFAULT 不播放缺省声音，若无此标志，则PlaySound在没找到声音时会播放缺省声音。SND_NOSTOP PlaySound不打断原来的声音播出并立即返回FALSE。SND_NOWAIT 如果驱动程序正忙则函数就不播放声音并立即返回。SND_PURGE 停止所有与调用任务有关的声音。若参数pszSound为NULL，就停止所有的声音，否则，停止pszSound指定的声音。SND_RESOURCE pszSound参数是WA VE资源的标识符，这时要用到hmod参数。SND_SYNC 同步播放声音，在播放完后PlaySound函数才返回。

============================================== ===========//举例:

unit Unit1;interfaceuses

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

Dialogs, StdCtrls;type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

end;var

Form1: TForm1;implementation{$R *.dfm}uses MMSystem; {sndPlaySound 声明在该单元}//同步播放

procedure TForm1.Button1Click(Sender: TObject); var s:String; begin s =ExtractFilePath(paramstr(0))+trim('wav\声音文

件.wav');//播放当前程序wav文件夹下声音文件sndPlaySound(PChar(s), SND_SYNC);

end;

//异步播放

procedure TForm1.Button2Click(Sender: TObject); var s:String begin s =ExtractFilePath(paramstr(0))+trim('wav\声音文件.wav');//播放当前程序wav文件夹下声音文件sndPlaySound(PChar(s), SND_ASYNC);end; //反复播放procedure TForm1.Button3Click(Sender: TObject); var s:String; begin s =ExtractFilePath(paramstr(0))+trim('wav\声音文件.wav');//播放当前程序wav文件夹下声音文件

sndPlaySound(PChar(s), SND_LOOP or SND_ASYNC); sndPlaySound(nil, 0); //停止发音end;end.