program CustomKBApp;

{$R *.res}

uses
  Windows,
  System.SysUtils;

var
  hHookLib: HMODULE;
  HookProc: TFNHookProc;
  hHook: Windows.HHOOK;
begin
  hHookLib := LoadLibrary('CustomKBHookLib.dll');
  if hHookLib = 0 then
    Exit;
  @HookProc := GetProcAddress(hHookLib, 'HookProc');
  if not Assigned(@HookProc) then
    Exit;
  hHook := SetWindowsHookEx(WH_KEYBOARD_LL, @HookProc, hHookLib, 0);
  if hHook = 0 then
    Exit;

OutputDebugString('hook installed');
Sleep(20000);

  UnhookWindowsHookEx(hHook);
OutputDebugString('hook removed');
  FreeLibrary(hHookLib);
end.

library CustomKBHookLib;

uses
  Windows, Messages, 
  System.SysUtils;

{$R *.res}

function HookProc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;
begin
  OutputDebugString('hook');
  Result := CallNextHookEx(0, code, wParam, lParam);
end;

exports
  HookProc;

begin
end.