Inno setup 如何在Inno安装程序中查找唯一名称以重命名/归档旧目录

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

如果

DirExists

返回true，我想将目录从

directory

重命名为

DirectoryOld1

---

我遇到的问题是如何检查和迭代重命名过程，以便如果存在

DirectoryOld1

，将当前目录重命名为

DirectoryOld2

，依此类推。

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

这将有助于：

函数BackupDir（OldName:string）：布尔值；
变量
I：整数；
开始
I:=1；
{查找唯一索引}
当DirExists（OldName+IntToStr（I））存在时
开始
公司（一）；
结束；
{和重命名}
结果：=重命名文件（OldName，OldName+IntToStr（I））；
结束；

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

这将有助于：

函数BackupDir（OldName:string）：布尔值；
变量
I：整数；
开始
I:=1；
{查找唯一索引}
当DirExists（OldName+IntToStr（I））存在时
开始
公司（一）；
结束；
{和重命名}
结果：=重命名文件（OldName，OldName+IntToStr（I））；
结束；

您能展示一点代码来展示您现在的工作内容吗？谢谢，欢迎来到Stack Overflow！什么是

direxistswaning

？您能展示一点代码来展示您现在的工作内容吗？谢谢，欢迎来到Stack Overflow！什么是

direxistswaning

？Inc（）递增sharedcount（）？否，

Inc（I）

在功能上等同于

I:=I+1

。请参阅Inc（）递增SharedCount（）？否，

Inc（I）

在功能上等同于

I:=I+1

。看见