钩子问题

Question

我做了钩子函数 处理用户关闭程序的问题  在一个按纽中 如果用PostMessage(Handle ,WM_CLOSE,0,0); 则可以正常拦截,程序不退出,但是如果用close函数 却拦截不道 为什么 望高手指教  下面是钩子处理函数
var
 HooKHandle :HHook;
function  Hooldo(code :integer;wpararm : longint;Msg:longint):longint ;stdcall;
begin
  if code = HC_Action then
  if PMsg(Msg)^.message = WM_CLOSE then begin
     //ShowMessage('收到');
     Application.Run ;
  end;
  Result := CallNextHookEx(HookHandle,code,wpararm,Longint(@Msg));
end 

Answer 1

   调用Close函数的时候，delphi的Form做了判断，如果你的窗体在OnClose事件中没有把Action没有设置caFree，那么它只是简单的把窗体隐藏掉而没有关闭窗体，所以不会有WM_CLOSE消息。