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

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

Не дать уснуть компьютеру. [D7, XP, 2003]


Dracula ©   (2008-01-29 11:39:00) 

Возникла такая проблема, надо сделать так чтоб на время выполнения моей программы компьютер не уходил в спящий режим. Если кто  имеет готовое решение пожалуйста поделитесь. Заранее спасибо!


Николь   (2008-01-29 21:29:00) [1]

WM_POWERBROADCAST с параметрами PBT_APMRESUMEAUTOMATIC или PBT_APMRESUMECRITICAL или PBT_APMRESUMESUSPEND

или
WM_POWERBROADCAST:
begin
  if (wParam = PBT_APMRESUMECRITICAL) or
     (wParam = PBT_APMRESUMESUSPEND) then
  begin
    MessageBox(0, 'Вышли из энергосберегающего режима', '',  
MB_ICONINFORMATION);
    Exit;
  end;
end;


easy   (2008-01-29 16:35:00) [2]

function SetThreadExecutionState(esFlags: Cardinal): Cardinal; stdcall; external kernel32 name 'SetThreadExecutionState';

http://msdn2.microsoft.com/en-us/library/aa373208.aspx


Dracula   (2008-01-29 16:04:00) [3]

смешно :) надо это сделать програмно, но при этом ничего не менять в настройках.


Anatoly Podgoretsky   (2008-01-29 14:14:00) [4]

> Dracula  (29.01.2008 11:39:00)  [0]

В свойствах настройки электропитания.


Наверх

Титульная страница Поиск, карта сайта Написать письмо