帮忙详细解释一下

Question

应该是这样的：
procedure TForm1.Button2Click(Sender: TObject);
var hResInfo, hRes : THandle;
begin
  hResInfo := FindResource(HInstance, 'Wl', 'WAVE');
  hRes := LoadResource(HInstance, hResInfo);
  if hRes > 32 then {its a good load}
     begin {lock the resource}
       SndplaySound(LockResource(hRes),snd_Sync or snd_Memory);
     end;
end;