В 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) |