Приветствую Вас Гость | RSS

Меню сайта

Категории раздела
Мои статьи [11]
Видео [3]

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Главная » Статьи » Мои статьи

Выключение\включение подсветки монитора в windows 7
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);//отключение
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);//включение

 

Вопрос:
Как программно выключить монитор?

Ответ:
Программно можно отключить монитор совместимый со стандартом EnergyStar.

Отправьте сообщение wm_SysCommand с параметром WParam = SC_MonitorPower

 и LParam = 0 для отключения монитора 
 LParam = 1 для включения монитора


В приведенном примере монитор отключается на 10 секунд.

Пример:

 type 
 TForm1 = class(TForm) 
 Button1: TButton; 
 Timer1: TTimer; 
 procedure FormCreate(Sender: TObject); 
 procedure Timer1Timer(Sender: TObject); 
 procedure Button1Click(Sender: TObject); 
 private 
 { Private declarations } 
 public 
 MonitorOff : bool; 
 { Public declarations } 
 end; 
 
 var 
 Form1: TForm1; 
 
 implementation 
 
 {$R *.DFM} 
 
 procedure TForm1.FormCreate(Sender: TObject); 
 begin 
 Timer1.Enabled := false; 
 Timer1.Interval := 10000; 
 MonitorOff := false; 
 end; 
 
 procedure TForm1.Timer1Timer(Sender: TObject); 
 begin 
 if MonitorOff then begin 
 MonitorOff := false; 
 SendMessage(Application.Handle, 
 wm_SysCommand, 
 SC_MonitorPower, 
 -1); 
 Timer1.Enabled := false; 
 end; 
 end; 
 
 procedure TForm1.Button1Click(Sender: TObject); 
 begin 
 MonitorOff := true; 
 Timer1.Enabled := true; 
 SendMessage(Application.Handle, 
 wm_SysCommand, 
 SC_MonitorPower, 
 0); 
 end; 
Категория: Мои статьи | Добавил: Mitiay (04.06.2014)
Просмотров: 552 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
  Мой сайт   Главная   Регистрация   Вход  
Форма входа

Поиск

  • Есть вопросы?
  • Друзья сайта


    Разработка программного обеспечения
    Copyright MyCorp © 2024 Бесплатный хостинг uCoz