DELPHI关闭并重新启动当前应用程序

uses ShellAPI;

...

procedure TForm1.RestartThisApp;
begin
 ShellExecute(Handle, nil, PChar(Application.ExeName), nil, nil, SW_SHOWNORMAL);
 Application.Terminate; // or, if this is the main form, simply Close;
end;