VPF::Заблокировать/откл. клавы включая комбинации

BEST13

Дата 16.11.2011, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 11.4.2008
Где: Ukraine

Репутация: нет
Всего: нет

Доброго времени суток!
Вообщем, есть задача: нужно заблокировать/отключить клавиатуру. В поиске искал, но решения не нашел.
Я это делаю через хук(hook). Он работает, но отлавливает только единичное нажатие клавиш. А вот комбинации пропускает.
blockInput, пропускает Ctrl+ALT+DEL. можно было бы отключить TaskMgr, но в WIn7 это комбинация вызывает Экран, с которого можно заблочить комп и запустить диспетчер завершить работу и ТП .
Я думал может можно, клаву как-то вобще вырубить, типа как через Диспетчер устройств?
Хук:

Код


library HookDLL;

uses
  SysUtils,
  Classes,
  Windows;

const KF_UP_MY = $40000000;
var CurrentHook: HHook;

{$R *.res}
function GlobalKeyBoardHook(code: integer; wParam: integer; lParam:
integer): longword; stdcall;
var
i:integer;
begin
  if code< 0 then
   begin
     result:=CallNextHookEx(0,code,wParam,lparam);
     Exit;
   end;
   if ( (lParam and KF_UP_MY ) = 0) and (wParam>=1) and (wParam<=254) then

    result:=1;
    CallNextHookEx(0,code,wParam,lparam);
end;
procedure SetupGlobalKeyBoardHook;
begin
  CurrentHook:=SetWindowsHookEx(WH_KEYBOARD, @GlobalKeyBoardHook,HInstance, 0);
  KeyArrayptr:=0;
end;
procedure UnHook;
begin
  UnhookWindowshookEx(CurrentHook);
end;

exports
SetupGlobalKeyBoardHook, UnHook;

begin
end.

BEST13

Дата 18.11.2011, 01:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 166
Регистрация: 11.4.2008
Где: Ukraine

Репутация: нет
Всего: нет

Переделал, через WH_KEYBOARD_LL

MetalFan

Дата 20.11.2011, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 16
Всего: 128

BEST13, LL действительно надежнее, но CAD все равно не заблокируешь им)

--------------------

There are always someone smarter than you...

drkot

Дата 16.1.2012, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: нет
Всего: 8

отключать можно путем игнорирования событий от клавиатуры
покопай в сторону SetMouse (не уверен в правильности) есть аналоги для клавиатуры

единственная проблема в том что включить клавиатуру с клавиатуры не получится (сорь за каламбур)

--------------------

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

Delvish

Дата 22.1.2012, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник
Сообщений: 136
Регистрация: 13.12.2006

Репутация: 2
Всего: 4

Когда-то делал нечто подобное - просто если событие клавиатурное - не передавал хук дальше. Разблокировка с клавы возможна - перед завершением процедуры, которая ловила клаву, дописал проверку что если набрано 'EXIT', то библиотека выгружалась. Но с комбинациями что-то не припомню что я делал

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »