关于捕捉用户按键的问题

[w68j17]

我用HOOK做了一个DLL，用于捕捉用户按键，但在调用时只能在调用窗体内有效。请问如何将才能捕捉到系统级的按键（用户在操作系统中任何时候任何地点的按键）。（因为需要编写一个按键计数程序）

[brightyang]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private
function Keyhookresult(lP: integer; wP: integer): pchar;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
hookkey: string;
hooktimes: word;
hHook: integer;
implementation
{$R *.DFM}

function TForm1.Keyhookresult(lP: integer; wP: integer): pchar;
begin
result := '[Print Screen]';
{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
case lp of
14354: result := '[Alt]';
10688: result := '`';
561: Result := '1';
818: result := '2';
1075: result := '3';
1332: result := '4';
1589: result := '5';
1846: result := '6';
2103: result := '7';
2360: result := '8';
2617: result := '9';
2864: result := '0';
3261: result := '-';
3515: result := '=';
4177: result := 'Q';
4439: result := 'W';
4677: result := 'E';
4946: result := 'R';
5204: result := 'T';
5465: result := 'Y';
5717: result := 'U';
5961: result := 'I';
6223: result := 'O';
6480: result := 'P';
6875: result := '[';
7133: result := ']';
11228: result := '\';
7745: result := 'A';
8019: result := 'S';
8260: result := 'D';
8518: result := 'F';
8775: result := 'G';
9032: result := 'H';
9290: result := 'J';
9547: result := 'K';
9804: result := 'L';
10170: result := ';';
10462: result := '''';
11354: result := 'Z';
11608: result := 'X';
11843: result := 'C';
12118: result := 'V';
12354: result := 'B';
12622: result := 'N';
12877: result := 'M';
13244: result := ',';
13502: result := '.';
13759: result := '/';
13840: result := '[Right-Shift]';
14624: result := '[Space]';
283: result := '[Esc]';
15216: result := '[F1]';
15473: result := '[F2]';
15730: result := '[F3]';
15987: result := '[F4]';
16244: result := '[F5]';
16501: result := '[F6]';
16758: result := '[F7]';
17015: result := '[F8]';
17272: result := '[F9]';
17529: result := '[F10]';
22394: result := '[F11]';
22651: result := '[F12]';
10768: Result := '[Left-Shift]';
14868: result := '[CapsLock]';
3592: result := '[Backspace]';
3849: result := '[Tab]';
7441:
if wp > 30000 then
result := '[Right-Ctrl]'
else
result := '[Left-Ctrl]';
13679: result := '[Num /]';
17808: result := '[NumLock]';
300: result := '[Print Screen]';
18065: result := '[Scroll Lock]';
17683: result := '[Pause]';
21088: result := '[Num0]';
21358: result := '[Num.]';
20321: result := '[Num1]';
20578: result := '[Num2]';
20835: result := '[Num3]';
19300: result := '[Num4]';
19557: result := '[Num5]';
19814: result := '[Num6]';
18279: result := '[Num7]';
18536: result := '[Num8]';
18793: result := '[Num9]';
19468: result := '[*5*]';
14186: result := '[Num *]';
19053: result := '[Num -]';
20075: result := '[Num +]';
21037: result := '[Insert]';
21294: result := '[Delete]';
18212: result := '[Home]';
20259: result := '[End]';
18721: result := '[PageUp]';
20770: result := '[PageDown]';
18470: result := '[UP]';
20520: result := '[DOWN]';
19237: result := '[LEFT]';
19751: result := '[RIGHT]';
7181: result := '[Enter]';
end;
end;

function HookProc(iCode: integer; wParam: wParam; lParam: lParam): LResult; stdcall;
var
s:string;
begin
if (PEventMsg(lparam)^.message = WM_KEYDOWN) then
begin

s:=format('Down:%5d %5d ',[PEventMsg(lparam)^.paramL,PEventMsg(lparam)^.paramH])+Form1.Keyhookresult(peventMsg(lparam)^.paramL, peventmsg(lparam)^.paramH);
Form1.ListBox1.Items.Add(s);
end
else if (PEventMsg(lparam)^.message = WM_KEYUP) then
begin

s:=format(' Up:%5d %5d ',[PEventMsg(lparam)^.paramL,PEventMsg(lparam)^.paramH])+Form1.Keyhookresult(PEventMsg(lparam)^.paramL,PEventMsg(lparam)^.paramH);
Form1.ListBox1.Items.Add(s);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
hooktimes := 0;
hHook := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
inc(hooktimes);
if hooktimes = 1 then
begin
hookkey := TimeToStr(now) + ' ';
hHook := SetWindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0);
MessageBox(0, '键盘监视启动', '信息', MB_ICONINFORMATION + MB_OK);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
UnHookWindowsHookEx(hHook);
hHook := 0;
if hooktimes <> 0 then
begin
MessageBox(0, '键盘监视关闭', '信息', MB_ICONINFORMATION + MB_OK);
end;
hooktimes := 0;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
listbox1.clear;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
i:DWORD;
begin
if length(edit1.text)<>1 then exit;

i:=MapVirtualKey(ord(edit1.text[1]), 0 );
edit2.text:=format('%d %x',[i,i]);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
edit1.text:='';
end;

end.

[zhaoyu_me]

全局钩子要写在DLL中才可以
不过你可以用低级键盘钩子，那个好像可以写在EXE且是全局的

[WuChenCan]

关注。。

[wlp555ren]

使用记录钩子吧,这样可以不用写在DLL里,还可以防止很多内存错误.WH_RECORD

[lovesf]

可以监控其它程序里的按键了。
不过，如果我要统计中文录入字数怎么做呢？

[gyk120]

倒塌，楼上的别顶这么老的帖子行不……

[hdc733]

学习了

[blazingfire]

前一段时候买了一台T61笔记本电脑，键盘用不太习惯。写了一个小程序改几个键的功能，DLL的代码如下，你看看有没有用：

unit HookUnit;

interface

uses
  Windows, Messages, StdCtrls, Classes, Forms;

const
  WH_KEYBOARD_LL = 13;//系统级的键盘挂钩程序

type
  TShowForm = procedure of object;

  PKdDllHookStruct = ^TKdDllHookStruct;
  {这个结构包含了一个低级键盘钩子的输入事件，可以捕获键盘输入，具体查看MSDN}
  TKdDllHookStruct = record
    vkCode: DWORD; //虚拟键码
    scanCode: DWORD; //扫描码
    flags: DWORD; //标志
    time: DWORD;
    dwExtraInfo: DWORD; //一些附加信息
  end;

var
  hNextHookProc: HHook; //保存SetWindowsHookEx的返回值
  ShowForm: TShowForm;

function EnableHotKeyHook(AShowForm: TShowForm): BOOL; export; //安装钩子
function DisableHotKeyHook: BOOL; export;

implementation

function LowLevelKeyboardProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;
var
  bEatKey: BOOL;
  p: PKdDllHookStruct;
  dwFlags: DWORD;
begin
  Result := 0;
  if nCode < 0 then
  begin
    Result := CallNextHookEx(0, nCode, wParam, lParam);
    Exit;
  end;

  bEatKey := False;
  p := PKdDllHookStruct(lParam);
  if (nCode = HC_ACTION) and ((WParam = WM_KEYDOWN) or
    (WParam = WM_SYSKEYDOWN) or (WParam = WM_KEYUP) or (WParam = WM_SYSKEYUP)) then
  begin
    if (WParam = WM_KEYDOWN) or (WParam = WM_SYSKEYDOWN) then
      dwFlags := 0
    else
      dwFlags := KEYEVENTF_KEYUP;

    if p.vkCode in [VK_RWIN, VK_LWIN] then
    begin
      keybd_event(VK_CONTROL, 0, dwFlags, 0);
      bEatKey := True;
    end;

    if p.vkCode = VK_F1 then
    begin
      keybd_event(VK_ESCAPE, 0, dwFlags, 0);
      bEatKey := True;
    end;

    if p.vkCode in [166] then
    begin
      keybd_event(VK_HOME, 0, dwFlags, 0);
      bEatKey := True;
    end;

    if p.vkCode in [167] then
    begin
      keybd_event(VK_END, 0, dwFlags, 0);
      bEatKey := True;
    end;

    if p.vkCode in [VK_APPS] then
    begin
      keybd_event(VK_DELETE, 0, dwFlags, 0);
      bEatKey := True;
    end;
    
    if p.vkCode in [VK_PAUSE] then
    begin
      ShowForm;
      bEatKey := True;
    end;
  end;

  if bEatKey = True then
    Result := 1;
end;

function EnableHotKeyHook(AShowForm: TShowForm): BOOL; export;
begin
  ShowForm := AShowForm;
  Result := False; //初始化返回值
  if hNextHookProc <> 0 then //如果已经注册，直接退出
    Exit;

  hNextHookProc := SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, Hinstance, 0);
  //注册hook
  Result := hNextHookProc <> 0; //通过返回值确定是否注册成功
end;

function DisableHotKeyHook: BOOL; export;
begin
  if hNextHookProc <> 0 then
  begin
    UnhookWindowshookEx(hNextHookProc); //解除Keyboard   Hook
    hNextHookProc := 0; //恢复标志
  end;
  Result := hNextHookProc = 0; //返回是否注销成功
end;

end.

[auqfiudh]

看啥子

[waxfdx]

DLL 也要注入到程序里啊,注入后不能发送 keybd_event 消息吗?

[liangpei2008]

向blazingfire 学习

[无条件为你]

不需要DLL，一个独立的EXE即可完成你的要求！详请加群：37802783

[五维思考]

哥们，他是加不了你的群了，你也不看看这是什么年月发的帖子