大佬教程收集整理的这篇文章主要介绍了delphi – SetWindowsHookEx创建一个本地钩子.如何使其全球化?,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
focusHook := SetWindowsHookEx( WH_CBT,@FocusHookProc,HInstance,0 ); // dwThreadId (the last argument) set to 0 should create a global hook
在同一个dll中,我有一个挂钩过程,向主机应用程序窗口发送消息:
function FocusHookProc( code : Integer; wParam: WPARAM; lParam: LPARAM ) : LResult; stdcall; begin if ( code < 0 ) then begin result := CallNextHookEx( focusHook,code,wParam,lParam ); exit; end; result := 0; if ( code = HCBT_SETFOCUS ) then begin if ( hostHWND <> INVALID_HANDLE_VALUE ) then Postmessage( hostHWND,cFOCUSMSGID,lParam ); end; end;
这是有效的,但主机只接收应用程序本身内焦点更改的通知.主窗体上有一个备忘录和几个TButtons,它们之间的切换将产生预期的消息.但是,应用程序本身以外的任何焦点更改都不会报告.
我想它与DLL的多个实例注入到其他进程有关.有一个类似的问题与接受的答复here,但它是为C,我不能看到我如何可以做同样的Delphi dll(例如pragma语句设置共享内存).
(这大概是一个概念的证明,但是我仍然希望让它工作,我需要知道在我的应用程序通过点击,alt选项卡,激活热键等激活之前,哪个窗口是活动的.问题是如果使用鼠标或替代选项卡,GetForegroundWindow总是返回自己的应用程序的窗口句柄,无论多久我都放置它,例如挂钩应用程序的主要消息队列,所以钩子似乎是唯一可行的解决方案,尽管我真的很喜欢这个想法.)
以上是大佬教程为你收集整理的delphi – SetWindowsHookEx创建一个本地钩子.如何使其全球化?全部内容,希望文章能够帮你解决delphi – SetWindowsHookEx创建一个本地钩子.如何使其全球化?所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。