|
procedure TForm1.FormCreate(Sender: TObject);
var
hResInfo :THandle;
begin
hResInfo := FindResource(HInstance,’Sound’,’wav’);
hRes := LoadResource(HInstance, hResInfo); //调试这个地方出错,hRes是个什么变量,那儿来的,知道的说下,
If hRes> 32 Then
begin
PtrSound :=LockResource(hRes);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SndPlaySound(PtrSound,Snd_Async or Snd_Memory);
end;
这个程序在Delphi 程序设计与开发大全(41页),刚学不了解Delphi,正在看这本书学, |
阿莫论坛20周年了!感谢大家的支持与爱护!!
一只鸟敢站在脆弱的枝条上歇脚,它依仗的不是枝条不会断,而是自己有翅膀,会飞。
|