CanClose=False и проблема завершения работы винды

[alextrof94]

В общем сабж для меня не в новинку, в других случаях была возможность обойти.

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageBox(Handle, 'Выйти из программы?', 'Выход', MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = IDYES then
    CanClose:=True
  else
    CanClose:=False;
end;

При таком раскладе винда отказывается завершать работу, пока программа не будет закрыта (т.е. пока не будет выбран ответ "Да").
Собственно, вопрос: как обрабатывать сообщения ТОЛЬКО от крестика, чтоб винда (и не только она) могла спокойно закрыть приложение?

[Аватар]

http://programmersforum.ru/showthrea...ueryEndSession

[s-andriano]

Я фигею от таких конструкций...

Сообщение от alextrof94

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageBox(Handle, 'Выйти из программы?', 'Выход', MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = IDYES then
    CanClose:=True
  else
    CanClose:=False;
end;

Зачем писать

if (((a=true) = true) = true) = true then
  b := true
else
  b := false;

вместо

b := a;

Так и в данном примере:

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:= MessageBox(Handle, 'Выйти из программы?', 'Выход', MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = IDYES;
end;