delphi 的可执行文件（EXE）可以这样更新后重启

var
StrExePath,strEXE:string;
begin
StrExePath:=ExtractFilePath(Application.ExeName);
strEXE:='Project1.exe';
showmessage('down is over') ;
  close;
 if  RenameFile(StrExePath+StrExe,'123.exe') then
  ShellExecute(Handle,'',PChar('123.exe'),'','',SW_NORMAL);
end;