Завершение работы Windows ?

← →
Novenkij (2003-10-14 01:40) [0]

как узнать о завершении работы windows, после чего закрыть мою программу и выполнить это завершение работы ( Restart, ShutDown ...)

← →
Spawn © (2003-10-14 04:45) [1]

WM_QUERYENDSESSION?

← →
Novenkij (2003-10-14 17:24) [2]

Я пишу так :
private procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION; ... procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession); begin form1.Close; end;

Программа закрывается, но завершение работы далее не выполняется :(

Что делать ? очень надо ...

← →
Opuhshii © (2003-10-14 17:49) [3]

Прочесть хелп о WM_QUERYENDSESSION

А что в справке написано:
"If an application can terminate conveniently, it should return TRUE; otherwise, it should return FALSE. "

procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
inherited;
Msg.Result := 1;
form1.Close;
end;

Одни и те же грабли... В модуле Forms есть свой обработчик wm_QueryEndSession и он всегда возвращает ИСТИНУ, т.е. приложение готово к завершению... Нужно исправлять там...

Завершение работы Windows ? Найти похожие ветки