【摘自网上】Delphi hook

最新推荐文章于 2019-06-18 22:57:55 发布
最新推荐文章于 2019-06-18 22:57:55 发布
阅读量693 收藏
点赞数
分类专栏： Delphi开发 文章标签： hook delphi button keyboard function integer

//监控窗体在一定的时间内有没有鼠标和键盘事件。

procedure TForm1.Timer1Timer(Sender: TObject);

var

  vLastInputInfo: TLastInputInfo;

begin

  vLastInputInfo.cbSize := SizeOf(vLastInputInfo);

  GetLastInputInfo(vLastInputInfo);

  if GetTickCount - vLastInputInfo.dwTime > 5000 then

  begin

    timer1.Enabled:= false;

    showmessage('超过5秒，用户未动鼠标！');

  end;

end;

 

 

1.关于hook的例子

谢谢，我用HOOK搞定了，有一个例子可供大家参考   

  先是DLL   

  library   HKTest;   

 

  {   按下Ctro+B，启动记事本   }   

 

  uses   

      SysUtils,   

      Classes,   

      HKProc   in   'HKProc.pas';   

 

  exports   

      EnableHotKeyHook,   

      DisableHotKeyHook;   

  begin   

      hNextHookProc:=0;   

      procSaveExit:=   ExitProc;   

      ExitProc:=   @HotKeyHookExit;   

  end.   

 

  unit   HKProc;   

 

  interface   

 

  uses   

      Windows,   Messages,   Dialogs,Shellapi;   

 

  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;   

          //ShellExecute(hInstance,'open','Notepad.exe','','',sw_Normal);   

          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);   

          hNextHookProc:=0   ;   

          MessageBeep(0);   

          MessageBeep(0);   

      end;   

      Result:=   hNextHookProc   =0;   

  end;   

 

  procedure   HotKeyHookExit;   

  begin   

      //如果忘了解除HOOK,自动代理解除的动作   

      if   hNextHookProc<>0   then   DisableHotKeyHook;   

      ExitProc:=   procSaveExit;   

  end;   

  end.   

 

  下面是测试程序   

  program   hk;   

 

  uses   

      Forms,   

      Unit1   in   'Unit1.pas'   {Form1};   

 

  {$R   *.RES}   

 

  begin   

      Application.Initialize;   

      Application.CreateForm(TForm1,   Form1);   

      Application.Run;   

  end.   

 

  unit   Unit1;   

 

  interface   

 

  uses   

      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,   

      StdCtrls;   

 

  type   

      TForm1   =   class(TForm)   

          procedure   FormClose(Sender:   TObject;   var   Action:   TCloseAction);   

          procedure   FormCreate(Sender:   TObject);   

      private   

          {   Private   declarations   }   

      public   

          {   Public   declarations   }   

      end;   

 

  var   

      Form1:   TForm1;   

 

  implementation   

 

  {$R   *.DFM}   

      function   EnableHotKeyHook:   Bool;external   'HKTest.DLL';   

      function   DisableHotKeyHook:   Bool;external   'HKTest.DLL';   

 

  procedure   TForm1.FormClose(Sender:   TObject;   var   Action:   TCloseAction);   

  begin   

      if   DisableHotKeyHook   then   

          Showmessage('HotKey   Testing...   DONE!!');   

  end;   

 

  procedure   TForm1.FormCreate(Sender:   TObject);   

  begin   

          if   EnableHotKeyHook   then   

          Showmessage('HotKey   Testing...');   

  end;   

 

  end.   

 

  这样按Ctrl+B就可调出写字板了  

 

2. 例子2，回放鼠标和键盘动作

Delphi建立键盘鼠标动作纪录与回放 很多的教学软件或系统监视软件可以自动记录回放用户的输入文字或点击按钮等操作操作，这个功能的实现是使用 

了Windows的Hook函数。 

Windows提供API函数SetwindowsHookEx来建立一个Hook，通过这个函数可以将一个程序添加到Hook链中监视Windows 

消息，函数语法为： 

SetWindowsHookEx(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD) 

其中参数idHook指定建立的监视函数类型。通过Windows MSDN帮助可以看到，SetwindowsHookEx函数提供15种不同 

的消息监视类型，在这里我们将使用WH_JOURNALRECORD和WH_JOURNALPLAYBACK来监视键盘和鼠标操作。参数lpfn指定消 

息函数，在相应的消息产生后，系统会调用该函数并将消息值传递给该函数供处理。函数的一般形式为： 

Hookproc (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall; 

其中code为系统指示标记，wParam和lParam为附加参数，根据不同的消息监视类型而不同。只要在程序中建立这样 

一个函数再通过SetwindowsHookEx函数将它加入到消息监视链中就可以处理消息了。 

在不需要监视系统消息时需要调用提供UnHookWindowsHookEx来解除对消息的监视。 

WH_JOURNALRECORD和WH_JOURNALPLAYBACK类型是两种相反的Hook类型，前者获得鼠标、键盘动作消息，后者回放鼠 

标键盘消息。所以在程序中我们需要建立两个消息函数，一个用于纪录鼠标键盘操作并保存到一个数组中，另一个用于 

将保存的操作返给系统回放。 

下面来建立程序，在Delphi中建立一个工程，在Form1上添加3个按钮用于程序操作。另外再添加一个按钮控件和一 

个Edit控件用于验证操作。 

下面是Form1的全部代码 

 

unit Unit1; 

 

interface 

 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 

StdCtrls; 

 

type 

TForm1 = class(TForm) 

Button1: TButton; 

Button2: TButton; 

Button3: TButton; 

Edit1: TEdit; 

Button4: TButton; 

procedure FormCreate(Sender: TObject); 

procedure Button1Click(Sender: TObject); 

procedure Button2Click(Sender: TObject); 

procedure Button3Click(Sender: TObject); 

private 

{ Private declarations } 

public 

{ Public declarations } 

end; 

 

var 

Form1: TForm1; 

 

EventArr:array[0..1000]of EVENTMSG; 

EventLog:Integer; 

PlayLog:Integer; 

hHook,hPlay:Integer; 

recOK:Integer; 

canPlay:Integer; 

bDelay:Bool; 

implementation 

 

{$R *.DFM} 

Function PlayProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; 

begin 

canPlay:=1; 

Result:=0; 

 

if iCode < 0 then //必须将消息传递到消息链的下一个接受单元 

Result := CallNextHookEx(hPlay,iCode,wParam,lParam) 

else if iCode = HC_SYSMODALON then 

canPlay:=0 

else if iCode = HC_SYSMODALOFF then 

canPlay:=1 

else if ((canPlay =1 )and(iCode=HC_GETNEXT)) then begin 

if bDelay then begin 

bDelay:=False; 

Result:=50; 

end; 

pEventMSG(lParam)^:=EventArr[PlayLog]; 

end 

else if ((canPlay = 1)and(iCode = HC_SKIP))then begin 

bDelay := True; 

PlayLog:=PlayLog+1; 

end; 

if PlayLog>=EventLog then begin 

UNHookWindowsHookEx(hPlay); 

end; 

end; 

 

function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; 

begin 

recOK:=1; 

Result:=0; 

 

if iCode < 0 then 

Result := CallNextHookEx(hHook,iCode,wParam,lParam) 

else if iCode = HC_SYSMODALON then 

recOK:=0 

else if iCode = HC_SYSMODALOFF then 

recOK:=1 

else if ((recOK>0) and (iCode = HC_ACTION)) then begin 

EventArr[EventLog]:=pEventMSG(lParam)^; 

EventLog:=EventLog+1; 

 

if EventLog>=1000 then begin 

UnHookWindowsHookEx(hHook); 

end; 

end; 

end; 

 

procedure TForm1.FormCreate(Sender: TObject); 

begin 

Button1.Caption:='纪录'; 

Button2.Caption:='停止'; 

Button3.Caption:='回放'; 

Button4.Caption:='范例'; 

Button2.Enabled:=False; 

Button3.Enabled:=False; 

end; 

 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

EventLog:=0; 

//建立键盘鼠标操作消息纪录链 

hHook:=SetwindowsHookEx(WH_JOURNALRECORD,HookProc,HInstance,0); 

Button2.Enabled:=True; 

Button1.Enabled:=False; 

end; 

 

procedure TForm1.Button2Click(Sender: TObject); 

begin 

UnHookWindowsHookEx(hHook); 

hHook:=0; 

 

Button1.Enabled:=True; 

Button2.Enabled:=False; 

Button3.Enabled:=True; 

end; 

 

procedure TForm1.Button3Click(Sender: TObject); 

begin 

PlayLog:=0; 

//建立键盘鼠标操作消息纪录回放链 

hPlay:=SetwindowsHookEx(WH_JOURNALPLAYBACK,PlayProc, 

HInstance,0); 

 

Button3.Enabled:=False; 

end; 

 

end. 

 

代码添加完毕后，运行程序，点击“纪录”按钮开始纪录操作，这时你可以在文本控件中输入一些文字或者点击 

“范例”按钮，然后点击“停止”按钮停止纪录，再点击“回放”按钮就可以讲先前所做的操作回放。 

在上面的程序中，HookProc是纪录操作的消息函数，每当有鼠标键盘消息发生时，系统都会调用该函数，消息信 

息就保存在地址lParam中，我们可以讲消息保存在一个数组中。PlayProc是消息回放函数，当系统可以执行消息回放 

时调用该函数，程序就将先前纪录的消息值返回到lParam指向的区域中，系统就会执行该消息，从而实现了消息回放。 

 

3.例子3，锁定键盘某些键

var

  hNextHookProc: HHook;

 

 

function keyhook(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

begin

  Result:=0;

 

  if Code < 0 then

  begin

    Result:= CallNextHookEx(hNextHookProc, Code, wParam, lParam);

    exit;

  end;

 

  if wParam <> vk_Space then //?????

    Result := CallNextHookEx(hNextHookProc, code, wparam, lParam)

  else Result := 1; //??

 

  //if wParam = 98 then

  //  UnHookWindowsHookEx(hNextHookProc);

end;

 

procedure TfmPasswordChange.HookOn;

begin

  if hNextHookProc <> 0 then

    exit;

  hNextHookProc := SetWindowsHookEx(WH_KEYBOARD, keyHook, HInstance, 0);

end;

 

procedure TfmPasswordChange.HookOff;

begin

  if hNextHookProc<>0 then

  begin

    UnHookWindowsHookEx(hNextHookProc);

    hNextHookProc:=0;

    MessageBeep(0);

    MessageBeep(0);   

  end;

end;

 

 

 

// another example

 

unit UHookKBD;

 

interface

 

uses Windows, Messages;

 

type

  PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;

 

  KBDLLHOOKSTRUCT = packed record

    vkCode      : DWORD;

    scanCode    : DWORD;

    flags       : DWORD;

    time        : DWORD;

    dwExtraInfo : DWORD;

  end;

 

 

const

  LLKHF_EXTENDED = $00000001;

  LLKHF_INJECTED = $00000010;

  LLKHF_ALTDOWN  = $00000020;

  LLKHF_UP       = $00000080;

  LLMHF_INJECTED = $00000001;

  WH_Keyboard_LL = 13;

 

 

procedure StartHook; stdcall;

procedure StopHook; stdcall;

 

 

implementation

 

var

  OldHook: HHook;

 

function LowLevelHookProc(nCode:Integer; awParam: WPARAM; alParam:LPARAM): LRESULT; stdcall;

var

  ControlPressed, AltPressed, EscapePressed, WinPressed, TabPressed: boolean;

  pkbhs: PKBDLLHOOKSTRUCT;

  FilterThis: boolean;

begin

  FilterThis := false;

  if nCode = HC_ACTION then

  begin

    pkbhs := PKBDLLHOOKSTRUCT(alParam);

 

    ControlPressed := (GetAsyncKeyState(VK_CONTROL) and $8000) <> 0;

    AltPressed := ((pkbhs^.flags and LLKHF_ALTDOWN)<>0);

    EscapePressed := (pkbhs^.vkCode = VK_ESCAPE);

    WinPressed := (pkbhs^.vkCode in [VK_LWIN, VK_RWIN]);

    TabPressed := (pkbhs^.vkCode = VK_TAB);

 

    // Disable WINDOWS Key

    if WinPressed then

      FilterThis := true

    else

      // Disable CTRL+ESC

      if ControlPressed and EscapePressed then

        FilterThis := true

      else

        // Disable ALT+TAB

        if AltPressed and TabPressed then

          FilterThis := true

        else

          // Disable ALT+ESC

          if AltPressed and EscapePressed then

            FilterThis := true

          else

            //Disable CTRL+ALT

            if ControlPressed and AltPressed then

              FilterThis := true;

  end;

  if not FilterThis then

    Result:= CallNextHookEx (OldHook, nCode, awParam, alParam)

  else

    Result := 1;

end;

 

procedure StartHook; stdcall;

begin

  OldHook := SetWindowsHookEx(WH_Keyboard_LL, LowLevelHookProc, HInstance, 0);

end;

 

procedure StopHook; stdcall;

begin

  UnHookWindowsHookEx(OldHook);

end;

 

end.

liuyunhuanying
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
DELPHI_Hook.zip
05-19
《DELPHI HOOK技术详解及其在防止线程结束中的应用》 DELPHI HOOK是一种在编程领域中广泛使用的高级技术，它允许开发者在不修改原有代码的情况下，拦截并改变程序中的特定行为。在本项目中，"DELPHI_Hook.zip" 文件...
delphi hook library
09-24
Delphi Hook Library是一个开源项目，专门针对Delphi编程语言设计，提供了一套强大的Hook机制。Hook技术在软件开发中有着广泛的应用，它允许开发者拦截和修改特定函数的调用过程，以此来监控、调试或者扩展应用程序...
Delphi中的钩子函数HOOK详解
小宇飞刀的BLOG
04-27 1390
Delphi中的钩子函数--HOOK，即系统挂钩捕捉键盘操作实例    在WINDOWS系统下，应用程序常常要截获其他程序的消息，并加以处理（例如跟踪键盘或鼠标的按键状况等）。    现在，我们假设在前台进行正常操作，在后台利用HOOK程序为系统安装一个键盘挂钩，当有按键操作时，系统发给键盘挂钩对应的消息，而这些消息被HOOK程序截获，并加以相应的处理，这样就可以监视键盘的使用状况了。一.实现方法
GetLastInputInfo 判断离开状态
十年磨一剑，霜刃未曾试!
09-27 5915
GetLastInputInfo  //得到键盘鼠标的输入信息，用开机到现在的时间，减去最后输入的时间，就能得到离开状态的时间。 typedef struct tagLASTINPUTINFO { UINT cbSize; DWORD dwTime; } LASTINPUTINFO, *PLASTINPUTINFO; typedef BOOL (*MyGetLastInputInfo)(PL
DELPHI HOOK随手笔记
kinvsn的博客
06-18 1192
在 DOS 系统中编程，经常会采取截取中断向量的技术：我们可以设置新的中断服务程序，当系统其他的程序调用这个中断时，就让它先调用我们自己设置的新的中断服务程序，然后再调用原来的中断服务程序，这样就能够获得非凡的控制权。许多优秀的软件和大多数 DOS 病毒程序都采用了这个方法。 在 Windows 中，我们也可以采取类似技术。当系统调用某个 API 函数时，就会先进入我们自己的函数，然后再调用原...
DELPHI HOOK鼠标源代码
02-14
DELPHI HOOK鼠标源代码是一个专为DELPHI编程环境设计的开发资源，它允许开发者通过HOOK技术在后台对鼠标操作进行隐藏控制，包括单击、双击、右键点击以及中间滚轮等动作。这个工具对于需要进行系统级监控或者自动化...
DELPHI HOOK D3D画字画字源代码
02-13
DELPHI HOOK D3D画字画字源代码是一种技术，它允许开发者在基于Direct3D的游戏或应用中插入自定义文字。这种技术通常用于游戏MOD（模组）开发，以便在游戏中添加个性化元素，如玩家分数、聊天窗口或者自定义提示信息...
Delphi进程注入的实例
11-28
最近看的一个关于进程注入的方式，自己做了个Demo实现了一下
hook 自定义消息 (delphi 7)
09-15
hook 自定义消息 (delphi 7)
DELPHI HOOK所有窗体创建源代码
02-14
通过全局DLL注入，HOOK一切窗体创建的源代码，运行任何带窗体的EXE文件都会被HOOK住，然后可以对其进行各种操作，用途你懂的； 关键代码： function CallWndProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall; var winStruct: TCWPStruct; arr: array[0..254] of Char; begin winStruct := PCWPSTRUCT(LParam)^; if nCode >= 0 then begin if winStruct.message = WM_SHOWWINDOW then begin SendMessage(winStruct.hwnd,WM_GETTEXT,255,Longint(@arr)); if arr='AIDA64 Extreme' then begin sendMessage(winStruct.hwnd,WM_CLOSE,0,0); end; SaveInfo('发现窗口创建:::' + inttostr(winStruct.hwnd)+arr); end; end;
Delphi使用HOOK注入系统线程.rar
07-10
Delphi使用HOOK注入系统线程，调用了一个HOOK控件来完成，示例演示了注入一个网址进程的例子。
delphi api hook
06-09
delphi api hook delphi api hook delphi api hook delphi api hook delphi api hook
delphi hook
08-28
在IT行业中，"Delphi Hook"是一个非常特定的技术领域，主要涉及到Windows API级别的程序调试和监控。Hook技术允许开发者在操作系统或应用程序的某些关键点设置“钩子”，从而捕获和处理特定事件，或者改变原有行为。...
delphi hook api
最新发布
12-24
Delphi Hook API是一种在Delphi编程语言中用于实现钩子程序的一套应用程序编程接口。通过使用Hook API，可以在Windows操作系统中拦截和修改应用程序的消息或事件流。这样可以实现一些非常有趣的和功能丰富的功能，...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值