Как заставить свою прогу закрыться при shutdown e Windows?

← →
Вован (2003-09-15 17:32) [0]

Сорри, такой вопрос где-то наверняка уже был:)

← →
Виктор Щербаков © (2003-09-15 17:52) [1]

Конечно был.
Смотри сообщения
WM_QUERYENDSESSION и WM_ENDSESSION

← →
Вован (2003-09-15 18:03) [2]

Не-е...так не пойдет:)
Эти сообщения я уже смотрел-пересмотрел. В литературе, как всегда, описывается так, что ничего не работает.
Если можно, работающий вариант, как для тупых, с кодом:)

← →
clickmaker © (2003-09-15 18:13) [3]

Проверь, нет ли отдельных потоков, которые остаются незавершенными

← →
Вован (2003-09-15 18:19) [4]

Отдельных потоков нет. Вся прога использует один поток.
И вообще, остановимся на простой форме, которая просто открывается и ее можно закрыть. Но мы ее оставляем и делаем шатдаун Винды.
Опять тот же вопрос: как сделать так, чтобы она закрылась перед тем, как машина перезагрузится?

А именно так и работает, если конечно ты не будешь противодействовать.

TForm1 = class(TForm)
......
.....

FShutDown : boolean;
procedure OnWM_QUERYENDSESSION(var Msg: TMessage); message WM_QUERYENDSESSION;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
.....

procedure TForm1.OnWM_QUERYENDSESSION(var Msg: TMessage);
begin
ShutDown:=true;
inherited;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=FShutDown;
end;

Как заставить свою прогу закрыться при shutdown e Windows? Найти похожие ветки