Глобальный хук на клавиатуру и мышь без dll

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    lbl1: TLabel;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  hHook1:THandle;
  hHook2:THandle;
  
implementation
 
{$R *.dfm}
 
function KeyBoardHook(nCode:Integer; WParam:WPARAM; LParam:LPARAM) : LRESULT stdcall;
begin
  Form1.lbl1.Caption:=IntToStr(GetTickCount div 60000)+':'+IntToStr((GetTickCount mod 60000) div 1000);
  Result:=CallNextHookEx(hHook1,nCode,WParam,LParam)
end;
 
function MouseHook(nCode:Integer; WParam:WPARAM; LParam:LPARAM) : LRESULT stdcall;
begin
  Form1.lbl1.Caption:=IntToStr(GetTickCount div 60000)+':'+IntToStr((GetTickCount mod 60000) div 1000);
  Result:=CallNextHookEx(hHook2,nCode,WParam,LParam)
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  hHook1:=SetWindowsHookEx(13,KeyBoardHook,HInstance,0);
  if hHook1=0 then RaiseLastOSError;
 
  hHook2:=SetWindowsHookEx(14,MouseHook,HInstance,0);
  if hHook2=0 then RaiseLastOSError;
end;
 
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  Windows;
 
var
  hHook1:THandle;
  hHook2:THandle;
 
function KeyBoardHook(nCode:Integer; WParam:WPARAM; LParam:LPARAM) : LRESULT stdcall;
begin
//  Form1.lbl1.Caption:=IntToStr(GetTickCount div 60000)+':'+IntToStr((GetTickCount mod 60000) div 1000);
//  WriteLn(IntToStr(GetTickCount div 60000)+':'+IntToStr((GetTickCount mod 60000) div 1000));
  MessageBox(0,'','',0);
  //Result:=CallNextHookEx(hHook1,nCode,WParam,LParam)
end;
 
function MouseHook(nCode:Integer; WParam:WPARAM; LParam:LPARAM) : LRESULT stdcall;
begin
 
//  Form1.lbl1.Caption:=IntToStr(GetTickCount div 60000)+':'+IntToStr((GetTickCount mod 60000) div 1000);
//WriteLn(IntToStr(GetTickCount div 60000)+':'+IntToStr((GetTickCount mod 60000) div 1000));
MessageBox(0,'','',0);
  //Result:=CallNextHookEx(hHook2,nCode,WParam,LParam)
end;
 
function StartTimer:Boolean;
begin
  Result:=False;
  hHook1:=SetWindowsHookEx(13,KeyBoardHook,HInstance,0);
  hHook2:=SetWindowsHookEx(14,MouseHook,HInstance,0);
if (hHook1<>0) and (hHook2<>0) then Result:=True;
end;
 
begin
  WriteLn(StartTimer);
  While True do
  begin
    Sleep(1000);
  end;
end.