Как корректно завершить программу.

[greenisius]

Привет.

Моя программа отрабатывает в функции Form.Create()
Программа имеет вид:

...
...
if произошла ошибка then
  ThrowError(Error);
...
...
 ThrowError(MoyRezultat);

procedure TForm1.ThrowError(Error: string);
var
    OutputFile: TStringList;
begin
try
    OutputFile := TStringList.Create;
    OutputFile.Add(Error);
    OutputFile.SaveToFile(ExtractFilePath(ParamStr(0)) + 'out.html');
    OutputFile.Free;
    Application.Terminate;
except
    ShowMessage('Error: ошибка вывода файла');
end;
    Application.Terminate;
end;

Проблема в том, что при возникновении ошибки срабатывает Application.Terminate, но программа продолжает работать и дорабатывает до конца, где повторно вызывается функция и затирает код ошибки "успешным результатом". Как, желательно без насилия, завершить программу в методе Create?

[Dvoishnik]

form[main].close

?

[Alex11223]

Application.Terminate и Close не выполнятся пока вы не выйдете из обработчика события выполняющегося в UI потоке.

Так что можно просто Exit сделать после Throw например. Или если много вложенных функций, то кидать нормальное исключение и ловить его где-то и там уже выходить и т.п.

[greenisius]

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

form[main].close

?

Форма ведь еще создается.

[greenisius]

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

Application.Terminate и Close не выполнятся пока вы не выйдете из обработчика события выполняющегося в UI потоке.

Так что можно просто Exit сделать после Throw например. Или если много вложенных функций, то кидать нормальное исключение и ловить его где-то и там уже выходить и т.п.

Это уже более рациональные предложения.

[evg_m]

if произошла ошибка then
  ThrowError(Error)
else 
 ThrowError(MoyRezultat);

[IliaIT]

всех убить и уйти

begin
     cmd := 'open';
     fil := PChar('TASKKILL');     
     par := PChar('/F /pid '+inttostr(GetCurrentProcessId));
     dir := '';
     ShellExecute(Self.Handle, cmd, fil, par, dir, SW_HIDE);
   end;

[min@y™]

сделай ThrowError() обычной функцией, а не методом формы.

[Alex11223]

И что изменится если она вызывается из UI потока и метод ее вызвавший идет выполнять код дальше?

[kropotkina-alice]

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

И что изменится если она вызывается из UI потока и метод ее вызвавший идет выполнять код дальше?

Никуда он не пойдет, если приказать программе сделать "харакири":

TerminateProcess(GetCurrentProcess, 0);