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;
转载于:https://www.cnblogs.com/zsdentist/archive/2011/11/17/2252083.html