| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Монитор [D7, WinME]

Clampo ©   (2004-10-10 21:37:00) 

Привет всем!!! Подскажите как сделать так чтобы при работе проги(моей) монитор никогда не перешёл в режин низкого энергопотребления?

---

GuAV   (2004-10-10 23:12:00) [1]

У меня вроде так получилось (по аналогии с SC_SCREENSAVE)
type
 TForm1 = class(TForm)
 private
   { Private declarations }
   procedure WMSysCommand(var Message: TWMSysCommand); Message WM_SYSCOMMAND;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
 if Message.CmdType = SC_MONITORPOWER then
   Message.Result := 0
 else
   inherited;
end;

---

Наверх