求程序自动关闭自动启动的代码!!!!!!!!!!

Question

我想让我的程序在出现一个异常以后就自动关闭,然后自动启动,请问怎么实现

Answer 1

try
 ....
except
 application.Terminate;
 //再用WinExec打开
 
end;

Answer 2

try
 ....
except
 application.Terminate;
   ShellExecute(Handle, 'open', pchar(你的程序的路径), nil, '', SW_NORMal);
 
end;

Answer 3

try
   .....
except
   application.Terminate;
   sleep(1000);
   ShellExecute(Handle, 'open', pchar(你的程序的路径), nil, '', SW_NORMal);
end;用批處理文件也可以

Answer 4

try
   .....
except
   application.Abort; //<<<<<<<<<<<<<<<<<<<<<<<<<<<<
   sleep(1000);
   ShellExecute(Handle, 'open', pchar(你的程序的路径), nil, '', SW_NORMal);
   Exit;  //<<<<<<<<<<<<<<<<<<<<
end;用批處理文件也可以