inno-setup – 使用InnoSetup备份文件并在卸载时恢复它们?

前端之家收集整理的这篇文章主要介绍了inno-setup – 使用InnoSetup备份文件并在卸载时恢复它们?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
考虑以下:

>我有两个文件,例如XXX.txt和YYY.txt
>我想将它们安装到一个文件夹(比方说文件),其中已有XXX.txt和YYY.txt文件
>我想“备份”两个原始文件,将它们重命名为XXX.txt.backup和YYY.txt.backup
>在卸载时,我想将两个文件恢复到其原始状态

如何通过Inno Setup实现这一目标?

解决方法

[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;
原文链接:https://www.f2er.com/delphi/102986.html

猜你在找的Delphi相关文章