backup - 如何在用户确认卸载时保存文件夹？ (创新设置)

Question

当用户确认应用程序卸载时，如何将特定文件夹的备份副本保存到用户桌面？

我试过了但没有成功...也许有更简单的方法可以不用代码...

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  begin
    FileCopy('{app}\Profile\*', '{userdesktop}\Backup\Profile\', False);
  end;
end;

谢谢大家! :)

Answer 1

在 CurUninstallStepChanged(usUninstall) 上触发备份是最好的解决方案。

您遇到的问题是:

• FileCopy function无法复制文件夹。

  请参阅 Inno Setup: copy folder, subfolders and files recursively in Code section .

• 你必须使用 ExpandConstant function解析 {app} 和 {userdesktop} 常量。

• 您必须创建目标文件夹。

使用 DirectoryCopy 用户函数(来自上面提到的问题)，您可以:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  SourcePath: string;
  DestPath: string;
begin
  if CurUninstallStep = usUninstall then
  begin
    SourcePath := ExpandConstant('{app}\Profile');
    DestPath := ExpandConstant('{userdesktop}\Backup\Profile');
    Log(Format('Backing up %s to %s before uninstallation', [
      SourcePath, DestPath]));
    if not ForceDirectories(DestPath) then
    begin
      Log(Format('Failed to create %s', [DestPath]));
    end
      else
    begin
      DirectoryCopy(SourcePath, DestPath);
    end;
  end;
end;