首页 > 其他 > 详细

MmSystem播放Wav格式声音

时间:2014-07-29 20:36:02      阅读:296      评论:0      收藏:0      [点我收藏+]
//MmSystem播放Wav格式声音 
//MmSystem 支持 *.wav声音格式 snd ->SoundRecorder
uses MmSystem; //引用MmSystem

//播放系统声音
{
.Default //这个只要是字符串(‘str‘)就好
MailBeep
SystemExclamation
SystemExit
SystemHand
}

PlaySound (‘SystemExit‘,0, snd_Async);//PChar类型字符串

//播放列表框中的声音
PlaySound(PChar(ListBox1.Items[listbox1.ItemIndex]),0, snd_Async);

//播放自定义的wav格式声音
{
1 将wav的声音文件放在程序目录下即可
PlaySound(‘Hasta.wav‘,0, snd_ASync);//需要把Hasta.wav 文件放在程序目录下


2 打包wav文件到*.res文件中

implementation
{$R *.dfm}

{$R sound.res} //引用资源文件*.RES 这个文件必须自己创建
PlaySound(PChar(‘anuo‘), 0, snd_ASync or snd_Resource);//anuo为*.res里的标识符

}
//停止播放
PlaySound (0,0, 0);

//循环播放
PlaySound (‘SystemExit‘,0, snd_Async or snd_Loop);//PChar类型字符串


//将Wav声音文件打包到程序中(wav格式声音文件)
STP1.建立一个rc文件; {标识符 声音格式 声音文件} {支持中文名称}
    新建一个记事本 输入 click wave "click.wav" 把本文件保存为 *.rc格式的文件;这里我保存为SOUND.RC
    注:声音文件click.wav 和SOUND.RC必须在同一目录下
STP2.将rc文件转换为res文件;
    把delphi目录Bin里的brcc32.exe文件复制到C:\Windows目录下,开始运行:输入 cmd打开命令栏之后输入:brcc32 C:\Users\Administrator\Desktop\SOUND.RC
这样就编译了一个SOUND.RES文件

STP3.在Uses下面引入 MMSystem;
       在implementation下面输入 {$R SOUND.RES}

STP4.使用以下代码播放音乐
    PlaySound(‘click‘, 0, snd_ASync or snd_Resource);//PChar类型字符串




MmSystem播放Wav格式声音,布布扣,bubuko.com

MmSystem播放Wav格式声音

原文:http://www.cnblogs.com/xe2011/p/3875908.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!