浏览代码

ADD: Create doublecmd.xml backup on configuration version change

Alexander Koblov 2 年之前
父节点
当前提交
60283a3305
共有 1 个文件被更改,包括 8 次插入0 次删除
  1. 8 0
      src/uglobs.pas

+ 8 - 0
src/uglobs.pas

@@ -2539,6 +2539,14 @@ begin
     gPreviousVersion:= GetAttr(Root, 'DCVersion', EmptyStr);
     gPreviousVersion:= GetAttr(Root, 'DCVersion', EmptyStr);
     LoadedConfigVersion := GetAttr(Root, 'ConfigVersion', ConfigVersion);
     LoadedConfigVersion := GetAttr(Root, 'ConfigVersion', ConfigVersion);
 
 
+    { Create config backup }
+    if (LoadedConfigVersion < ConfigVersion) then
+    try
+      WriteToFile(gpCfgDir + 'doublecmd-' + IntToStr(LoadedConfigVersion) + '.bak');
+    except
+      // Ignore
+    end;
+
     if (LoadedConfigVersion < 13) then
     if (LoadedConfigVersion < 13) then
     begin
     begin
       DeleteNode(Root, 'Configuration/UseConfigInProgramDir');
       DeleteNode(Root, 'Configuration/UseConfigInProgramDir');