我的程序用到了键盘钩子,并且有个句柄的变量,下面的代码老出错,
procedure TForm1.FormDestroy(Sender: TObject);
begin
closehandle(hh); //加这句就出错,不加就没事! if hhook <> 0 then
begin
UnHookWindowsHookEx(hHook);
hHook := 0;
// MessageBox(0, '键盘监视关闭', '信息', MB_ICONINFORMATION + MB_OK);
end;
end;
错误提示:return value of funtion 'hookproc' might be undefined高手赐教
procedure TForm1.FormDestroy(Sender: TObject);
begin
closehandle(hh); //加这句就出错,不加就没事! if hhook <> 0 then
begin
UnHookWindowsHookEx(hHook);
hHook := 0;
// MessageBox(0, '键盘监视关闭', '信息', MB_ICONINFORMATION + MB_OK);
end;
end;
错误提示:return value of funtion 'hookproc' might be undefined高手赐教
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货