随笔分类 -  Delphi

好用的键盘和鼠标钩子回调函数
摘要:functionMouseProc(nCode:integer;wParam:WParam;lParam:LParam):LRESULT;stdcall;beginResult:=0;ifnCode<0thenResult:=CallNextHookEx(MHookHandle,nCode,wParam,lParam)elsebegin//RuleofAPIcall,whichreferredtoWin32HookstopicinMSDNcasewParamof//鼠标左键或右键单击WM_LBUTTONUP,WM_NCLBUTTONUP,WM_RBUTTONUP:SendMessage( 阅读全文
posted @ 2009-08-07 16:29 一个人的天空@ 阅读(1038) 评论(0) 推荐(0)
Win32全局钩子在Delphi下实现的关键技术
摘要:自15年前Windows3.1推出以来,Win32全局钩子的实现始终是32位Windows程序设计中最富挑战性的课题之一。全局钩子可以捕获系统向应用程序发送的消息(比如键盘和鼠标操作、系统设置改变等等),因而被广泛地应用在各种商用应用软件中,其中又以金山词霸的“屏幕取词”功能最为国人所熟知。另一方面,黑客们不断地开发出更隐蔽、更强大的钩子程序来盗取他人的密码和隐私。在互联网上我们可以轻易找到成百上千写法各异的Delphi钩子程序,可到目前为止,它们中没有一个是可以同时正确运行于Windows9x/Me和NT/2000/XP下的,尤其是最常用的WindowsXP下的全局钩子的例程,大多存在着各种 阅读全文
posted @ 2009-08-05 17:35 一个人的天空@ 阅读(1484) 评论(0) 推荐(0)