inno setup修改xml节点

1、在做客户端多语言的安装包时，配置写在了xml文件中（而不是ini文件），就需要在安装的最后修改xml文件的多语言节点，方法为：

[Code]

// 获取当前语言

function MyLangName(): String;      
begin               
  Result := ActiveLanguage();
end;

//保存xml文件的语言
procedure SaveLan();
var
  XMLFile: String; // xml路径
  KeyName: String; // 语言节点名称
  KeyValue: String; // 语言节点值
  XMLDocument: Variant; // xml文档
  rootNode: Variant; // xml根节点
  lanNode: Variant; // 语言节点

begin
    XMLFile := ExpandConstant('{app}\') + '***.xml';// xml路径
    KeyName := 'language';
    KeyValue := MyLangName();
    XMLDocument := CreateOleObject('MSXML2.DOMDocument');
    XMLDocument.async := False;
    XMLDocument.resolveExternals := False;
    XMLDocument.load(XMLFile);// 加载
    rootNode := XMLDocument.documentElement;

    lanNode := rootNode.SelectSingleNode('base');// 语言节点
    lanNode.SetAttribute(KeyName, KeyValue); // set 语言
    XMLDocument.Save(XMLFile);// 保存
  end;

xml文件为：

<?xml version='1.0' encoding='utf-8'?>
   <base language="English"/>

另外一个问题就是，进程SaveLan什么时候调用的问题，这里是要安装完成后，在运行程序之前就要修改节点，可使用CurPageChanged或CurStepChanged进程，如：

// step，不能用ssDone，否则安装完启动时还来不及设置语言
procedure CurStepChanged(CurStep: TSetupStep);
begin
  case CurStep of ssPostInstall:
       SaveLan();
  end;
end;

在安装完成后，会自动调用该进程。至此，修改xml完成。

2、ini文件修改字段

[Code]

function MyLangName(Param:String): String;      
begin               
  Result := ActiveLanguage();
end;

[INI]  
Filename: "lan.ini"; Section: "settings"; Key: "language"; String: "{code:MyLangName}";