Главная страница
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.034 c
15-1417530390
MsGuns
2014-12-02 17:26
2015.09.10
Пейдж vs Блэкмор


15-1356233809
Inovet
2012-12-23 07:36
2015.09.10
(3) О чём-то ещё


15-1421076624
Azize
2015-01-12 18:30
2015.09.10
Создание Word файла в Delphi


8-1236500354
deswan
2009-03-08 11:19
2015.09.10
Graphics32 - навигация по изображению


2-1394360821
Novicer
2014-03-09 14:27
2015.09.10
Ошибка Arithmetic exception, numeric overflow, or string truncati