delphi如何重新启动当前应用？

Question

实现如下情况：
1、如果出现异常情况，终止当前程序。
2、重新执行当前程序。准确的说，就是该程序运行过程中出现了错误，该错误被捕获，然后就关闭该应用重新启动。

Answer 1

Procedure openYourSelf;
begin
Application.Terminate; //close yourself first.
ShellExecute(Handle,'Open',Pchar(Application.ExeName),nil,nil,SW_SHOWNORMAL); //open your self again.
end;

Answer 2

Procedure openYourSelf;
begin
Application.Terminate; //close yourself first.
ShellExecute(Handle,'Open',Pchar(Application.ExeName),nil,nil,SW_SHOWNORMAL); //open your self again.
end;