如何在Inno Setup中移除非其安装的现有文件的只读属性？

你可以通过Inno Setup的内置属性修改能力或Pascal扩展脚本实现需求，以下是两种可用方案：

方案1：固定路径文件直接通过[Files]段配置 #

如果需要修改的文件路径是固定且可预知的，不需要复杂逻辑，可以直接在[Files]段添加虚拟条目仅修改属性，不需要实际复制文件：

[Files]
; Source随便填一个存在的小文件即可，标记dontcopy不会实际写入
Source: "placeholder.txt"; 
DestDir: "{app}\你的目标文件所在目录"; 
DestName: "目标文件名.后缀";
Flags: dontcopy;
; 减号代表移除只读属性
Attribs: -readonly;
; 仅当目标文件存在时才执行操作，避免报错
Check: FileExists(ExpandConstant('{app}\你的目标文件所在目录\目标文件名.后缀'))

方案2：灵活场景使用Pascal脚本（更推荐） #

如果需要批量处理多文件、动态路径，推荐在[Code]段通过内置API修改属性，操作放在自定义解压程序运行之前：

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  TargetFile: string;
  FileAttr: Integer;
begin
  // 在Inno自身文件安装完成、即将执行后续自定义动作前运行
  if CurStep = ssPostInstall then
  begin
    // 单个文件修改示例
    TargetFile := ExpandConstant('{app}\data\config.dat');
    if FileExists(TargetFile) then
    begin
      FileAttr := GetFileAttributes(TargetFile);
      // 仅移除只读属性，保留其他原有属性
      SetFileAttributes(TargetFile, FileAttr and not FILE_ATTRIBUTE_READONLY);
    end;

    // 批量处理某目录下所有指定格式文件示例
    var
      FindRec: TFindRec;
      SearchDir: string;
      FullPath: string;
    begin
      SearchDir := ExpandConstant('{app}\assets\*.pak');
      if FindFirst(SearchDir, FindRec) then
      try
        repeat
          // 跳过子目录，仅处理文件
          if (FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
          begin
            FullPath := ExpandConstant('{app}\assets\') + FindRec.Name;
            FileAttr := GetFileAttributes(FullPath);
            SetFileAttributes(FullPath, FileAttr and not FILE_ATTRIBUTE_READONLY);
          end;
        until not FindNext(FindRec);
      finally
        FindClose(FindRec);
      end;
    end;
  end;
end;

• 确保你的安装包在[Setup]段配置了PrivilegesRequired=admin，如果目标文件在系统保护目录（如Program Files）下，没有管理员权限会修改属性失败。
• 所有属性修改操作要放在你调用自定义解压程序的代码之前执行，保证解压程序运行时文件已经处于可写状态。
• 上述逻辑只会修改已存在的目标文件，不会创建新文件，也不会对普通用户环境的正常文件产生额外影响。

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