SetwindowsHookEx WH_GETMESSAGE

Question

看了下MSDN对hook方面的描述，就开始写了个测试程序，实现功能如下,拦截并屏蔽用户定义消息wm_user1
const wm_user1=WM_USER+12;
安装钩子:hHook:=SetwindowsHookEx(WH_GETMESSAGE,@GetMsgProc,0,GetCurrentThreadId());function GetMsgProc(code:integer;      // hook code
   wParam:WPARAM;  // removal option
   lParam:LPARAM   // message
):integer;stdcall;
var
  myMsg:TMsg; 
begin
  if (code<>HC_ACTION) then
  begin
    result := CallNextHookEx(hHook,code,WParam,LParam);
    exit;
  end
  else
  begin
    myMsg := PMsg(lParam)^;
    if (myMsg.message=wm_user1) then
    begin
      myMsg.message:=WM_NULL;//瞎蒙的
      Result :=1;    end
    else
    begin
      result := CallNextHookEx(hHook,code,WParam,LParam);
    end;    
  end;
end;然后用PostMessage(self.Handle,wm_user1,0,0);不过测试后发现不能屏蔽wm_user1消息，应该是我没操作好,文档没写清楚，不知道红色的地方该怎么改，特请大家帮个忙，谢谢。（备注：鼠标键盘钩子以前用简单点的还很成功，第一次尝试下用WH_GETMESSAGE拦截其他类型的消息，写的很差就别批评）

Answer 1

代码似乎没问题，你对WM_user1的定义是否是正确的？

Answer 2

拦截消息时，能否进入到GetMsgProc代码中，wm_user1是否定义的与用户的一致

Answer 3

拦截是成功，但是我的目的是想将该消息给杀死或者转换消息为另一消息，不要给窗口处理过程给处理掉
我用下面的程序测试，并单步跟踪，实际上能hook到消息wm_user1，但是我现在是不知道该怎么将该消息给屏蔽掉，即：杀死该消息或者转换该消息为另一个消息，如果哪位兄弟知道请告诉我
procedure wm_user11(var Message:TMessage);message wm_user1;procedure TForm1.wm_user11(var Message:TMessage);
begin
  MessageBox(self.Handle,'测试接受','wm_user11',MB_OK);
end;

Answer 4

Result :=1并返回，应该就不再继续传递消息了

Answer 5

bdmh,result :=1我也猜测是停止了钩子消息的传递，但是我的提问中也贴出了上面的应用但是却发现依旧是能拦截到，想请教下是否还有其他的做法

Answer 6

你咋不把你的正确的贴出来呢，顺便给我讲下hook嘛，
一起学习！

Answer 7

将myMsg.message:=WM_NULL;改成PMsg(lParam)^.message:=WM_NULL;
我将值copy，当成指针引用了，思路错误，感谢各位