Я использую этот код, он отключает и клаву и мышь (мышь как бы двигается но ничего ей сделать нельзя, а вот по клавиатуре не блокируются некоторые сочетания
клавишь, например win+r и пуск, но в сочетании с блокировкой мыши выполнение каких либо действий всё равно блокируется!
Код
var
Dummy: integer = 0;
OldKbHook: HHook = 0;
implementation
function KbHook(code: Integer; wparam: Word; lparam: LongInt):
LongInt; stdcall;
begin
if code < 0 then
Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
else
Result := 1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
OldKbHook := SetWindowsHookEx(WH_MOUSE, @KbHook, HInstance, 0);
end
В связи с этим вопрос:
- Каким кодом отключить отдельно кнопку ПУСК;
- Каким кодом отключить сочетание win+r и отдельно win;
- Каким кодом отключить безопасный режим.