| Статистика | 
|
|
Каталог статей
Как выключит экран в Делфи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)
|
|
|
Просмотров: 387
5
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
