Inno Setup的：備份外部文件之前，安裝刪除部分

Question

我想使文件和文件夾的備份[InstallDelete]部分之前將它們刪除

[Files] 
Source: "{app}\res_mods\configs\wotstat\cache.json"; \ 
    DestDir: "{app}\_backup\res_mods_{#DateTime}\configs\wotstat\"; \ 
    Flags: external skipifsourcedoesntexist uninsneveruninstall 
Source: "{app}\res_mods\0.9.17.1\vehicles\*"; \ 
    DestDir:"{app}\_backup\res_mods_{#DateTime}\0.9.17.1\vehicles\"; \ 
    Flags: external skipifsourcedoesntexist createallsubdirs recursesubdirs uninsneveruninstall 

這工作得很好。但是，如果我檢查

[InstallDelete] 
Type: filesandordirs; Name: "{app}\mods\*.*"; Tasks: cleanres 
Type: filesandordirs; Name: "{app}\res_mods\*.*"; Tasks: cleanres 

沒有文件被保存

我怎樣才能使它工作。 Thx

Answer 1

在[Files]部分之前對[InstallDelete]部分進行處理（如人們所期望的）。請參閱installation order。

您可以編寫在CurStepChanged(ssInstall) event備份，這種情況發生在安裝開始前：

[Code] 

procedure CurStepChanged(CurStep: TSetupStep); 
var 
    SourcePath: string; 
    DestPath: string; 
begin 
    if CurStep = ssInstall then 
    begin 
    SourcePath := ExpandConstant('{app}\res_mods\0.9.17.1\vehicles'); 
    DestPath := ExpandConstant('{app}\_backup\res_mods_{#DateTime}\0.9.17.1\vehicles'); 
    Log(Format('Backing up %s to %s before installation', [SourcePath, DestPath])); 
    if not ForceDirectories(DestPath) then 
    begin 
     Log(Format('Failed to create %s', [DestPath])); 
    end 
     else 
    begin 
     DirectoryCopy(SourcePath, DestPath); 
    end; 

    SourcePath := ExpandConstant('{app}\res_mods\configs\wotstat\cache.json'); 
    DestPath := ExpandConstant('{app}\_backup\res_mods_{#DateTime}\configs\wotstat'); 
    if not ForceDirectories(DestPath) then 
    begin 
     Log(Format('Failed to create %s', [DestPath])); 
    end 
     else 
    begin 
     if not FileCopy(SourcePath, DestPath + '\cache.json', False) then 
     begin 
     Log(Format('Failed to copy %s', [SourcePath])); 
     end 
     else 
     begin 
     Log(Format('Backed up %s', [SourcePath])); 
     end; 
    end; 
    end; 
end; 

的代碼使用從Inno Setup: copy folder, subfolders and files recursively in Code section的DirectoryCopy功能。