如何用Inno Setup脚本在文本文件开头插入多行？解决脚本异常

1. 修复重复追加问题 #

CurStepChanged 会在安装的多个步骤触发（如ssInstall、ssPostInstall等），导致代码重复执行多次。只需限定仅在安装完成后的步骤执行即可：

if CurStep <> ssPostInstall then Exit;

2. 实现开头插入多行内容 #

SaveStringsToFile 的第三个参数设为True是追加到末尾，要插入开头需要先读取原文件内容，再合并新内容与原内容后覆盖写入：

• 先读取原文件的所有行（文件不存在则返回空数组）
• 创建新数组，将需要插入的行放在最前面，再拼接原文件的行
• 用SaveStringsToFile以覆盖模式（第三个参数False）写入

3. 解决「未知标识符Result」错误 #

Result 是函数（function）专属的返回变量，你当前用的是过程（procedure），过程没有返回值，所以不能使用Result。如果参考的代码是函数写法，要对应改成函数结构，或者去掉Result相关代码。

修改后的完整脚本 #

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  FileName: string;
  NewLines, OriginalLines, CombinedLines: TArrayOfString;
  I, CombinedIndex: Integer;
begin
  // 仅在安装完成后执行，避免重复操作
  if CurStep <> ssPostInstall then Exit;

  FileName := ExpandConstant('{userappdata}\xy\zlt.net');

  // 读取原文件内容（文件不存在则返回空数组）
  LoadStringsFromFile(FileName, OriginalLines);

  // 定义要插入的开头内容
  SetArrayLength(NewLines, 6);
  NewLines[0] := 'A';
  NewLines[1] := 'B';
  NewLines[2] := 'C';
  NewLines[3] := 'D';
  NewLines[4] := 'E';
  NewLines[5] := 'F';

  // 合并新内容与原内容：新内容在前，原内容在后
  SetArrayLength(CombinedLines, GetArrayLength(NewLines) + GetArrayLength(OriginalLines));
  CombinedIndex := 0;

  // 复制新内容到合并数组
  for I := 0 to GetArrayLength(NewLines) - 1 do
  begin
    CombinedLines[CombinedIndex] := NewLines[I];
    Inc(CombinedIndex);
  end;

  // 复制原内容到合并数组
  for I := 0 to GetArrayLength(OriginalLines) - 1 do
  begin
    CombinedLines[CombinedIndex] := OriginalLines[I];
    Inc(CombinedIndex);
  end;

  // 覆盖写入文件（第三个参数为False）
  SaveStringsToFile(FileName, CombinedLines, False);
end;

额外优化：避免重复插入 #

如果要确保即使脚本多次执行，也不会重复插入内容，可以在读取原文件后添加检查：

// 在读取原文件后添加检查
if GetArrayLength(OriginalLines) > 0 then
begin
  // 检查第一行是否是要插入的内容开头
  if OriginalLines[0] = 'A' then Exit;
end;

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