Привет.

Как в Делфи завершить приложение из середины процедуры? Это надо сделать при исключении. Сейчас сделано Application.Terminate. Это не подходит, т.к надо еще выгрузить длл. Заменить на raise и т.д.? Если ставлю MainForm.Close, то потом процедура продолжается.

procedure
begin
...
try
...
except
  Application.Terminate
  //MainForm.Close;
end;
...
except
...
end;

Здравствуйте, demidov2, Вы писали:


D>Если ставлю MainForm.Close, то потом процедура продолжается.

а если слудующей строкой добавить exit? это даст выход с процедуры.

Здравствуйте, OdesitVadim, Вы писали:

OV>Здравствуйте, demidov2, Вы писали:

D>>Если ставлю MainForm.Close, то потом процедура продолжается.

OV>а если слудующей строкой добавить exit? это даст выход с процедуры.

Спасибо. Да, это выход, но в проге ОЧЕНЬ много таких кусков и заменять одну строку на две долго. Часто надо будет begin — end вставлять.

Здравствуйте, OdesitVadim, Вы писали:

OV>Здравствуйте, demidov2, Вы писали:


D>>Если ставлю MainForm.Close, то потом процедура продолжается.

OV>а если слудующей строкой добавить exit? это даст выход с процедуры.

Чего же Борланд OnTerminate для Application не сделал?!

Здравствуйте, demidov2, Вы писали:

D>Здравствуйте, OdesitVadim, Вы писали:

OV>>Здравствуйте, demidov2, Вы писали:

D>>>Если ставлю MainForm.Close, то потом процедура продолжается.

OV>>а если слудующей строкой добавить exit? это даст выход с процедуры.

D>Спасибо. Да, это выход, но в проге ОЧЕНЬ много таких кусков и заменять одну строку на две долго. Часто надо будет begin — end вставлять.
можно и по другому. Генерить ошибку с помощью Raise.
А также поставить на форму ApplicationEvents (Additional) и там перехватывать. Только для полного счастья можно генерить не обычное исключение, а наследоваться.

type EMyExc = EExcepion;

...
procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
  if e is EMyExc then halt;//ну можно и не так жестоко выходить
end;

потом можно и фильтровать свои

Здравствуйте, demidov2, Вы писали:

D>Чего же Борланд OnTerminate для Application не сделал?!
А нафига оно, если есть OnMessage, в котором можно обработать WM_QUIT? Я задал себе этот вопрос и полез экспериментировать. Оказалось, что WM_QUIT в OnMessage не ловится (и я, кажется, понял почему).
Если честно мне кажется, что обрабатывать экстренное завершение надо перед вызовом Application.Terminate или вообще плюнуть на такую обработку, понадеявшись на нормальное завершение с очисткой используемых ресурсов самой средой выполнения.

Здравствуйте, demidov2, Вы писали:

D>Как в Делфи завершить приложение из середины процедуры? Это надо сделать при исключении. Сейчас сделано Application.Terminate. Это не подходит, т.к надо еще выгрузить длл. Заменить на raise и т.д.? Если ставлю

Не очень понятно, чем не подходит, и что препятствует выгрузке длл.
Это ж не TerminateProcess

Но, если очень хочется, можно использовать AddTerminateProc —
они выполняются до обработки WM_QUIT.

Здравствуйте, SeLarin, Вы писали:

SL>А нафига оно, если есть OnMessage, в котором можно обработать WM_QUIT? Я задал себе этот вопрос и полез экспериментировать. Оказалось, что WM_QUIT в OnMessage не ловится (и я, кажется, понял почему).

А чего там может показаться, см. Forms.pas TApplication.ProcessMessage

    if Msg.Message <> WM_QUIT then
    begin
      Handled := False;
      if Assigned(FOnMessage) then FOnMessage(Msg, Handled);

Здравствуйте, Leonid Troyanovsky, Вы писали:

LT>А чего там может показаться, см. Forms.pas TApplication.ProcessMessage
Ну да, я так и подумал. Просто в исходники VCL было лень залезать.

Здравствуйте, demidov2.

я делал так (до сих пор стыдно)

TerminateProcess(GetCurrentProcess, 0);

Здравствуйте, Суслик, Вы писали:

С>

С>TerminateProcess(GetCurrentProcess, 0);
С>

Вообще есть более мягкая процедура ExitProcess(<код возврата>)