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

Вниз

Сообщение о выходе системы из ждущего режима   Найти похожие ветки 

← →
Fredericco ©   (2002-05-29 14:52) [0]

Привет всем! Никто не подскажет почему не работает следующий код. Точнее почему не срабатывает ShowMessage();

procedure WMPowerBroadcast (var Message : TMessage); message WM_POWERBROADCAST;
....
....
Procedure TForm1.WMPowerBroadcast(var Message : TMessage) ;
Begin
IF (Message.wParam = WM_POWERBROADCAST)
then begin
Application.ProcessMessages;
Sleep(1000);
ShowMessage("OK");
Button3.Click;
end Else inherited;
//536
End;


---

← →
Игорь Шевченко ©   (2002-05-29 14:56) [1]

if Message.wParam = PBT_APMRESUMESUSPEND попробуй

---

← →
Pat ©   (2002-05-29 15:07) [2]

Только такой константы Делфине знает, придется смотреть какому числу она равна

---

← →
Song ©   (2002-05-29 15:18) [3]

4

---

← →
Fredericco ©   (2002-05-30 10:35) [4]

Спасибо за ответы!
При выходе из ждущего режима. Message.wParam
Принимает такие значения 0 18 4 7. Если вдруг кому еще надо.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.01 c