Текущий архив: 2004.11.21;
Скачать: CL | DM;

Вниз

Монитор   Найти похожие ветки 

← →
Clampo ©   (2004-10-10 21:37) [0]

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

---

← →
GuAV ©   (2004-10-10 23:12) [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;

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.21;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.047 c