如何拦截（系统所有的） WM_DRAWITEM 和:WM_NCCALCSIZE:消息??? (100分)

网中 · 2003-06-26

如题； 我用钩子怎么拦截不到，请高手指点。谢谢 var  _Hook:HHOOK; function HookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; begin   Result := 0;   If iCode < 0 Then Result := CallNextHookEx(NextHook, iCode, wParam, lParam);  case wparam of   WM_DRAWITEM:     begin       //拦截事件     end;   WM_NCCALCSIZE:     begin       //拦截事件     end;   end; end; procedure HookOn(Wnd: HWND); stdcall; begin    _Hook :=   SetWindowsHookEx(WH_GETMESSAGE, HookHandler, HInstance, 0);  //全局 end;

原野飞侠 · 2003-06-26

试试   private     { Private declarations }     procedure WM_DRAWITEM(var msg: TMessage);message WM_DRAWITEM; procedure TForm1.WM_DRAWITEM(var msg: TMessage); begin   inherited;   showmessage(‘...........’); end;

thx1180 · 2003-06-26

你的代码是拦不到任何消息的。 WH_GETMESSAGE类型的钩子，wParam参数是指定是否从消息队列中移走消息，lParam参数是指向MSG消息结构的指针，它的message域才是消息。 //如何拦截（系统所有的） WM_DRAWITEM 和:WM_NCCALCSIZE:消息??? 最好做在DLL中，一般非DLL类型的钩子只能拦截本进程的消息。

网中 · 2003-06-26

TO thx1180 我是放在DLL里。需要拦截系统所有的消息。能不能给出具体意见？

thx1180 · 2003-06-26

把： case wparam of 改为： case lParam.message of

网中 · 2003-06-27

TO thx1180    case lParam.message of 是放在那里？是  SetWindowsHookEx(WH_GETMESSAGE, HookHandler, HInstance, 0);  指定的 HookHandler里吗？好象不行。能不能再具体些？谢谢

thx1180 · 2003-06-27

我是改的你的代码啊，就是在HookHandler里的。

网中 · 2003-06-27

to thx1180 function HookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; begin   Result := 0;   If iCode < 0 Then Result := CallNextHookEx(NextHook, iCode, wParam, lParam); // case wparam of //改为  case lParam.message of//编译通不过啊   WM_DRAWITEM:     begin       //拦截事件     end;   WM_NCCALCSIZE:     begin       //拦截事件     end;   end; end; procedure HookOn(Wnd: HWND); stdcall; begin    _Hook :=   SetWindowsHookEx(WH_GETMESSAGE, HookHandler, HInstance, 0);  //全局 end;

thx1180 · 2003-06-27

是这样： case PMsg(lParam)^.message of

网中 · 2003-06-27

还是拦截不到所需消息

thx1180 · 2003-06-27

能把代码贴全一点么？你的NextHook是什么变量？ 看CallNextHookEx的帮助，这个参数是指向当前HOOK的句柄，该用_Hook代替。

网中 · 2003-06-28

to thx1180  你的QQ？

网中 · 2003-07-02

多人接受答案了。

如何拦截（系统所有的） WM_DRAWITEM 和:WM_NCCALCSIZE:消息??? (100分)

网中

Unregistered / Unconfirmed

原野飞侠

Unregistered / Unconfirmed

thx1180

Unregistered / Unconfirmed

网中

Unregistered / Unconfirmed

thx1180

Unregistered / Unconfirmed

网中

Unregistered / Unconfirmed

thx1180

Unregistered / Unconfirmed

网中

Unregistered / Unconfirmed

thx1180

Unregistered / Unconfirmed

网中

Unregistered / Unconfirmed

thx1180

Unregistered / Unconfirmed

网中

Unregistered / Unconfirmed

网中

Unregistered / Unconfirmed

Similar threads