用户确认卸载时如何保存文件夹？ （创新设置）

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

我尝试过但没有成功...也许有一种更简单的方法可以在不使用代码的情况下做到这一点...

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

感谢你们！ :)

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

您遇到的问题是：

• The FileCopy功能无法复制文件夹。

  为此请参阅Inno Setup：在代码部分递归复制文件夹、子文件夹和文件.

• 你必须使用ExpandConstant功能来解决{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;