xml - 如何将应用程序路径位置保存到 XML 节点中

Question

我有一个问题，我在互联网上四处寻找，但没有得到帮助。这就是问题:- 我想在 XML 节点中保存应用程序路径位置。问题是我不能对目录使用 consts 名称，因为安装程序会按照我写的方式写下我放在那里的任何单词。

 function NextButtonClick2(CurPageID: Integer): Boolean;
   begin
    Result := True;
    SaveValueToXML(ExpandConstant('{pf}\XXX\Config.xml'), '//@param', PEdit.Text);
    SaveValueToXML(ExpandConstant('{pf}\XXX\Config.xml'), '//@path', '{app}\XXX\Aplication.exe');
   end;

这是我得到的结果

<?xml version="1.0" encoding="UTF-8"?>
-<games> <game priority="0" display="1" param="test" path="{app}\Aplication.exe" id="1036"/> </games>

这是我期望的结果:

<?xml version="1.0" encoding="UTF-8"?>
-<games> <game priority="0" display="1" param="test" path="C:\Program Files (x86)\XXX\Aplication.exe" id="1036"/> </games>

该位置是正确的...但前提是我手动编写它。这是个问题，安装程序会自动编辑 XML 中的路径节点……然后如果用户有不同的硬盘驱动器盘符 [C、D、F、H 等] 或不同的路径位置主应用程序，在安装过程中会出现错误。

求助!从现在开始感谢!

Answer 1

您不是为要存储的值调用 ExpandConstant 函数，只是为 XML 的名称。

将您的代码更改为:

function NextButtonClick2(CurPageID: Integer): Boolean;
begin
  Result := True;
  SaveValueToXML(ExpandConstant('{pf}\XXX\Config.xml'), '//@param', PEdit.Text);
  SaveValueToXML(ExpandConstant('{pf}\XXX\Config.xml'), '//@path',
    ExpandConstant('{app}\XXX\Aplication.exe'));

结束；

你会得到你想要的。