備份文件並使用InnoSetup進行卸載時恢復它們？

Question

考慮以下幾點：

• 我有兩個文件，例如XXX.txt和YYY.txt

• 我想將它們安裝到一個文件夾（比方說files），其中已經有XXX.txt和YYY.txt文件

• 我想「備份」兩個原始文件，將它們重命名爲XXX.txt.backup和YYY.txt.backup

• 在卸載我想這兩個文件恢復到原來的狀態

如何我Inno Setup的實現這一目標？

Answer 1

好吧，也許一個彈出窗口說「已經有一個XXX.txt.backup，你真的想覆蓋它嗎？」

Answer 2

添加

[Files] 
; Backup Function_Template 
Source: "{app}\XXX.txt"; DestDir: "{app}"; DestName: "XXX.txt.bkup"; Flags: external skipifsourcedoesntexist uninsneveruninstall 

這將移動現有的文件和標誌將阻止卸載它。現在，在代碼中，你可以把

[Code] 
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); 
var 
    OldFile: string; 
begin 
    case CurUninstallStep of  
    usPostUninstall: 
     begin 
     OldFile := ExpandConstant('{app}\XXX.txt.bkup'); 
     if FileExists(OldFile) then 
      RenameFile(OldFile, ExpandConstant('{app}\XXX.txt')); 
     end; 
    end; 
end; 

Answer 3

Source: "{app}\XXX.txt"; DestDir: "{app}"; DestName: "XXX.txt.bkup"; Flags: external skipifsourcedoesntexist uninsneveruninstall 

似乎沒有工作，因爲「編譯器將預先考慮安裝的源目錄的路徑，如果你不指定一個完全合格的路徑。」

但是，我剛剛發現這工作正常！我已經放棄了「外部」國旗。