Inno Setup中如何将新日志内容追加至已有文本文件

FileCopy函数本身不支持追加写入，它只会直接覆盖目标文件。要实现日志追加的需求，需要改用文件读写API来读取临时日志内容，再将内容追加到目标文件中。

修改后的代码 #

procedure DeinitializeSetup();    
var  
  logfilepathname, newfilepathname, logContent: string;  
begin  
  logfilepathname := ExpandConstant('{log}');  
  // 使用Inno内置常量{commonappdata}获取标准ProgramData路径，避免硬编码路径
  newfilepathname := ExpandConstant('{commonappdata}\InstallerlogFile');  

  // 读取临时日志文件的内容
  if LoadStringFromFile(logfilepathname, logContent) then
  begin
    // 以追加模式写入目标文件，第三个参数设为true表示不覆盖原有内容
    // 追加换行符分隔每次的日志内容，提升可读性
    if not SaveStringToFile(newfilepathname, logContent + #13#10, true) then
    begin
      Log('追加日志失败: 无法写入文件 ' + newfilepathname);
    end;
  end
  else
  begin
    Log('读取临时日志失败: 无法访问文件 ' + logfilepathname);
  end;
end; 

关键修改说明 #

• 路径标准化：用{commonappdata}常量替代硬编码的ProgramData，确保在不同Windows版本（包括多语言系统）下都能定位到正确的目录。
• 替换复制逻辑：移除FileCopy，改用LoadStringFromFile读取临时日志内容，再通过SaveStringToFile的追加模式（第三个参数为true）写入目标文件。
• 错误处理：添加读取/写入操作的检查，并用Log函数记录失败信息，方便后续调试排查问题。
• 可读性优化：在每次追加的日志末尾添加换行符#13#10，让不同安装会话的日志内容自然分隔。

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