WinAPI: sndPlaySound - 播放 wav 文件
2008-02-08 11:16
405 查看
//声明: 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} //举例: 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 声明在该单元} const s = 'C:\WINDOWS\Media\Windows XP 启动.wav'; //同步播放 procedure TForm1.Button1Click(Sender: TObject); begin sndPlaySound(s, SND_SYNC); Beep; {播放完毕才会执行这句} end; //异步播放 procedure TForm1.Button2Click(Sender: TObject); begin sndPlaySound(s, SND_ASYNC); Beep; {马上会执行这句} end; //反复播放 procedure TForm1.Button3Click(Sender: TObject); begin sndPlaySound(s, SND_LOOP or SND_ASYNC); end; end. //sndPlaySound 也可以用来播放资源或内存中的声音文件, 参加示例:
/article/4586503.html
相关文章推荐
- WinAPI: sndPlaySound - 播放 wav 文件
- WinAPI: sndPlaySound - 播放 wav 文件
- WinAPI: sndPlaySound - 播放 wav 文件
- 关于.wav文件无法用playsound播放的问题
- PlaySound播放一个WAV文件
- linux下编程实现wav文件播放注意的小问题
- 使用DirectX播放wav声音文件
- ubuntu下播放wav视频和mp3音频文件
- 基于Linux ALSA音频驱动的wav文件解析及播放程序
- 如何播放 WAV 文件?
- 用 Qt 的 QAudioOutput 类播放 WAV 音频文件
- 兼容IE和chrome的.wav音频文件在线播放
- 利用AudioQueue播放音频文件(mp3,aac,caf,wav等)
- MessageBeep sndPlaySound PlaySound 音频播放
- MTK播放wav文件
- C# 播放和暂停播放wav文件
- 基于Linux ALSA音频驱动的wav文件解析及播放程序
- iphone利用AudioQueue播放音频文件(mp3,aac,caf,wav等)
- windows下使用waveout函数族播放wav文件
- 基于Linux ALSA音频驱动的wav文件解析及播放程序 2012