Как отловить команду выключения компьютера?

← →
Vcoder © (2002-05-11 19:25) [0]

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

← →
Song © (2002-05-11 19:29) [1]

WM_ENDSESSION

← →
Armageddon © (2002-05-11 20:30) [2]

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

← →
Song © (2002-05-11 20:33) [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;

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

WM_ENDSESSION
WM_QUERYENDSESSION

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

Как отловить команду выключения компьютера? Найти похожие ветки