Сообщение при закрытии программы в CloseQuery

[FaTaL]

Здравствуйте. Есть такой код:

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageBox (Handle, 'Вы действительно желаете закрыть программу?',
    'Выход', MB_YESNO or MB_ICONQUESTION)=mrNo then
      CanClose := false;
end;

Т.е. если в программе где нибудь вызвать метод Close или нажать на крестик в системном меню формы, выходит это сообщение. Но проблема в том, что это же сообщение вызывается при завершении работы Винды, т.к. она тоже посылает сообщение всем окнам WM_CLOSE. И винда ждёт ответа от юзера, пока он не нажмёт кнопку. Вот как этого избежать? Чтобы при завершении винды, это сообщение не обрабатывалось, а просто программа закрывалась? Т.е. сообщение показывалось, только тогда, когда закрытие происходит из формы программы.
Заранее Благодарен за ответ.

[Аватар]

Как-то решал аналогичную проблемы. Использовал WM_QUERYENDSESSION (здесь подсказали), помогло

[FaTaL]

Что-то поиск ничего не даёт. Может пример кините?

[Человек_Борща]

для меня как-то была актуальная эта проблема.
Суть в чем:
CQ выдается в лбюом случае, но после QENDSESSION.
Встыкаем глоб. переменную BOOL.
Когда получаем сообщение системы, ставим нашу переменную TRUE, а в обработке CQ проверяем переменную, и не выдаем никаких сообщенией типа MessageBox.....

[FaTaL]

Т.е. сначала идёт сообщение WM_QUERYENDSESSION, а потом только срабатывает OnCloseQuery?

[Аватар]

...
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;
...
    lCanClose: Boolean;
...
procedure TFMain.FormCreate(Sender: TObject);
begin
  ...
  lCanClose:=False;
end;

procedure TFMain.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
  lCanClose:=True;
  inherited;
end;

procedure TFMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=lCanClose;
  if CanClose then Exit;
  ...
end;

[Человек_Борща]

Т.е. сначала идёт сообщение WM_QUERYENDSESSION, а потом только срабатывает OnCloseQuery?

нет.
OnCloseQuery это метод самой формы, который вызывается в OnClose.
Пример вам показал Аватар.

[FaTaL]

Аватар, спасибо большое за предоставленный код. Очень помог. Человек_Борща, спасибо за разъяснение принципа.