如何在Inno Setup安装完成后复制默认日志文件至指定路径？

原方案存在两处核心问题：

1. 错误认定日志文件路径为{app}\SetupLog.log，实际默认日志文件存放在系统临时目录，安装完成后该目录会被自动删除；
2. 未开启强制日志生成，若用户未手动添加/log启动参数，日志文件不会生成。

以下是修正后的完整方案：

#define LogDestination "C:\MyLogs"

[Setup]
DefaultDirName={pf}\My Application
DefaultGroupName=My Application
; 强制生成日志文件，无需用户手动指定/log参数
SetupLogging=yes

[Files]
Source: "MyApp.exe"; DestDir: "{app}"

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  LogPath: string;
  DestinationPath: string;
begin
  if CurStep = ssPostInstall then
  begin
    ; 使用{log}常量获取日志文件的实际路径
    LogPath := ExpandConstant('{log}');
    DestinationPath := ExpandConstant(LogDestination + '\SetupLog.log');
    
    ; 先检查日志文件是否存在
    if FileExists(LogPath) then
    begin
      if FileCopy(LogPath, DestinationPath, False) then
        MsgBox('日志文件已成功复制到：' + DestinationPath, mbInformation, MB_OK)
      else
        MsgBox('日志文件复制失败：' + DestinationPath, mbError, MB_OK);
    end
    else
      MsgBox('未找到日志文件', mbError, MB_OK);
  end;
end;

关键修正说明 #

• SetupLogging=yes：添加该指令后，安装程序会自动生成日志文件到临时目录，无需用户手动添加/log启动参数；
• {log}常量：Inno Setup内置的{log}常量直接指向当前安装生成的日志文件的完整路径，避免了手动猜测路径的错误；
• 增加文件存在检查：提前判断日志文件是否存在，避免因日志未生成导致的复制失败提示。

内容的提问来源于stack exchange，提问作者tmighty