hook键盘钩子_非dll

unit Unit1;
// download by http://www.codefans.net
interface

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

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    btn1: TButton;
    btn2: TButton;
    lst1: TListBox;
//    ListBox1: TListBox;
//    Button1: TButton;
//    Button2: TButton;
//    Edit1: TEdit;
//    Edit2: TEdit;
//    Label1: TLabel;
//    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure edt1Change(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure lst1DblClick(Sender: TObject);
  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
    : result := '[Alt]'; //不能识别
    : result := '`';
    : Result := '';
    : result := '';
    : result := '';
    : result := '';
    : result := '';
    : result := '';
    : result := '';
    : result := '';
    : result := '';
    : result := '';
    : result := '-';
    : result := '=';
    : result := 'Q';
    : result := 'W';
    : result := 'E';
    : result := 'R';
    : result := 'T';
    : result := 'Y';
    : result := 'U';
    : result := 'I';
    : result := 'O';
    : result := 'P';
    : result := '[';
    : result := ']';
    : result := '\';
    : result := 'A';
    : result := 'S';
    : result := 'D';
    : result := 'F';
    : result := 'G';
    : result := 'H';
    : result := 'J';
    : result := 'K';
    : result := 'L';
    : result := ';';
    : result := '''';
    : result := 'Z';
    : result := 'X';
    : result := 'C';
    : result := 'V';
    : result := 'B';
    : result := 'N';
    : result := 'M';
    : result := ',';
    : result := '.';
    : result := '/';
    : result := '[Right-Shift]';
    : result := '[Space]';
    : result := '[Esc]';
    : result := '[F1]';
    : result := '[F2]';
    : result := '[F3]';
    : result := '[F4]';
    : result := '[F5]';
    : result := '[F6]';
    : result := '[F7]';
    : result := '[F8]';
    : result := '[F9]';
    : result := '[F10]';
    : result := '[F11]';
    : result := '[F12]';
    : Result := '[Left-Shift]';
    : result := '[CapsLock]';
    : result := '[Backspace]';
    : result := '[Tab]';
    :
      if wp >  then
        result := '[Right-Ctrl]'
      else
        result := '[Left-Ctrl]';
    : result := '[Num /]';
    : result := '[NumLock]';
    : result := '[Print Screen]';
    : result := '[Scroll Lock]';
    : result := '[Pause]';
    : result := '[Num0]';
    : result := '[Num.]';
    : result := '[Num1]';
    : result := '[Num2]';
    : result := '[Num3]';
    : result := '[Num4]';
    : result := '[Num5]';
    : result := '[Num6]';
    : result := '[Num7]';
    : result := '[Num8]';
    : result := '[Num9]';
    : result := '[*5*]';
    : result := '[Num *]';
    : result := '[Num -]';
    : result := '[Num +]';
    : result := '[Insert]';
    : result := '[Delete]';
    : result := '[Home]';
    : result := '[End]';
    : result := '[PageUp]';
    : result := '[PageDown]';
    : result := '[UP]';
    : result := '[DOWN]';
    : result := '[LEFT]';
    : result := '[RIGHT]';
    : result := '[Enter]';
  end;
end;

//钩子回调过程
function HookProc(iCode: integer; wParam: wParam; lParam: lParam): LResult; stdcall;
var
   s:string;
begin
  result:=;//zl add
  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.lst1.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.lst1.Items.Add(s);
  end;
end;

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

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

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

procedure TForm1.edt1Change(Sender: TObject);
var
   i:DWORD;
begin
   if length(edt1.text)<> then exit;
   //映射虚拟键
   i:=MapVirtualKey(ord(edt1.text[]),  );
   edt2.text:=format('%d %x',[i,i]);
end;

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

procedure TForm1.lst1DblClick(Sender: TObject);
begin
  lst1.clear;
end;

end.