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}";
转载自原文链接, 如需删除请联系管理员。
原文链接：inno setup修改xml节点，转载请注明来源！