| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сообщение о выходе системы из ждущего режима [D4, Win95/98, WinME]
Fredericco © (2002-05-29 14:52:00)Привет всем! Никто не подскажет почему не работает следующий код. Точнее почему не срабатывает 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;
Fredericco (2002-05-30 10:35:00) [1]Спасибо за ответы!
При выходе из ждущего режима.Message.wParam
Принимает такие значения 0 18 4 7. Если вдруг кому еще надо.
Song (2002-05-29 15:18:00) [2]4
Pat (2002-05-29 15:07:00) [3]Только такой константы Делфине знает, придется смотреть какому числу она равна
Игорь Шевченко (2002-05-29 14:56:00) [4]if Message.wParam = PBT_APMRESUMESUSPEND попробуй
| |
