delphi-lubitel

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

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Выключение монитора в Delphi 7

Наш опрос

Как вы попали на сайт ???
Всего ответов: 487

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Выключение монитора на 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;
Внимание работает только в Windows XP
 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432