Inno setup Inno安装程序在不更改其他数据的情况下编辑xml文件

这是我的Xml

贝塔斯：

选项：错误

下载：

altState:false..>>>>>>>“如何使用Inno设置将此false更改为true”

controlState:false

请帮我做一个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;

或

---

两者都应该工作。

这不是XML。sed（“file.XML”、“altState:false”、“altState:true”）的可能重复行获取innosetup语法错误如何修复它，我可以像这样使用sed（“{app}\file.XML”、“altState:false”、“altState:true”）我使用innosetup Unicode版本请帮助。链接图片：。谢谢你的帮助。你需要手动更改“，当你从这里复制时是不一样的。Pascal不使用双引号。它使用单引号。你甚至试过编译代码吗？谢谢它的工作。如何更改WizardDirValue（）如{userappdata}\Myapp\file.xml

ExpandConstant（{userappdata}'）+'\Myapp\'+fname

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