Inno Setup中如何重命名已安装的default文件夹为Examples？

实现逻辑 #

要完成旧文件夹default的自动重命名（保留用户修改），同时确保新文件夹Examples正常创建，需要在脚本中添加自定义代码段处理文件夹检测与重命名，再配合修改后的安装文件复制规则。

具体步骤 #

1. 添加自定义代码段
   在脚本的[Code]区域（无则新建）加入以下逻辑，确保在安装文件复制前完成重命名操作：

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  OldFolderPath, NewFolderPath: String;
begin
  OldFolderPath := ExpandConstant('{commondocs}\LongPath\default');
  NewFolderPath := ExpandConstant('{commondocs}\LongPath\Examples');

  if CurStep = ssBeforeInstall then
  begin
    // 仅当旧文件夹存在且新文件夹不存在时执行重命名
    if DirExists(OldFolderPath) and not DirExists(NewFolderPath) then
    begin
      RenameFile(OldFolderPath, NewFolderPath);
    end;
  end;
end;

2. 修改安装文件复制规则
   使用你已修改好的Source配置，确保安装文件指向新目标文件夹：

Source: "{#SOURCE_ROOT}\Templates\*"; DestDir: "{commondocs}\LongPath\Examples"; \
    Flags: ignoreversion recursesubdirs onlyifdoesntexist uninsneveruninstall

关键说明 #

• ssBeforeInstall是安装流程中开始复制文件前的节点，此时执行重命名能避免后续安装操作覆盖用户已修改的内容。
• DirExists和RenameFile都是Inno Setup内置的文件操作函数，无需额外依赖。
• 原配置中的onlyifdoesntexist参数会保证：如果重命名后的Examples文件夹已存在（包含用户修改），安装程序不会覆盖现有文件，仅补充缺失的模板文件（如果有）。

内容的提问来源于stack exchange，提问作者Thalia