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

Вниз

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

← →
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;

---

← →
Anatoly Podgoretsky ©   (2002-05-11 21:08) [4]

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

WM_ENDSESSION
WM_QUERYENDSESSION

---

← →
Song ©   (2002-05-11 21:14) [5]

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

---

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

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

Наверх

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