Перехват событий клавиатуры

[CODeRUS]

Как правильно перехватывать нажатия на клаву во ВСЕХ приложениях?
Как перехватить нажатие, изменить значение на нужное и послать дальше винде (переназначить)?

[Rouse_]

 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
var
  hHook: THandle;
 
{$R *.dfm}
 
function LowLevelKeyboardProc(nCode: Integer;
  WParam: WPARAM; LParam: LPARAM): LRESULT stdcall;

type
  PKbdDllHookStrukt = ^TKbdDllHookStrukt;
  _KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: PDWORD;
  end;
  TKbdDllHookStrukt = _KBDLLHOOKSTRUCT;
 
const
  RPT_WPARAM_DATA = 'Keyboard message = %s ';
  RPT_LPARAM_DATA = 'scan code = %s [%d]';

var
  StrResult: String;
begin
  StrResult := '';
  if nCode = HC_ACTION then
    Result := CallNextHookEx(hHook, nCode, WParam, LParam);
  case WParam of
    WM_KEYDOWN: StrResult := Format(RPT_WPARAM_DATA, ['WM_KEYDOWN']);
    WM_KEYUP: StrResult := Format(RPT_WPARAM_DATA, ['WM_KEYUP']);
    WM_SYSKEYDOWN: StrResult := Format(RPT_WPARAM_DATA, ['WM_SYSKEYDOWN']);
    WM_SYSKEYUP: StrResult := Format(RPT_WPARAM_DATA, ['WM_SYSKEYUP']);
  end;
  StrResult := StrResult + Format(RPT_LPARAM_DATA, [
    Chr(PKbdDllHookStrukt(LParam)^.vkCode), PKbdDllHookStrukt(LParam)^.vkCode]);
  Form1.Memo1.Lines.Add(StrResult);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
const
  WH_KEYBOARD_LL = 13;
begin
  hHook := SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, hInstance, 0);
  if hHook = 0 then RaiseLastOSError;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  if not UnhookWindowsHookEx(hHook) then RaiseLastOSError;
end;
 
end.

[CODeRUS]

Спасибо, оч интересно, но как быть с не буквенно-цифровыми клавишами?
И как переделать код, чтобв передавал только цифровой код, или только ASCII?

[CODeRUS]

Переделал таки я код, чтобы выдавался только цифровой код в переменную.. А как теперь его сконвертировать в название клавиши?

[rpy3uH]

функция chr конвертирует число типа integer в символ char
пример

var
  s:shar;
s:=chr(65);

после чего s будет иметь значение 'A'

функция ord конвертирует символ char в число типа integer
пример

var
  с:integer;
с:=ord('A');

после чего с будет иметь значение 65

[JTG]

Или может ToAscii/ToAsciiEx тогда не будет проблем с перхваченным русским текстом, djn nfrb[, если конечно это для кейлоггера

http://msdn2.microsoft.com/en-us/library/ms646316.aspx

[CODeRUS]

А как быть с функц клавишами?

[YoraG]

Весьма благодарен за исходник, очень долго искал, а тут вот те на - работает код

[rpy3uH]

Рекомендую почитать вот это. Там есть исходник кейлоггера.