Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.09.10;
Скачать: CL | DM;

Вниз

определить выход из спящего режима   Найти похожие ветки 

 
SKIPtr ©   (2014-03-29 06:56) [0]

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


 
©   (2014-03-29 10:24) [1]

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


 
SKIPtr ©   (2014-03-29 10:44) [2]

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


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

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


 
SKIPtr ©   (2014-03-29 14:01) [4]

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

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.



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

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

Наверх




Память: 0.47 MB
Время: 0.059 c
1-1331038264
aXLES1984
2012-03-06 16:51
2015.09.10
Как работает функция VarType?


15-1420308168
Maksim_76
2015-01-03 21:02
2015.09.10
Нет соединения с Интернетом после установки Др.Веб


15-1420010989
brother
2014-12-31 10:29
2015.09.10
С наступающим!


15-1421098202
Юрий
2015-01-13 00:30
2015.09.10
С днем рождения ! 13 января 2015 вторник


15-1412618295
Дмитрий Белькевич
2014-10-06 21:58
2015.09.10
Обновление 1 для Delphi XE6