Home

Page 66
Page 66
background image

Простые шутки 59

объектными, должны описываться до того, как начнут использоваться, ина-

че компилятор Delphi их не найдет, и во время компиляции произойдет
ошибка.

В процедуре setstate всего три строчки. В первой программа получает теку-

щее состояние

 С ПОМОЩЬЮ

 GetKeyboardState.

Результатом будет переменная-массив Keystate. Во второй строчке изменя-

ется состояние нужной клавиши.

И в последней строке происходит установка нового состояния клавиатуры

С ПОМОЩЬЮ SetKeyboardState.

Пример закончен. Можете запустить его и наслаждаться результатом.

Процедуру

 можно использовать и просто так, без таймера. Доста-

точно добавить эту процедуру в свой проект выше того места кода, где она

будет использоваться. Теперь, чтобы изменить состояние, нужно вызвать
процедуру

 и указать ей в первом параметре код нужной клавиши,

а во втором — значение true или false (включено или выключено). Вот

несколько примеров:

 true);
 false);

 true);

Как программно потушить монитор?

 знаю, как программно, а огнетушителем тушиться за пять сек :).

Я даже помню, как в детстве получил значок юного огнетушителя, тьфу,

пожарника :). А если серьезно, то команда системе выглядит так:

 0) .

Чтобы "зажечь", измените последний параметр на  - 1 .

Запуск системных CPL-файлов

Для этого сначала добавьте в раздел uses модуль

 чтобы вы могли

использовать функцию

 Теперь напишите следующий код:

 Pchar

 , Pchar

 Control_RunDLL

  • ) ,

Функция

 запускает указанную в параметре программу.

Например, нам нужно запустить

 В качестве параметра нужно

передать текст ВОТ такого

 shell32,Control_RunDLL

А вот такой код отобразит окно настроек сети Интернет:

3 Зак. 978


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.