如何调用wave资源 alertsud 是不是写成 alertsun 了? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如shines所说,你的波浪线一句有拼写错误。如果我要做WAVE资源,我会这样做更简单:使用VC++的资源编译器!在VC中新建一资源文件,将波形文件导入后,右键激活属性编辑器,将ID文本框中数据ID改为字符串ID(使用双引号),如"WAVE1",另存该文件为WAVE.res,放置到你的工程目录下,调用时:implementation{$R *.DFM}{$R Wave.res}uses mmsystem;procedure Tform1.playmysound;begin if WaveoutGetNumDevs <> 0 then PlaySound('WAVE1',hInstance,SND_RESOURCE or SND_ASYNC);end;如果你用记事本直接编写资源脚本,经编绎为RES资源文件后,使用方法一样。 delphi中如何去除MDI子窗体的标题栏及按钮? fastreport急救问题 class WCAlignEdit not found. 一个简单的语法问题,谢谢! 求助:关于窗体创建 这种TClientDataSet怎么才能可写 怎么把字节类型转换为字符串类型? 将Form的Formstyle原先设置为fsMDIChild,再将改成fsNormal后ShowModal出错??? 寻找一个函数…… DLL中的Form的问题 如何让edit的在STRINGGRID在当前行、列中 关于多窗体!?
如果我要做WAVE资源,我会这样做更简单:使用VC++的资源编译器!
在VC中新建一资源文件,将波形文件导入后,右键激活属性编辑器,
将ID文本框中数据ID改为字符串ID(使用双引号),如"WAVE1",另存该文件为
WAVE.res,放置到你的工程目录下,调用时:implementation{$R *.DFM}
{$R Wave.res}
uses mmsystem;
procedure Tform1.playmysound;
begin
if WaveoutGetNumDevs <> 0 then
PlaySound('WAVE1',hInstance,SND_RESOURCE or SND_ASYNC);
end;
如果你用记事本直接编写资源脚本,经编绎为RES资源文件后,使用方法一样。