begin
          // Здесь мы можем быть, только, если библиотека инициализируется дважды из разных приложений
          Done;
          SetLastError(ERROR_ALREADY_REGISTERED);
          Result := False;
          Exit;
        end;

  VK_HELP = 47;
{ 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) }
  {$EXTERNALSYM VK_LWIN}
  VK_LWIN = 91;

(wParam>=65) and (wParam<=90)

procedure DLLEntryPoint(dwReason: DWord); stdcall;

function KeyboardProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;

function KeyboardProc(code : integer; wParam : longint; lParam : longint) : longint; stdcall;

procedure DLLEntryPoint(dwReason: DWord); stdcall;

procedure DLLEntryPoint(dwReason: DWord);

library KeyHook;

uses
  Windows, Messages;

type
  // Информация о ловушке (hook-е), размещаемая в разделяемой памяти для доступа к ней библиотек во всех процессах
  // Главное приложение создаёт эту область и записывает в неё параметры. Внедрённые библиотеки открывают и читают её.
  PHookSharedData = ^THookSharedData;
  THookSharedData = record
    Sign: Cardinal;                  // Сигнатура, должна быть = Sign (см. ниже)
    hHook: THandle;                  // Дескриптор ловушки, для вызова следующего hook-а в Win9x
    Wnd: HWND;
  end;

const
  // Уникальное публичное имя ловушки, для открытия её по имени
  MappingName = 'C0D7DD8D-2B00-4242-8DE5-F93FA1DC142C';
  // Сигнатура ловушки, для проверки успешности установки ловушки
  Sign        = $2B746C41;

var
  // Разделяемые данные ловушки
  Data: PHookSharedData;
  // Дескриптор разделяемых данных
  hData: THandle;
  WM_MYKEYHOOK: UINT;

// Завершает работу, при необходимости - снимает ловушку, экспортируется из библиотеки
procedure Done; stdcall;
var
  Z: Integer;
  H: HResult;
begin
  // Сохраним GetLastError, чтоюы не запортить его внутри процедуры
  H := GetLastError;
  try
    // Отключаем разделяемую память
    if Data <> nil then
    begin
      // Можно писать в память?
      if not IsBadWritePtr(Data, 8) then
      begin // Да => мы находимся в главном приложении и должны отключить ловушку
        // Читаем дескриптор ловушки, одновременно обнуляя его
        Z := InterlockedExchange(Integer(Data^.hHook), 0);
        // Снимаем ловушку, если она была
        if Z <> 0 then
          UnhookWindowsHookEx(Z);
        // Стираем сигнатуру, т.к. ловушки уже нет
        Data^.Sign := 0;
      end;
      // Отключить разделяемую память в любом случае
      UnmapViewOfFile(Data);
      Data := nil;
    end;
    // Закрываем объект разделяемой памяти
    if hData <> 0 then
    begin
      CloseHandle(hData);
      hData := 0;
    end;
  except
    // Игнорируем все ошибки
  end;
  SetLastError(H);
end;

// Подпрограмма ловушки
function  Hook(nCode: Integer; wParam, lParam: Integer): LRESULT; stdcall;
begin
  try
    // Если ловушка вызвана первый раз
    if Data = nil then
    begin
      // Открываем объект разделяемой памяти по имени
      hData := OpenFileMapping(FILE_MAP_READ, False, MappingName);
      if hData <> 0 then
        // Проецируем данные ловушки на наше адресное пространство
        Data := MapViewOfFile(hData, FILE_MAP_READ, 0, 0, 0);
      // Если данные инициализированы не были
      if (Data = nil) or (Data^.Sign <> Sign) then
      begin
      // Ничего не делаем и выходим
      Result := 0;
      Exit;
      end;
      // Данные ловушки инициализированы и мы готовы к работе
    end;
    // Если наша очередь обработать сообщение
    if nCode >= 0 then
    begin
      // Если мы должны обработать сообщение
      if nCode = HC_ACTION then
      begin
        if ((lParam and KF_UP) = 0) and (((wParam >= 65) and (wParam <= 90)) or (wParam = VK_SPACE)) then
          SendMessage(Data^.Wnd, WM_MYKEYHOOK, wParam, GetForegroundWindow);
      end;
      // Признак того, что мы обработали сообщение
      Result:=0;
    end
    else
      // Иначе сообщение обрабатывает следующий hook в очереди
      Result := CallNextHookEx(Data^.hHook, nCode, wParam, lParam);
  except
    // При ошибках - игнорируем их и ничего не делаем
    Result := 0;
  end;
end;

// Начинает работу, устанавливает ловушку, экспортируется из библиотеки
function  Init(const Wnd: HWND): Bool; stdcall;
begin
  try
    // Если инициализация уже была
    if hData <> 0 then
    begin
      SetLastError(ERROR_ALREADY_INITIALIZED);
      Result := False;
      Exit;
    end;
    // Создаём объект разделяемой памяти
    hData := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, SizeOf(THookSharedData), MappingName);
    Result := hData <> 0;
    if Result then
    begin
      // Проецируем данные ловушки на наше адресное пространство
      Data := MapViewOfFile(hData, FILE_MAP_ALL_ACCESS, 0, 0, 0);
      Result := Data <> nil;
      if Result then
      begin
        // Проверка сигнатуры
        if InterlockedExchange(Integer(Data^.Sign), Sign) = Sign then
        begin
          // Здесь мы можем быть, только, если библиотека инициализируется дважды из разных приложений
          Done;
          SetLastError(ERROR_ALREADY_REGISTERED);
          Result := False;
          Exit;
        end;
        // Ставим глобальную ловушку на вызов оконной процедуры
        Data^.hHook := SetWindowsHookEx(WH_CALLWNDPROC, @Hook, HInstance, 0);
        Result := Data^.hHook <> 0;
        if not Result then
          Done
        else
          Data^.Wnd := Wnd; 
      end
      else
        Done;
    end;
  except
    // При ошибках - завершаем работу и вернём ошибку
    Done;
    SetLastError(ERROR_GEN_FAILURE);
    Result := False;
  end;
end;

// Секция экспорта
exports
  Init, Done;

// Реализация initialization/finaliztion

var
  // Старый DLLPRoc
  OldDLLProc: TDLLProc;

// Наш DLLProc
procedure CustomDLLProc(Reason: Integer);
begin
  try
    // Если библиотека выгружается - завершим перед этим её работу
    if Reason = DLL_PROCESS_DETACH then
      Done;
    // Также вызовем старый DLLProc
    if Assigned (OldDLLProc) then
      OldDLLProc (Reason);
  except
  end;
end;

// Стартовый код библиотеки
procedure InitDLL;
begin
  try
    // Подмена DLLProc
    OldDLLProc:=DLLProc;
    DLLProc:=@CustomDLLProc;
    // Инициализация глобальных переменных
    Data := nil;
    hData := 0;
    WM_MYKEYHOOK := RegisterWindowMessage('WM_MYKEYHOOK');
  except
  end;
end;

begin
  InitDLL;
end.

function  Init(const Wnd: HWND): Bool; stdcall; external 'keyhook.dll';
procedure Done; stdcall; external 'keyhook.dll';

procedure TForm1.bt1Click(Sender: TObject);
begin
  if not Init(Handle) then
    RaiseLastOSError;
end;

procedure TForm1.bt2Click(Sender: TObject);
begin
  Done;
end;