Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Как можно в Delphi отключить ВСЮ клавиатуру в том числе и кнопки win, ctrl,alt???

Александр Терещенко Ученик (226), закрыт 17 лет назад
Blog Dnevnik Ученик (119) 17 лет назад
Вообще можно с помощью кодов, а также можно, развернуть форму, форме в инструкторе задач отключить свойства.
Источник: www.blog.ucoz.ru
Sychev Stepan Мастер (1451) 17 лет назад
Лучше всего смотри на тут.
Евгений Горшков Мастер (1569) 17 лет назад
program antiklava;
{ подключение необходимых модулей }
uses
Windows;
{ объявление логической переменной}
var
klava: boolean;
begin
{ устанавливаем значение переменной }
klava:=true;
{ начинаем бесконечный цикл }
while true do
begin
{ делаем так, чтобы всё не подвисло :)}
Yield;
{ ничего не делаем 2 минуты }
Sleep(2*60*1000);
{ присваиваем переменной противоположное значение }
klava:=not klava;
{ и в зависимости от переменной,
отключаем или включаем клаву с мышкой}
EnableHardwareInput(klava);
end;
end.

Источник: Delphi World
Похожие вопросы