Окно запроса при выходе из программы

[Shouldercannon]

procedure TForm4.BExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm4.BQuestionClick(Sender: TObject);
var
  res: Integer;
  FS: TFileStream;
begin
  res := MessageBox(0, 'Обновиться?', '', MB_YESNO or MB_ICONQuestion or MB_DEFBUTTON1); // При MB_DEFBUTTON2 архив не скачивается
  case res of
  IDYES: begin
    FS := TFileStream.Create('_.zip', fmCreate);
    FS.Size := 1024;
    FS.Free;
  end;

  end;
end;

При выходе из программы с окном запроса создаётся архив при MB_DEFBUTTON1, но не при MB_DEFBUTTON2. Можно от этого как-нибудь избавиться.

[Пепел Феникса]

если во втором случае нажать да, то архив не создается?

[Shouldercannon]

Во втором случает (IDNO) не создаётся.

[Пепел Феникса]

дык если вы жмете нет, то ничего и не должно создаться, DEFBUTTON означает какая клавиша будет выделена по умолчанию при появлении мессаджа(для нажатия Enter), не более.

[Shouldercannon]

Значит косяк с выходом из программы при показывающемся окне запроса неисправим.

[Пепел Феникса]

при нажатии на ДА или на НЕТ должно идти действие?

[Shouldercannon]

Действие должно идти при Да
Два варианта развития событий:
1. Пользователь запустил программу и ему предложено обновиться. Поумолчанию DEFBUTTON1, тоесть Да.
2. Пользователь запустил программу и ему предложено обновиться. Поумолчанию DEFBUTTON1, тоесть Да, но он сразуже закрывает программу, после чего начинается и тут же прерывается скачивание обновления. В итоге имеем файл 0 размера.

[Аватар]

MB_DEFBUTTON просто указывает на какую клавишу Enter действует и если MB_DEFBUTTON2 и нужно "да", то мышкой на "да" кликнуть.

[Shouldercannon]

Это понятно. Короче это бесполезно. При первом способе развития событий нужно MB_DEFBUTTON1, при втором MB_DEFBUTTON2.

[Пепел Феникса]

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