Выход из программы при входе в спящий режим

[Konstantin_ua]

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

[Stilet]

Вот только недавно была тема про сообщения. Кажись я там давал ссыль на чтиво по WM_POWER и иже с ними. Посмотри, буквально вчерашняя тема на форуме.

[Konstantin_ua]

Сообщение от Stilet

Вот только недавно была тема про сообщения. Кажись я там давал ссыль на чтиво по WM_POWER и иже с ними. Посмотри, буквально вчерашняя тема на форуме.

да нашел.спасибо.

TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WMPowerBroadcast(var MyMessage: TMessage); message WM_POWERBROADCAST;
end;

procedure TForm1.WMPowerBroadcast(var MyMessage: TMessage);
begin
if MyMessage.Msg = WM_POWERBROADCAST
then begin 
if (MyMessage.WParam = PBT_APMSUSPEND) or
  (MyMessage.WParam = PBT_APMSTANDBY) or 
    (MyMessage.WParam = PBT_APMQUERYSUSPEND) or
      (MyMessage.WParam = PBT_APMQUERYSTANDBY)
then begin
 MyMessage.Result := BROADCAST_QUERY_DENY; // Standby/запретить спящий
end;
end;
inherited; 
end;

код если кому надо

[palevg]

Решил ради интереса потестить данный код.
На всех четырёх PBT_ххх выдаёт ошибку "Undeclared identifier".
Подозреваю, что в USES надо указать библиотеку. Но вот какую, даже с гуглем не помогло. Или не в том проблема?

[MODBUS]

...модуль 'windows.pas', константы:

const
  { wParam for WM_POWERBROADCAST message  }

  {$EXTERNALSYM PBT_APMQUERYSUSPEND}
  PBT_APMQUERYSUSPEND             = $0000;
  {$EXTERNALSYM PBT_APMQUERYSTANDBY}
  PBT_APMQUERYSTANDBY             = $0001;
  {$EXTERNALSYM PBT_APMQUERYSUSPENDFAILED}
  PBT_APMQUERYSUSPENDFAILED       = $0002;
  {$EXTERNALSYM PBT_APMQUERYSTANDBYFAILED}
  PBT_APMQUERYSTANDBYFAILED       = $0003;
  {$EXTERNALSYM PBT_APMSUSPEND}
  PBT_APMSUSPEND                  = $0004;
  {$EXTERNALSYM PBT_APMSTANDBY}
  PBT_APMSTANDBY                  = $0005;
  {$EXTERNALSYM PBT_APMRESUMECRITICAL}
  PBT_APMRESUMECRITICAL           = $0006;
  {$EXTERNALSYM PBT_APMRESUMESUSPEND}
  PBT_APMRESUMESUSPEND            = $0007;
  {$EXTERNALSYM PBT_APMRESUMESTANDBY}
  PBT_APMRESUMESTANDBY            = $0008;
  {$EXTERNALSYM PBTF_APMRESUMEFROMFAILURE}
  PBTF_APMRESUMEFROMFAILURE       = $00000001;
  {$EXTERNALSYM PBT_APMBATTERYLOW}
  PBT_APMBATTERYLOW               = $0009;
  {$EXTERNALSYM PBT_APMPOWERSTATUSCHANGE}
  PBT_APMPOWERSTATUSCHANGE        = $000A;
  {$EXTERNALSYM PBT_APMOEMEVENT}
  PBT_APMOEMEVENT                 = $000B;
  {$EXTERNALSYM PBT_APMRESUMEAUTOMATIC}
  PBT_APMRESUMEAUTOMATIC          = $0012;

[palevg]

Сообщение от MODBUS

...модуль 'windows.pas', константы...

Почти уверен был, что они в нём ))
Но ошибку ведь выдавало!
Короче, проблема вообще не проблема - Делфя у меня такая древняя, что в 'windows.pas' раздела WM_POWERBROADCAST нет вообще

[MODBUS]

...сочувствую, просто скопируйте константы. Да и в конце концов http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx поиском прошлись бы.

у меня такая древняя

да и у нас не XE. Будьте конкретнее.

[Аватар]

Вообще-то Messages в Д7. Или еще древнее?

[palevg]

Сообщение от MODBUS

...сочувствую, просто скопируйте константы. Да и в конце концов http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx поиском прошлись бы.

да и у нас не XE. Будьте конкретнее.

Всё, что ни делается, - к лучшему ))
Другими словами, эта тема заставила меня поставить Делфю новее (выбор пал на 2007). А была Д6, она да -древнее чем Д7
Кстати, теперь данный код компилится на ура.