在delphi中如何用hook给我一个实例(100分)

truely · 2001-03-30

发给我吧！ truely@263.net

LSS · 2001-03-30

我已经发过去了

wqhuo · 2001-03-30

别忘了给我加分 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     { Private declarations }     procedure ProcessHook(var Message:TMessage);Message WM_USER;   public     { Public declarations }   end; var   Form1: TForm1; FHHOOK:HHOOK;   mfHandle:THandle; function MyHookProc(code:Integer; // hook code                     wParam:WPARAM; // removal flag                     lParam:LPARAM // address of structure with message                     ):LRESULT;stdcall; implementation {$R *.DFM} function MyHookProc(code:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT; var msg

MOUSEHOOKSTRUCT; begin //Add you Code   msg:=PMOUSEHOOKSTRUCT(lParam);   PostMessage(mfHandle,   WM_USER,               msg.pt.x,               msg.pt.y);   Result:=CallNextHookEx(FHHOOK,code,wParam,lParam); end; procedure TForm1.ProcessHook(var Message:TMessage); begin   Caption:=Format('Mouse:x %d, y %d',[Message.WParam,Message.lParam]); end; procedure TForm1.FormCreate(Sender: TObject); begin   mfHandle:=Handle; //Create a Mouse Hook FHHOOK:=SetWindowsHookEx(                   WH_MOUSE,                   @MyHookProc,                   hInstance,                   MainThreadId); end; procedure TForm1.FormDestroy(Sender: TObject); begin //Free Mouse Hook   UnhookWindowsHookEx(FHHOOK); end; end.

Kylix㊣ · 2001-03-30

以下文章摘自《计算机世界》网站

别忘了给我分哦^o^) WIN95中日志钩子（JournalRecord Hook）的使用 东莞生益敷铜板股份有限公司 肖粤斌 ---- 钩子是WINDOWS中消息处理机制的一个要点，通过安装各种钩子，应用程序能够设置 应的子例程来监视系统里的消息传递以及在这些消息到达目标窗口程序之前处理它们。 钩子的种类很多，每种钩子可以截获并处理相应的消息，如键盘钩子可以截获键盘消息 ，鼠标钩子可以截获鼠标消息，外壳钩子可以截获启动和关闭应用程序的消息，日志钩子 可以监视和记录输入事件。钩子分为线程专用钩子和全局钩子，线程专用钩子只监视指定 的线程，要监视系统中的所有线程，必须用到全局钩子。对于全局钩子，钩子函数必须包含 在独立的动态链接库(DLL)中，这样才能被各种相关联的应用程序调用。在WINDOWS中， 日志钩子是个很特别的钩子，它只有全局钩子一种，是键盘鼠标等输入设备的消息在 系统消息队列被取出时发生的，而且系统中只能存在一个这样的日志钩子，更重要是， 它不必用在动态链接库中，这样可以省却了为安装一个全局钩子而建立一个动态链接库 的麻烦。利用日志钩子，我们可以监视各种输入事件，下面的示例可以用来记录键盘的输入， 当有按键发生时，自动记录按键动作的日期和时间以及当前激活的窗口名称。 本示例在中文WIN98，Borland C++ Builder4中编译通过。 ---- 1．新建一个工程，在窗体Form1中放置两个按钮Button1和Button2, CAPTION分别为 “安装日志钩子”和“卸载日志钩子”。 ---- 2．定义如下全局变量： HHOOK g_hLogHook=NULL;     //钩子变量 HWND g_hLastFocus=NULL;     //记录上一次得到焦点的窗口句柄 const int KeyPressMask=0x80000000;  //键盘掩码常量 char g_PrvChar;      //保存上一次按键值 3．在Button1的OnClick事件中输入： void __fastcall TForm1::Button1Click(TObject *Sender)  {   if  (g_hLogHook==NULL)    g_hLogHook = SetWindowsHookEx (WH_JOURNALRECORD,         (HOOKPROC)JournalLogProc, HInstance,0);  //安装日志钩子  } 4．在Button2的OnClick事件中输入： void __fastcall TForm1::Button2Click(TObject *Sender) {  if (g_hLogHook!=NULL)   {UnhookWindowsHookEx(g_hLogHook);    g_hLogHook=NULL;   }  //卸载日志钩子 } 5．输入钩子回调函数： HOOKPROC JournalLogProc(int iCode, WPARAM wParam, LPARAM lParam) {  if (iCode< 0) return (HOOKPROC)CallNextHookEx (g_hLogHook,iCode,wParam,lParam);  if (iCode==HC_ACTION)   {EVENTMSG *pEvt=(EVENTMSG *)lParam;    int i;    HWND hFocus;      //保存当前活动窗口句柄    char szTitle[256];     //当前窗口名称    char szTime[128];    //保存当前的日期和时间    FILE *stream=fopen(“c://logfile.txt”,"a+t");    if (pEvt->message==WM_KEYDOWN)         {int vKey=LOBYTE(pEvt- >paramL);    // 取得虚拟键值      char ch;      char str[10];      hFocus=GetActiveWindow();       //取得当前活动窗口句柄      if(g_hLastFocus!=hFocus)       //当前活动窗口是否改变       {GetWindowText(hFocus,szTitle,256);        g_hLastFocus=hFocus;        strcpy(szTime,DateTimeToStr(Now()) .c_str());  //得到当前的日期时间        fprintf(stream,"%c%s%c%c%s", 10,szTime,32,32,szTitle);  //写入文件        fprintf(stream,"%c%c",32,32);         }      int iShift=GetKeyState(0x10);   //测试SHIFT,CAPTION,NUMLOCK等键是否按下      int iCapital=GetKeyState(0x14);      int iNumLock=GetKeyState(0x90);      bool bShift=(iShift & KeyPressMask)==KeyPressMask;        bool bCapital=(iCapital & 1)==1;      bool bNumLock=(iNumLock & 1)==1;      if (vKey >=48 && vKey< =57)  // 数字0-9        if (!bShift) fprintf(stream,"%c",vKey);      if (vKey >=65 && vKey< =90) // A-Z       a-z       {if (!bCapital)          if (bShift) ch=vKey; else ch=vKey+32;        else          if (bShift) ch=vKey+32; else ch=vKey;        fprintf(stream,"%c",ch);       }      if (vKey >=96 && vKey< =105)         // 小键盘0-9        if (bNumLock) fprintf(stream,"%c",vKey-96+48);      if (vKey>=186 && vKey<=222)         // 其他键       {switch (vKey)         {case 186:if (!bShift) ch=';'; else ch=':';break;          case 187:if (!bShift) ch='='; else ch='+';break;          case 188:if (!bShift) ch=','; else ch='<' ;break;          case 189:if (!bShift) ch='-'; else ch='_';break;          case 190:if (!bShift) ch='.'; else ch=' >';break;          case 191:if (!bShift) ch='/'; else ch='?';break;          case 192:if (!bShift) ch='`'; else ch='~';break;          case 219:if (!bShift) ch='['; else ch='{';break;          case 220:if (!bShift) ch='//'; else ch='|';break;          case 221:if (!bShift) ch=']'; else ch='}';break;          case 222:if (!bShift) ch='/''; else ch='/"';break;          default:ch='n';break;         }        if (ch!='n') fprintf(stream,"%c",ch);       } //     if (wParam >=112 && wParam<=123)      // 功能键   [F1]-[F12]      if (vKey >=8 && vKey< =46)   //方向键       {switch (vKey)         {case 8:strcpy(str,"[BK]");break;          case 9:strcpy(str,"[TAB]");break;          case 13:strcpy(str,"[EN]");break;          case 32:strcpy(str,"[SP]");break;          case 33:strcpy(str,"[PU]");break;          case 34:strcpy(str,"[PD]");break;          case 35:strcpy(str,"[END]");break;          case 36:strcpy(str,"[HOME]");break;          case 37:strcpy(str,"[LF]");break;          case 38:strcpy(str,"[UF]");break;          case 39:strcpy(str,"[RF]");break;          case 40:strcpy(str,"[DF]");break;          case 45:strcpy(str,"[INS]");break;          case 46:strcpy(str,"[DEL]");break;          default:ch='n';break;         }        if (ch!='n')         {if (g_PrvChar!=vKey)           {fprintf(stream,"%s",str);            g_PrvChar=vKey;           }         }       } }       if (pEvt- >message==WM_LBUTTONDOWN || pEvt- >message ==WM_RBUTTONDOWN)       {hFocus=GetActiveWindow();        if (g_hLastFocus!=hFocus)         {g_hLastFocus=hFocus;          GetWindowText(hFocus,szTitle,256);            strcpy(szTime,DateTimeToStr(Now()).c_str());   //得到当前的日期时间      fprintf(stream,"%c%s%c%c%s", 10,szTime,32,32,szTitle);  //写入文件      fprintf(stream,"%c%c",32,32);           }       }  fclose(stream);  return (HOOKPROC)CallNextHookEx (g_hLogHook,iCode,wParam,lParam); } ---- 将工程编译执行后，每当激活一个窗口时，就会把当前窗口名称写入文件c:/logfile.txt中， 当有按键时，按键的名称也会写入此文件中，这里的并没有处理全部的按键，读者可根据 需要添加相应的语句。要捕捉键盘的按键动作，用键盘钩子(Keyboard Hook)也同样可以实现 ，但是用日志钩子却比键盘钩子要方便许多。首先，如果要捕捉其他应用程序的按键， 即做成全局钩子，键盘钩子一定要单独放在动态链接库中，而日志钩子却不必； 其次，在键盘钩子函数得到的键盘按键之前，系统已经处理过这些输入了，如果系统把这些按键 屏蔽掉，键盘钩子就无法检测到它们，例如，当输入屏幕保护程序密码时，键盘钩子无法 检测到用户输入了那些字符，而日志钩子却可以检测到。 ---- 无论是哪种钩子，都会增加系统处理消息的时间，从而降低系统的性能，我们只有在 必要的时候才安装这些钩子，而且尽可能在不需要时移走它们。 中国计算机世界出版服务公司版权所有

sunstone · 2001-06-07

Kylix㊣：你的日志钩子，和oicq冲突吗？

Kylix㊣ · 2001-06-08

這我倒沒試過，你自個試試吧？：）

54l5 · 2002-04-02

win32api · 2002-04-09

我也发给你一个，也记得给我加分哦！！

jbas · 2002-04-09

日志钩子: http://www.delphibbs.com/delphibbs/dispq.asp?lid=955227 也记得给我加分哦！！

飘飘然 · 2002-04-09

我也Mget一个！

jrq · 2002-04-09

[^][^]

jack-wb · 2002-04-09

学习

Bahl · 2002-04-15

Hook的制作 >这样说好了 我写了一支 A 程式 A 程式执行时若按 F1 则 run a1.exe > 按 F2 则 run a2.exe > >现在我的 A 程式成被摆到背景去了..不管 User 怎麽按 F1/F2 >我写的 A.exe 就是没法子知道....因为我没有控制权了 >我猜要拦 Windows95 的 Keyboard Event 类似萤幕保护程式的作法 >..只是不知要怎麽作...

您的问题看来只好挂上 WH_KEYBOARD 这型的 HOOK 才行了 我试了一 下 可以用 目前设定成每次按下 Ctrl+B 记事本就会被启动. 有时 间的话 说不定又可以包装一个元件出来 提供一些诸如OnXXXKeyHit 之类的事件出来....

Delphi 真是太可爱了 用它来实作 HOOK 竟然如此简单.

大家可以按下列步骤试试看: 1. 将以下的文字剪贴存成 HKTest.DPR --- Cut Here --- library HKTest; uses HKProc in 'HKProc.pas'; exports EnableHotKeyHook DisableHotKeyHook; begin hNextHookProc := 0; procSaveExit := ExitProc; ExitProc := @HotKeyHookExit; end. --- Cut Here --- 2. 将以下的文字剪贴存成 HKProc.PAS (Note: HKTest.DPR 与 HKProc.PAS 建议储存在同一个目录) --- Cut Here --- unit HKProc; interface uses Windows Messages; var hNextHookProc: HHook; procSaveExit: Pointer; function KeyboardHookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export; function EnableHotKeyHook: BOOL; export; function DisableHotKeyHook: BOOL; export; procedure HotKeyHookExit; far; implementation function KeyboardHookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export; const _KeyPressMask = $80000000; begin Result := 0; If iCode < 0 Then begin Result := CallNextHookEx(hNextHookProc iCode wParam lParam); Exit; end; // 侦测 Ctrl + B 组合键 if ((lParam and _KeyPressMask) = 0) and (GetKeyState(vk_Control) < 0) and (wParam = Ord('B')) then begin Result := 1; WinExec('Notepad.exe' sw_Normal); // 记事本 end; end; function EnableHotKeyHook: BOOL; export; begin Result := False; if hNextHookProc <> 0 then Exit; // 挂上 WH_KEYBOARD 这型的 HOOK 同时 传回值必须保留下 // 来 免得 HOOK 呼叫链结断掉 hNextHookProc := SetWindowsHookEx(WH_KEYBOARD KeyboardHookHandler HInstance 0); Result := hNextHookProc <> 0; end; function DisableHotKeyHook: BOOL; export; begin if hNextHookProc <> 0 then begin UnhookWindowshookEx(hNextHookProc); // 解除 Keyboard Hook hNextHookProc := 0; MessageBeep(0); MessageBeep(0); end; Result := hNextHookProc = 0; end; procedure HotKeyHookExit; begin // 如果忘了解除 HOOK 自动代理解除的动作 if hNextHookProc <> 0 then DisableHotKeyHook; ExitProc := procSaveExit; end; end. --- Cut Here --- 3. 启动 Delphi 2.0 4. 开启 HKTest.DPR 然後 Project | Build All 以产生 HKTest.DLL 5. File | New Application 开启一个新的专案 6. 将此专案 unit1 与 project1 存档 请注意: 请存到与 HKTest.DLL 相同的目录中. 7. 在 Form1 上安置二个 TButton 并撰写 OnClick 程式 同时 在 implementation 节中宣告 EnableHotKeyHook() 与 DisableHotKeyHook() 修改後的程式应类似: ... ... implementation {$R *.DFM} function EnableHotKeyHook: BOOL; external 'HKTEST.DLL'; function DisableHotKeyHook: BOOL; external 'HKTEST.DLL'; procedure TForm1.Button1Click(Sender: TObject); begin if EnableHotKeyHook then ShowMessage('HotKey Testing...'); end; procedure TForm1.Button2Click(Sender: TObject); begin if DisableHotKeyHook then ShowMessage('HotKey Testing... DONE!!'); end; end. 8. 专案再存档一次 执行. OK! 执行後 滑鼠点一下 Button1 然後 不管 form1 在不在前景 极小化 也可以 按下 Ctrl + B 这个组合键 记事本就启动了. regards Wolfgang Chien X-Sender: wolfgang@ms2.hinet.net Date: Sat 19 Oct 1996 02:48:32 +0800 To: delphichat@ibmsrv.cc.nthu.edu.tw From: Wolfgang Chien Subject: Re: [Delphi][Form] 如何拦截 Windows95 的按键 ? Sender: owner-delphichat@ibmsrv.cc.nthu.edu.tw Reply-To: delphichat@ibmsrv.cc.nthu.edu.tw earthian wrote: >> 您的问题看来只好挂上 WH_KEYBOARD 这型的 HOOK 才行了 我试了一 >> 下 可以用 目前设定成每次按下 Ctrl+B 记事本就会被启动. 有时 >> 间的话 说不定又可以包装一个元件出来 提供一些诸如OnXXXKeyHit >> 之类的事件出来....

>> Delphi 真是太可爱了 用它来实作 HOOK 竟然如此简单.

>> 大家可以按下列步骤试试看: >> 1. 将以下的文字剪贴存成 HKTest.DPR >> --- Cut Here --- >> library HKTest; >> : >> >试了一下.. >如果把 DLL 的程式码一并放到 Project1 里面 合并成一个 .exe 时 >当 Focus 不是 Project1 时 就无法栏到 Hot key...为甚麽呢?? HOOK可分成 task scope 与 system scope 两种 Windows 系统会先呼 叫 task scope 的函式 然後才呼叫 system scope 的函式; 但如果当 时挂上 task scope hook 的程式不在前景 则其所属的 task scope hook 当然没有作用. (不然怎麽叫 task scope 嘛!

) 以您的情形 如果不是实作成 DLL 而是将之移入 .exe 的Project中 那它就从 system scope 变成 task scope 的 hook 当程式在背景时 Windows 当然就不理会这个 hook 函式了. 换句话说 system scope 的 HOOK 必须实作成 DLL. 而且 某些类型 的 HOOK 还必须要求只能以 system scope 的方式挂上去 像是 WH_JOURNALPLAYBACK 就是其中一个. 进一步的资讯 您可以参考Win SDK Reference. 市面上讲 Windows 程式设计比较深入的我认为应该要 涵盖这个题目. > >另外.. >如何 Hook 到 Mouse 同时按下 Left & Right Button.. >或者其中任意两键同时按.. > 上次我举的是 WH_KEYBOARD 这型的例子 如果要过滤 Mouse Message 那您可以考虑 WH_MOUSE 或 WH_HARDWARE 型. 加分！加分！

在delphi中如何用hook给我一个实例(100分)

truely

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

wqhuo

Unregistered / Unconfirmed

Kylix㊣

Unregistered / Unconfirmed

sunstone

Unregistered / Unconfirmed

Kylix㊣

Unregistered / Unconfirmed

54l5

Unregistered / Unconfirmed

win32api

Unregistered / Unconfirmed

jbas

Unregistered / Unconfirmed

飘飘然

Unregistered / Unconfirmed

jrq

Unregistered / Unconfirmed

jack-wb

Unregistered / Unconfirmed

Bahl

Unregistered / Unconfirmed

Similar threads