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

本文整理自网络，侵删。

 delphi 播放声音 采用 异步方式，比较流畅//声明: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参数指定了WAVE文件名。 
SND_LOOP 重复播放声音，必须与SND_ASYNC标志一块使用。 
SND_MEMORY 播放载入到内存中的声音，此时pszSound是指向声音数据的指针。 
SND_NODEFAULT 不播放缺省声音，若无此标志，则PlaySound在没找到声音时会播放缺省声音。 
SND_NOSTOP PlaySound不打断原来的声音播出并立即返回FALSE。 
SND_NOWAIT 如果驱动程序正忙则函数就不播放声音并立即返回。 
SND_PURGE 停止所有与调用任务有关的声音。若参数pszSound为NULL，就停止所有的声音，否则，停止pszSound指定的声音。 
SND_RESOURCE pszSound参数是WAVE资源的标识符，这时要用到hmod参数。 
SND_SYNC 同步播放声音，在播放完后PlaySound函数才返回。=========================================================//举例:unit Unit1;
interface
uses  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. 

相关阅读 >>

Delphi版内存共享

Delphi xe新语法/新功能

Delphi侦测条码枪方式

Delphi tfilestream和tmemorystream分别读取、创建、合并文件

Delphi xe4 for ios 谨慎处理字符串

Delphi在64位系统下写注册表注意事项

Delphi下spcomm串口编程

Delphi分享pos函数。(比fastpos还要快)

Delphi中获取guid的函数

Delphi 制作资源文件并释放运行

更多相关阅读请进入《Delphi》频道 >>