如何在Inno Setup中找到重命名/存档旧目录的唯一名称

Question

每当我进行新安装时，我都会安装一个新目录。我在安装旧目录时遇到问题，现在想要归档我的旧目录。

如果MIN.Font = new System.Drawing.Font("Times", 16f); 返回true，我想将目录从DirExists重命名为Directory。

我遇到的问题是如何检查和迭代重命名过程，以便在DirectoryOld1存在的情况下，将当前目录重命名为DirectoryOld1，依此类推。

Answer 1

如果我正确理解您的问题，您希望将现有目录备份为唯一（递增）名称。正确？

这样做：

function BackupDir(OldName: string): Boolean;
var
  I: Integer;
begin
  I := 1;
  { Find a unique index }
  while DirExists(OldName + IntToStr(I)) do
  begin
    Inc(I);
  end;

  { And rename }
  Result := RenameFile(OldName, OldName + IntToStr(I)); 
end;