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

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

определить выход из спящего режима [D7]


SKIPtr ©   (2014-03-29 06:56:00) 

драсте подскажите как программа может узнать что компьютор вышел из спящего режима


SKIPtr   (2014-03-29 14:01:00) [1]

вот сделал модуль

unit PBTi ;
interface

const
 PBT_APMQUERYSUSPEND = $0000;
 {$EXTERNALSYM PBT_APMQUERYSUSPEND}
 PBT_APMQUERYSTANDBY = $0001;
 {$EXTERNALSYM PBT_APMQUERYSTANDBY}

 PBT_APMQUERYSUSPENDFAILED = $0002;
 {$EXTERNALSYM PBT_APMQUERYSUSPENDFAILED}
 PBT_APMQUERYSTANDBYFAILED = $0003;
 {$EXTERNALSYM PBT_APMQUERYSTANDBYFAILED}

 PBT_APMSUSPEND = $0004;
 {$EXTERNALSYM PBT_APMSUSPEND}
 PBT_APMSTANDBY = $0005;
 {$EXTERNALSYM PBT_APMSTANDBY}

 PBT_APMRESUMECRITICAL = $0006;
 {$EXTERNALSYM PBT_APMRESUMECRITICAL}
 PBT_APMRESUMESUSPEND  = $0007;
 {$EXTERNALSYM PBT_APMRESUMESUSPEND}
 PBT_APMRESUMESTANDBY  = $0008;
 {$EXTERNALSYM PBT_APMRESUMESTANDBY}

 PBTF_APMRESUMEFROMFAILURE = $00000001;
 {$EXTERNALSYM PBTF_APMRESUMEFROMFAILURE}

 PBT_APMBATTERYLOW        = $0009;
 {$EXTERNALSYM PBT_APMBATTERYLOW}
 PBT_APMPOWERSTATUSCHANGE = $000A;
 {$EXTERNALSYM PBT_APMPOWERSTATUSCHANGE}

 PBT_APMOEMEVENT = $000B;
 {$EXTERNALSYM PBT_APMOEMEVENT}
 PBT_APMRESUMEAUTOMATIC = $0012;
 {$EXTERNALSYM PBT_APMRESUMEAUTOMATIC}

implementation

end.


~AQUARIUS~   (2014-03-29 12:39:00) [2]

http://www.rsdn.ru/forum/delphi/812566.flat


SKIPtr   (2014-03-29 10:44:00) [3]

спасибо
но вот проблема вставил if Mes.WParam = PBT_APMRESUMESUSPEND then
а он пишет ошибку Undeclared identifier: 'PBT_APMRESUMESUSPEND'


p   (2014-03-29 10:24:00) [4]

PBT_APMRESUMESUSPEND

http://msdn.microsoft.com/en-us/library/windows/desktop/aa373235(v=vs.85).aspx

https://www.google.com/search?num=20&newwindow=1&q=PBT_APMRESUMESUSPEND+delphi&oq=PBT_APMRESUMESUSPEND+delphi&gs_l=serp.12...45918.45918.0.47069.1.1.0.0.0.0.45.45.1.1.0....0...1c.1.38 .serp..1.0.0.ccBlAt_6r48


Наверх

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