如何实现Inno Setup自动重试删除待替换文件及DBNetServices自动等待重试？

Hey Jeff, 刚好我之前处理过类似的Inno Setup文件占用问题，针对你遇到的PlazSales DBNetServices报错（错误码5访问拒绝），可以通过自定义代码实现自动等待重试删除，不用手动点重试。下面是具体的解决方案：

核心思路 #

错误码5「访问被拒绝」通常是因为待替换的文件被PlazSales的DBNetServices.exe进程占用着。手动等待5-10秒后重试能成功，是因为这段时间内进程可能释放了文件锁。我们要做的就是让Inno Setup自动模拟这个过程：检测到删除失败且错误码为5时，等待指定时长后重试，重复几次直到成功或达到最大重试次数。

具体实现代码 #

在你的Inno Setup脚本中添加[Code]段，自定义重试逻辑：

[Code]
const
  RETRY_TIMES = 3;       // 最多重试3次
  WAIT_MS = 5000;        // 每次重试等待5秒（单位：毫秒）

// 带重试逻辑的文件删除函数
function DeleteFileWithAutoRetry(const FilePath: string): Boolean;
var
  RetryIndex: Integer;
  LastError: Integer;
begin
  Result := False;
  for RetryIndex := 1 to RETRY_TIMES do
  begin
    // 尝试删除文件
    if DeleteFile(FilePath) then
    begin
      Result := True;
      Log(Format('成功删除文件：%s', [FilePath]));
      Break;
    end;

    LastError := GetLastError;
    // 仅当错误码为5（访问拒绝）时触发重试
    if LastError = 5 then
    begin
      Log(Format('文件 %s 被占用，%d秒后进行第%d次重试', [FilePath, WAIT_MS div 1000, RetryIndex]));
      Sleep(WAIT_MS); // 等待指定时长
    end
    else
    begin
      // 其他错误直接终止重试
      Log(Format('删除文件失败，错误码：%d，终止重试', [LastError]));
      Break;
    end;
  end;

  if not Result then
    Log(Format('经过%d次重试后仍无法删除文件：%s', [RETRY_TIMES, FilePath]));
end;

// 在安装阶段处理待替换文件
procedure CurStepChanged(CurStep: TSetupStep);
var
  TargetFile: string;
  ErrorCode: Integer;
begin
  // 选择在安装开始前处理文件替换
  if CurStep = ssInstall then
  begin
    // 替换为你实际需要替换的文件路径，比如PlazSales的DBNetServices.exe
    TargetFile := ExpandConstant('{app}\DBNetServices.exe');
    
    if FileExists(TargetFile) then
    begin
      // 可选：先尝试强制关闭占用进程，提高删除成功率
      Log('尝试关闭DBNetServices进程');
      Exec('taskkill.exe', '/F /IM DBNetServices.exe', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
      
      // 调用自定义删除函数
      if not DeleteFileWithAutoRetry(TargetFile) then
      begin
        // 如果最终还是失败，提示用户手动处理
        MsgBox('无法自动删除DBNetServices.exe，请手动关闭该进程后点击「确定」继续安装', mbError, MB_OK);
      end;
    end;
  end;
end;

代码说明与调整 #

• 参数调整：你可以修改RETRY_TIMES（重试次数）和WAIT_MS（等待时长），比如把等待时长改成10秒就设为10000。
• 文件路径：把TargetFile的值替换成你实际需要替换的文件路径，不确定的话可以查看Inno Setup的安装日志找到失败的文件路径。
• 进程关闭：taskkill命令会强制关闭DBNetServices.exe，如果不想强制关闭，可以去掉这部分，直接进入等待重试逻辑。
• 日志查看：安装时可以开启日志（运行安装包时加/log=install.log参数），查看重试过程的详细信息。

替代方案（如果需要重启替换） #

如果自动重试还是无法解决，也可以用Inno Setup内置的restartreplace标记，在[Files]段中添加：

[Files]
Source: "DBNetServices.exe"; DestDir: "{app}"; Flags: restartreplace

这个标记会把文件替换操作延迟到系统重启后执行，适合无法在安装时释放文件锁的场景，但需要用户重启电脑。

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