这个钩子怎么做呀 ( 积分: 200 )

  • 主题发起人 主题发起人 liangzhang3942
  • 开始时间 开始时间
L

liangzhang3942

Unregistered / Unconfirmed
GUEST, unregistred user!
我想拦截一个外部程序的WM_NCPaint消息，并且使其不能向下传递，而这个消息每搁几十秒就来，这个钩子怎么做呀，谢谢
 
用WH_CBT 和WH_CALLWNDPROC 这两种钩子好象都可以
 
给个例子好吗老大
 
//窗口过程钩子回调函数
function HookProc(icode:Integer;wparam:WPARAM;lparam:LPARAM):LRESULT;stdcall;
var
P:TCWPStruct;
begin
Result := 0 ;
if icode <0 then
Result := CallNextHookEx(WinProcHook,icode,wparam,lparam)
else
begin
p:= PCWPStruct(lparam)^;
if P.message = WM_NCPaint then
begin
{你要做的处理}
Result:= 1;
end;
end;
end;

procedure InstallHook;
begin
WinProcHook:= SetWindowsHookEx(WH_CALLWNDPROC,@HookProc,Hinstance,dwThreadID);
end;
procedure UnInstallHook;
begin
UnHookWindowsHookEx(WinProcHook)
end;
 
用上面的方法 我试过可以截获WM_NCPAINT,但是还能阻止继续传递下去. 就是不能屏蔽掉. 不知道为什么. 我用过替换窗口过程的方法,有时候能截获掉 ,边框没有画出来. 但有时候又不行了
 
谢谢,我试试
 
好像不行呀
 
.';.
 
处理完后把消息清空就行了：
PMsg(LPARAM)^.Message := WM_NULL;
PMsg(LPARAM)^.WParam := 0;
PMsg(LPARAM)^.LParam := 0;
 
我试试，行了立刻给份
 
不行呀老大，
 
就是不行 ,替换窗口过程可以截获,但有时后又出来了
 
那怎么办呀
 
口加
 
有一个控件可以吗
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
D
消息钩子问题(100分)
回复
4
查看
98
lhn1028
L
M
关于游戏和钩子兼外挂的问题，希望高手来给予帮助！（300分，还可以再加700）(300分)
回复
5
查看
163
jinmen
J
J
我编写了一个CDPLAYER，我想在光盘关闭时不让WINDOWS自动播放，而是用我的程序播放。怎么做？？(50分)
回复
1
查看
132
ChildSound
C
M
如何用hook钩子截获和修改应用程序发送接受的网络数据（300分）！！！！(300分)
回复
7
查看
182
wqhatnet
W
后退
顶部