Inno setup edit xml file without Change other data

Question

这是我的 XML

测试版：

选择加入：假

下载：

altState: false ..>>>>>>>> "如何使用 Inno Setup 将这个 False 更改为 true"

控制状态：假

请帮帮我

Answer 1

做一个sed函数

// sed(file_to_edit, 'original_text', 'new_text');
function sed(fname: String; Orig: String; Moded: String): Boolean;
var
  fhandle: AnsiString;
  fhandle_uni: String;
begin;
  Result := LoadStringFromFile(WizardDirValue() + '\' + fname, fhandle);
  if Result = True then
  begin
    fhandle_uni := String(fhandle);
    StringChangeEx(fhandle_uni, Orig, Moded, True);
    Result := SaveStringToFile(WizardDirValue() + '\' + fname, AnsiString(fhandle_uni), False);
  end;
end;

WizardDirValue() 是安装目录，安装完成后会编辑文件。

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurpageID = wpFinished then
  begin;
    sed('file.xml', 'altState: false', 'altState: true')
  end;
end;

或

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin;
    sed('file.xml', 'altState: false', 'altState: true')
  end;
end;

两者都应该工作。