怎样编代码让程序自己重新运行一下自己

Question

怎样编代码让程序自己重新运行一下自己，但是不能用新打开一个相同的程序再把自己关闭的方法。请高手指教。

Answer 1

你可以建立一批次檔,執行自己呀.
procedure tform1.button1click(sender:tobject);
begin
form1.close;
end;procedure tform1.formclose(sender:tobject);
var
f:textfile;
begin
assignfile(f,'exec.bat');
rewrite(f);
writeln(f,extractfilename(application.exename));\\執行程序
writeln(f,'del %0');\\刪除exec.bat
closefile(f);
winexec('exec.bat',sw_hide);執行exec.bat
end;