Inno Setup - How to Save a Xml Node without Prompt Message

Question

I want the installer to edit a xml file in silence, without promp messages, that if the xml file exist in destination location, the installer edit it, and if do not exist in destination location, the installation continue and ignore that the xml file do not exist without prompt message. I saw the CodeAutomation.iss but that do not help me. Please help with a code sample.

[Files]
Source: GameConfiguration.xml; DestDir: "{pf}\Game\Sala"; Flags: uninsneveruninstall;

procedure SaveValueToXML(const AFileName, APath, AValue: string);
var
  XMLNode: Variant;
  XMLDocument: Variant;  
begin
  XMLDocument := CreateOleObject('Msxml2.DOMDocument.6.0');
  try
    XMLDocument.async := False;
    XMLDocument.load(AFileName);
    if (XMLDocument.parseError.errorCode <> 0) then
      MsgBox('Install Garena. ' +
        XMLDocument.parseError.reason, mbError, MB_OK)
    else
    begin
      XMLDocument.setProperty('SelectionLanguage', 'XPath');
      XMLNode := XMLDocument.selectSingleNode(APath);
      XMLNode.text := AValue;
      XMLDocument.save(AFileName);
    end;
  except
    MsgBox('Install Garena', mbError, MB_OK);
  end;
end;

  function NextButtonClick2(PageID: Integer): Boolean;
 begin
    Result := True;
    if (PageId = wpFinished) then begin
        SaveValueToXML(ExpandConstant('{pf}\Game\Sala\GameConfiguration.xml'), '//@param', PEdit.Text);
        SaveValueToXML(ExpandConstant('{pf}\Game\Sala\GameConfiguration.xml'), '//@path', ExpandConstant('{reg:HKCU\SOFTWARE\xxx,InstallPath}\xxx.exe'));
    end;
 end;

score 4 · Accepted Answer · edited Jan 19 '13 at 22:21

4

Just test for the existence of the XML file first:

function NextButtonClick2(PageID: Integer): Boolean;
var
  XMLFile: string;
begin
  Result := True;
  if (PageId = wpFinished) then 
  begin
    XMLFile := ExpandConstant('{pf}\Game\Sala\GameConfiguration.xml');
    if FileExists(XMLFile) then 
    begin
      SaveValueToXML(XMLFile, '//@param', PEdit.Text);
      SaveValueToXML(XMLFile, '//@path', 
        ExpandConstant('{reg:HKCU\SOFTWARE\XXX,InstallPath}\xxx.exe'));
    end;
  end;
end;

end;

edited Jan 19 '13 at 22:21

Dielo

603
2
12
25

answered Jan 19 '13 at 22:04

Ken White

123,280
14
225
444

2

+1, @Dielo, you should already [`know the FileExists`](http://stackoverflow.com/q/12951327/960757) function. – TLama Jan 19 '13 at 22:12
Yes sorry you are rite :) your answer works perfect, thanks mate – Dielo Jan 19 '13 at 22:20
1

I would suggest using `{app}` rather than hard-coding a `{pf}` based path though. – Miral Jan 20 '13 at 09:31

Inno Setup - How to Save a Xml Node without Prompt Message

1 Answers1