重启自身

Delphi(Pascal) code

program project1;
  uses windows;
  FormMain FormMain.pas' {frmMain};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
  if ReStart thenbegin
    WinExec(PChar(Application.ExeName) ,SW_SHOWNORMAL  );
  end;
end;

procedure TFrmMain.btn1Click(Sender: TObject);
begin
  ReStart := True;//全局变量
  Close;
end;