重启应用程序

Question

我想在程序里加上这个功能，就是关闭应用程序后不需双击图标，程序本身会自动再启动，不知道怎么实现，求思路，求例子代码！谢

Answer 1

先执行:
use shellapiShellExecute(nil,'open', PChar(ExtractFilePath(Application.ExeName) + '文件名'), nil, nil,SW_SHOWNORMAL);
Application.Terminate;

Answer 2

Uses ShellAPI;procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle,'open', PChar(ExtractFilePath(Application.ExeName) + ExtractFileName(Application.ExeName)), nil, nil,SW_SHOWNORMAL);
  Application.Terminate;
end;

Answer 3

我在系统文件dpr里加了这样一段代码：
  if (getlasterror()=ERROR_ALREADY_EXISTS) then
    begin
      application.MessageBox('本系统不能被多次运行，请先关闭当前运行的程序！','严重错误',mb_ok or mb_iconerror);
      exit;
    end;结果每次重启时都会报这个错，我不知道怎么解决这个问题