自动重试删除要替换为Inno安装程序的文件
自动重试删除要替换为Inno安装程序的文件
提问于 2018-02-03 17:27:58
我必须等待5-10秒，然后单击重试我们的DBNetServices为我们的PlazSales销售点软件。有没有办法让它自动等待至少一段时间？
错误：
试图替换现有文件时出错: DeleteFile失败；代码5；访问被拒绝。单击“重试”再试一次。
[Setup]
CloseApplications=yes
[Files]
Source: {#AutoBackupNetwork}\DBNetService.exe; DestDir: {app}\server; \
Flags: IgnoreVersion overwritereadonly回答 1
Stack Overflow用户
回答已采纳
发布于 2018-02-03 19:07:40
可以实现用于删除文件的自定义逻辑，如下所示：
[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;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/48600028
复制相关文章
相似问题
腾讯云开发者
