delphi2007 教程

 
  用   SetWindowLong   大概代码如下  
   
  Txxxform  
      function   NewWinProc(var   Message:   TMessage):   Integer;  
   
  下面代码设成你的处理过程  
  //     NewProc,   OldProc:   Pointer;  
      NewProc   :=   WinUtils.MakeObjectInstance(NewWinProc);  
      OldProc   :=   Pointer(GetWindowLong(你的句柄,   GWL_WNDPROC));  
      SetWindowLong(你的句柄,   GWL_WNDPROC,   Longint(NewProc));  
   
  function   xxx.NewWinProc(var   Message:   TMessage):   Integer;  
  begin  
      if   Message.Msg   =   WM_SIZE   then  
      begin  
          ...  
          result   :=   1;  
      end  
      else   OldProc(Message);  
  end;  
   
 

Hook