Статистика | Зарегистрировано на сайте: Всего: 51647
Онлайн всего: 33 Гостей: 33 Пользователей: 0
|
|
Каталог статей
Как выключит экран в Делфи7?
В uses добавляем ExtCtrls
Вводим глобальную пременную
i:integer;
2 раза щелкаем по форме и прописываем туда:
procedure TForm1.FormCreate(Sender: TObject); begin i:=0; SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 1); end;
идаем на форму таймер и прописываем туда:
procedure TForm1.Timer1Timer(Sender: TObject); begin inc(i); if i=5 then SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, -1); end;
Запускаем программу и экран выключается на 5 секунд(как это указанно в коде) время можно изменить, задав значание i нужного времени(if i=5 then)
|
|
Просмотров: 407
| Рейтинг: 1.0/
5
Оштрафовать
| Жаловаться на материал |
|
|