ISysSettings.Root

Копировать пример

Sub UserProc;
Var
    Settings: ISysSettings;
    Node: ISysSettingsKey;
    XmlNode: IXmlDomElement;
    Lock: Object;
Begin
    Settings := New SysSettings.Create;
    Debug.WriteLine("Расположение файла: " + Settings.Location);
    //Элемент Root
    Node := Settings.Root;
    XmlNode := Node.Element As IXmlDomElement;
    //Получение параметров элемента <Root>/<Key Name="PP">/<BIS>/<Key Name="System">/<Pool>
    XmlNode := XmlNode.selectSingleNode("//Pool") As IXmlDomElement;
    //Изменение значения атрибута MaxConnections
    XmlNode.setAttribute("MaxConnections", "100");
    //Блокировка перед сохранением
    Lock := Settings.CriticalLock;
    Try
        Settings.Commit;
    Finally
        Dispose Lock;
    End Try;
End Sub UserProc;