本文整理自网络，侵删。
思路1：
需要重启程序的时候，在onclose事件里面调用了一个批处理bat文件（AT 脚本）；
然后在批处理文件里面加入适当延迟（比如2秒）；通过批处理文件重新启动该程序；
思路2：
你另外写个小程序，用那个程序来启动你的程序
你的程序关闭时－》调用那个小程序
小程序启动你的程序（先判断程序是否已经关闭）
小程序自己关闭
在onclose里面
shellexecute(self.handle,nil,PChar('c:\小程序.exe'),nil,nil,sw_shownormal);
小程序的代码
在formcreate里面
shellexecute(self.handle,nil,PChar('c:\你的程序.exe'),nil,nil,sw_shownormal);
close;
思路3:
在退出前调用打开程序的语句，最简单
Application.Terminate;
winexec(Pchar(paramstr(0)), sw_show);
做成函数：
procedure KillApplication(Restart: boolean);
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;
begin
if Restart then
begin
GetStartupInfo(StartInfo);
FillChar(ProcInfo, SizeOf(TProcessInformation), #0);
CreateProcess(nil, GetCommandLine, nil, nil, False,
CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS, nil,
PChar(StartDir), StartInfo, ProcInfo);
end;
TerminateProcess(GetCurrentProcess, 1); 相关阅读 >>
Delphi2010安装twordapplication控件
Delphi getdrivetypea() 查看驱动器类型
Delphi api: setwindowpos改变窗口的位置与状态
更多相关阅读请进入《Delphi》频道 >>
