Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



А почему клавиатура не работает?.."

Ну а теперь продолжение нашего западлостроения на Дельфи. Теперь мы будем баловаться с клавиатурой.


Для начала запусти Дельфи, выбери в меню 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.


Ну вот, всё что нам осталось - CTRL-F9. В следующих выпусках будет больше инфы и примеров. До следующей заподлянки!

P.S. Большинство примеров написано на Win32 API. Если кто-нибудь захочет переписать их под любой другой язык программирования, знайте - это не возбраняется.



--------------------------------------------------------------------------------




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS