Delphi Hoot钩子
god00
这个作者很懒,什么都没留下…
展开
-
Hoot 钩子的安装与卸载
<br />function EnableMouseHook(Hwnd:THandle):Boolean; stdcall; export; <br />begin <br />if hHk = 0 then //为了安全,必须判断一下再设置钩子。 <br />Begin <br />hHk := SetWindowsHookEx(WH_MOUSE,@MouseHookProc,Hinstance,0); //安装钩子函数;<br />hHandle:=Hwnd; //从主程序传递过来的需要拦截的转载 2011-03-17 11:23:00 · 734 阅读 · 0 评论 -
SetWindowsHookEx 函数
SetWindowsHookEx( idHook: Integer; {钩子类型} lpfn: TFNHookProc; {函数指针} hmod: HINST; {包含钩子函数的模块(EXE、DLL)句柄; 一般是 HInstance; 如果是当前线程这里可以是 0} dwThreadId: DWORD {关联的线程; 可用 GetCurrentThreadId 获取当前线程; 0 表示是系统级钩子} ): HHOOK; {返回钩子的句柄; 0 表示失转载 2011-03-17 11:28:00 · 625 阅读 · 0 评论 -
FindProcess 查找进程
<br />uses TLHelp32,psapi;<br />function FindProcess(AFileName: string;var ID:Cardinal): boolean;<br />var<br /> hSnapshot: THandle;//用于获得进程列表<br /> lppe: TProcessEntry32;//用于查找进程<br /> Found: Boolean;//用于判断进程遍历是否完成<br />begin<br /> Result :=False;转载 2011-04-18 10:50:00 · 3921 阅读 · 0 评论