inno-setup - 如何使用 inno setup 重命名文件

Question

我想先将现有文件“My program old”重命名为“My program v2”，但前提是“My program v2”不存在。

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

然后我想从安装程序安装“我的程序”，但前提是“我的程序”不存在。

如有任何指导，我将不胜感激!

Answer 1

我会尝试这样的事情。在 CurStepChanged 的 ssInstall 阶段事件，发生在安装过程开始之前，只需检查文件是否不存在 FileExists功能，如果没有，则只需调用 RenameFile函数，如果源文件不存在，该函数将静默失败，因此您无需关心源文件是否存在。在[Files]然后您可以使用 onlyifdoesntexist 部分标记您的最后一个要求。可以关注commented version这个脚本，如果你想:

[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;