delphi之声音资源(*.res)的编译方法

菜鸟编程 十五楼的鸟儿 1344浏览 0评论
声音文件为wav格式
第一步:用记事本建立一个rc文件.
例如:my.rc,内容如下:
sound wave music.wav
其中sound为资源名称,是以后使用时要调用到的名称,wave为资源类型,music.wav为一个已存在的wav文件名.
第二步:编译这个文件.
cmd下进入delphi的bin目录
>BRCC32 my.rc
BRCC32.exe在.../borland/delphi7/bin/目录下,
编译后生成一个资源文件my.res
第三步:加到程序中去.
在{$R *.res}后加上{$R SOUND.RES}
最后怎样调用这个资源呢?看:
[code=delphi]
uses mmsystem;

var FindHandle, ResHandle: THandle;
ResPtr: Pointer;
begin
FindHandle:=FindResource(HInstance, 'mymusic', 'wave');//找到这个资源的句柄.
if FindHandle<>0 then begin
ResHandle:=LoadResource(HInstance, FindHandle);//获得资源所在内存的句柄
if ResHandle<>0 then begin
ResPtr:=LockResource(ResHandle);//锁定资源.
if ResPtr<>Nil then
SndPlaySound(PChar(ResPtr), snd_ASync or snd_ASync );//播放这个音乐.
UnlockResource(ResHandle);
end;
FreeResource(FindHandle);
end;
end;[/code]

转载请注明:鸟儿博客 » delphi之声音资源(*.res)的编译方法

游客
发表我的评论 换个身份
取消评论

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

等待大佬打赏中~