如何使用inno安装程序重命名文件

Question

我想首先将现有文件“我的程序旧”重命名为“我的程序v2”，但前提是“我的程序v2”还不存在。

然后我想将“我的程序”重命名为“我的程序旧”，但前提是“我的程序旧”不存在。

然后我想从安装程序安装‘我的程序'，但前提是’我的程序‘还不存在。

我将非常感谢任何指导！

Answer 1

我想尝试一下这样的东西。在安装过程开始前发生的curstepchanged事件的ssinstall阶段中，只需使用fileexists函数检查文件是否不存在，如果不存在，则只需调用renamefile函数，如果源文件不存在，该函数将静默失败，因此您不需要关心源文件是否存在。在[Files]部分中，您可以使用OnlyIfDoesNtexist标志来满足上一个需求。如果需要，可以遵循此脚本的注释版本:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

[Files]
Source: "My program"; DestDir: "{app}"; Flags: onlyifdoesntexist

[Code]
function GetFileName(const AFileName: string): string;
begin
  Result := ExpandConstant('{app}\' + AFileName);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if (CurStep = ssInstall) then
  begin
    if not FileExists(GetFileName('My program v2')) then
      RenameFile(GetFileName('My program old'), GetFileName('My program v2'));
    if not FileExists(GetFileName('My program old')) then
      RenameFile(GetFileName('My program'), GetFileName('My program old'));
  end;
end;