如何调用wave资源
我用文本编辑器编辑了一个文件alertsnd.rc
alertsun wave tada.wav
然后用brcc32编译成alertsnd.res
在文件中加入
{$R *.DFM}
{$R alertsnd.RES}
~~~~~~~~~~~~~~~~~~
调用语句为
procedure TForm1.FormCreate(Sender: TObject);
var
hResInfo : THandle;
begin
hResInfo := FindResource (HInstance, 'alertsun', 'WAVE');
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
hRes := LoadResource (HInstance, hResInfo);
if hRes > 32 then
begin
button1.enabled := true;
ptrSound := LockResource (hRes);
end;
end;
但有波浪线一句有问题,设断点显示为hResInfo为无效值,为何?