[UZER]

Можно ли отключить клавиатуру во всей системе?
Нашел вего один пример:

Код:

program antiklava;
uses Windows; { подключение необходимых модулей }
var
klava:boolean; { объявление логической переменной}
begin
klava:=true; { устанавливаем значение переменной }
while true do { начинаем бесконечный цикл }
begin
Yield; { делаем так, чтобы всё не подвисло :)}
Sleep(2*60*1000); { ничего не делаем 2 минуты }
klava:=not klava; { присваиваем переменной противоположное значение }
EnableHardwareInput(klava); { и в зависимости от переменной, 
отключаем или включаем клаву с мышкой}
end;
end.

Но на ЕnableHardwareInput Delphi ругается, что такого не существует.
Заранее спасибо за помоСЧь

[s]Исправлено: UZER, 6:29 31-03-2004[/s]