Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как отловить команду выключения компьютера? [D5, Win95/98]


Vcoder ©   (2002-05-11 19:25:00) 

Можно ли как-нибудь отловить команду выключения компьютера? Т. е. не просто закрытие windows, а команду Пуск->Завершение работы->Выключение компьютера.


Song   (2002-05-11 21:14:00) [1]

В данном примере условие, описанное в процедуре успеет выполниться в любом случае.


Anatoly Podgoretsky   (2002-05-11 21:08:00) [2]

Лучше обрабатывать два сообщения, а то может оказаться, что уже поздно, что либо делать.

WM_ENDSESSION
WM_QUERYENDSESSION


Song   (2002-05-11 20:33:00) [3]

Программа закрывается при завершении сеанса ОС или перезагрузке:
protected</b<
Procedure WhetherWindowsEnds(Var Msg:TMessage); message WM_ENDSESSION;

.....

Procedure TForm1.WhetherWindowsEnds(Var Msg:TMessage);
Begin
IF WParam=1 then MainForm.Close;
End;


Armageddon   (2002-05-11 20:30:00) [4]

Song. Напишите немного подробнее.


Song   (2002-05-11 19:29:00) [5]

WM_ENDSESSION


Наверх

Титульная страница Поиск, карта сайта Написать письмо