Добро пожаловать на наш портал

Выключение монитора на 5 секунд в Delphi 7.
Для создания понадобятся следующие компоненты:

Timer со вкладки System

Создайте глобальную переменную i типа Integer

в разделе var напишите i:integer;

Заходим в обработчик событий onCreate формы и прописываем там:

i:=0;
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, 1);

Заходим в обработчик событий onTimer таймера и прописываем там:

inc(i);
if i=5 then
SendMessage(Application.Handle, wm_SysCommand, SC_MonitorPower, -1);

В итоге должно получиться так:

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;