[ilsen_diaz]

Вот такая задача - нужно отключить/включить клавиатуру. Как это сделать и какие модули использовать?
Есть такой пример:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

// используемые переменные var Dummy     : ildKbHook : HHook=0;   impementation   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_SETFASTTASKSWITCH, 0, 0, 0); SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, 0, 0); end;   // выключение клавы procedure TForm1.KeyBoardOff(Sender: TObject); begin SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0); SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0); OldKbHook := SetWindowsHookEx( WH_KEYBOARD, @KbHook, HInstance, 0 ); end;

Admin: Пользуемся тегами!

но он не работает(((
Помогите плз...