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;
|
请发表评论