怎样拦截按钮事件?
admin 发表于 2010-10-06 | 来源：互联网 | 阅读：
阻止按钮事件运行有什么办法呢?
test.exe上面有一个按钮,我想阻止拦截这个按钮的运行,
我用了钩子,可这按钮还是可以运行
在钩子函数里面要怎么写呢?
function HookProc(nCode:Integer;WParam: WPARAM;LParam:LPARAM):LRESULT;stdcall;
begin
end;
公告牌:
这是一个体力活儿HOOK button的wm_mousedown wm_keydown消息
找下万一的博客，那里有
这是一个体力活儿HOOK button的wm_mousedown wm_keydown消息怎样区分是哪个按钮呢?
Delphi(Pascal) code
procedure TForm1.MyMessage(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.message = WM_LBUTTONDOWN) and (msg.hwnd = button1.Handle) then
begin
showmessage("button1按钮左键按下!");
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := MyMessage
end;
showmessage("button1按钮左键按下!");应该是单引号…………