|
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周年了!感谢大家的支持与爱护!!
知道什么是神吗?其实神本来也是人,只不过神做了人做不到的事情 所以才成了神。 (头文字D, 杜汶泽)
|