自动重试删除要替换为Inno安装程序的文件

Question

我必须等待5-10秒，然后单击重试我们的DBNetServices为我们的PlazSales销售点软件。有没有办法让它自动等待至少一段时间？

错误：

试图替换现有文件时出错: DeleteFile失败；代码5；访问被拒绝。单击“重试”再试一次。

[Setup]
CloseApplications=yes   

[Files]
Source: {#AutoBackupNetwork}\DBNetService.exe; DestDir: {app}\server; \
    Flags: IgnoreVersion overwritereadonly

Answer 1

可以实现用于删除文件的自定义逻辑，如下所示：

[Files]
Source: {#AutoBackupNetwork}\DBNetService.exe; DestDir: {app}\server; \
    Flags: IgnoreVersion overwritereadonly; BeforeInstall: DeleteWithRetry

[Code]

procedure DeleteWithRetry;
var
  Path: string;
  Timeout: Integer;
  Step: Integer;
begin
  Path := ExpandConstant('{app}\server\DBNetService.exe');
  if FileExists(Path) then
  begin
    Log(Format('%s exists, will try to delete', [Path]));
    Timeout := 5000;
    Step := 100;
    while (Timeout > 0) and (not DeleteFile(Path)) do
    begin
      Log(Format('Failed to delete %s, will try again in %d ms', [Path, Step]));
      Sleep(Step);
      Timeout := Timeout - Step;
    end;
  end;
end;