声音文件为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} 最后怎样调用这个资源呢?看:
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;
|