看看这段代码

procedure TForm1.Button3Click(Sender: TObject);
begin
 hHook:=SetwindowsHookEx(WH_CALLWNDPROC,HookProc,HInstance,0);
end;



function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;
begin
 if icode < 0 then
  begin
    result:=CallNextHookEx(hHook,iCode,wParam,lParam);
    exit;
  end;
 if wparam  =  WM_SPOOLERSTATUS then
        //这样可以得到信息吗？我试了这个消息钩不到。

end;