Клава&мышь

[MAcK]

Как заблокировать клаву и мышь и на оборот

[UnD)eaD)Snake]

вот про клаву нарыл:

// используемые переменные
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.KeyBoardOn(Sender: TObject);
begin
if OldKbHook <> 0 then
begin
UnHookWindowshookEx(OldKbHook);
OldKbHook := 0;
end;
SystemParametersInfo(SPI_SETFASTTAS KSWITCH, 0, 0, 0);
SystemParametersInfo(SPI_SCREENSAVE RRUNNING, 0, 0, 0);
end;

// выключение клавы

procedure TForm1.KeyBoardOff(Sender: TObject);
begin
SystemParametersInfo(SPI_SETFASTTAS KSWITCH, 1, @Dummy, 0);
SystemParametersInfo(SPI_SCREENSAVE RRUNNING, 1, @Dummy, 0);
OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
end;



Некоторые замечания по поводу этих процедур:

• Если программу упаковать UPX-ом - клава не будет отключаться (причин не знаю).
• В ДОС-окне клава будет работать (FAR, VC и т.п.)
• Состояния клавиш NumLock,CapsLock,ScrollLock не отслеживаются и могут быть изменены.
• Возможно EnableHardwareKeyboard более эффективен и прост, но я тоже, к сожалению, не знаю, как им пользоваться.
• Если вместо WH_KEYBOARD поставить WH_MOUSE, то можно выключать таким образом мышь :-)

[still_alive]

BlockInput

[Aleksandr]

//Выключение курсора
procedure TForm1.Button1Click(Sender: TObject);
var
CState: Integer;
begin
CState := ShowCursor(True);
while Cstate >= 0 do Cstate := ShowCursor(False);
end;
//Включениекурсора
procedure TForm1.Button2Click(Sender: TObject);
var
Cstate: Integer;
begin
Cstate := ShowCursor(True);
while CState < 0 do
CState := ShowCursor(True);
end;

[MAcK]

ВСЕМ БОЛЬШОЕ СПАСИБО

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

BlockInput

Это как понять?

[still_alive]

UnD)eaD)Snake, ты лучше бы ссылку дал на delphiworld или drkb, это полезней для спрашивающего...
А понять так: The BlockInput function blocks keyboard and mouse input events from reaching applications.