软件 自杀重启

 建三江-蔡官人 2017/12/08 10:43:23
问题1：思路：
delphi7:
Application.Terminate;//杀死本身的进程
winexec(Pchar(paramstr(0)), sw_show);//重新调用运行本身这个程序

delphi xe+:
1.使用临时bat文件：
procedure RestartApp();
var f:TextFile;
begin
AssignFile(f,'temp.bat');
Rewrite(f);
Writeln(f,ExtractFileName(Application.ExeName));
Writeln(f,'del %0');
CloseFile(f);
Winexec('temp.bat',sw_hide);
Application.Terminate;
sleep(100);
end;

2.直接调用方法：
procedure RestartApp();
begin
application.Terminate;
ShellExecute(Application.Handle,'OPEN', PChar(paramstr(0)),'','',SW_SHOWNORMAL);//D7+XE//本程序重启
end;