Закрыть программу, при ошибке

[Dr.Badnezz]

Всем здрасте. Вот код:

Procedure TForm1.OpenOptions(M: TMemo; F: string);
begin
  If FileExists(F + 'options.ini') = false then begin
   ShowMessage('FATAL ERROR!!!!!');
   end else
  begin
    M.Lines.LoadFromFile(f + 'options.ini');
  end;
end;

Этот код я сую в Create

procedure TForm1.FormCreate(Sender: TObject);
begin
OpenOptions(Memo2,SetDirectory);
end;

Вопрос, как сделать, чтобы при вызове ShowMessage('FATAL ERROR!!!!!'); приложение закрылось, не успев запуститься?

[Dr.Badnezz]

Все, разобрался использовал Application.Terminate;. Модераторы, удалите тему.

[Google[Bot]]

begin
   Close();
   //ShowMessage('FATAL ERROR!!!!!');
end

[Dr.Badnezz]

Google[Bot] может вы не поняли, но ShowMessage('FATAL ERROR!!!!!'); должно быть показано.

[Google[Bot]]

Тогда раскоментировать и поменять местами с Close

[mihali4]

Для того, чтобы сделать CLOSE, сначала должно произойти OPEN.
А условие стоит такое - "как сделать, чтобы приложение закрылось, не успев запуститься?".
Так что ваше решение, Dr.Badnezz, является разумным.

[QunneD]

Google[Bot], вместо close лучше всегда использовать terminate

MessageBox(0, 'FATAL ERROR!!!!!', 'Error', MB_ICONERROR);
Application.Terminate;

[Terran]

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

Google[Bot], вместо close лучше всегда использовать terminate

MessageBox(0, 'FATAL ERROR!!!!!', 'Error', MB_ICONERROR);
Application.Terminate;

Так же можно использовать Halt;