[infopol]

Сообщение от lmikle

Enable - просто убери свой хук и все должно работать.
Установка JEDI - ну это не всегда простой процесс. Для начала надо убедиться, что поддерживается твоя версия компилятора. Потом надо смотреть в какой последовательности надо компилить и устанавливать пакеты. Я вообще с JEDI не стал связываться, но есть подобный опыть для DevExpress.

Код:

function DisableKeyboard : boolean;
begin
  if Hook = 0 then
    // install the hook
    // Hook := SetWindowsHookEx(WH_KEYBOARD, @KBHookHandler, HINSTANCE, 0);
    Hook := SetWindowsHookEx(WH_KEYBOARD, @KBHookHandler, 0, 0);
  Result := Hook <> 0;
  //ShowMessage(IntToStr(Hook));
end;

function EnableKeyboard : boolean;
begin
  if Hook = 0 then
    // install the hook
    // Hook := SetWindowsHookEx(WH_KEYBOARD, @KBHookHandler, HINSTANCE, 0);
    //Hook :=
     SetWindowsHookEx(WH_KEYBOARD, @KBHookHandler, 1, 0);
  Result := true;
end;

Disable не работает дает False.
Может ее использовать?