Inno Setup - 在文件复制之前正确停止服务

Question

我们的安装过程包括Windows服务，如果我们的软件配置为作为服务器安装（与客户端安装相比），则会安装该服务。我添加了a service library以便能够管理服务，然后在文件中添加了BeforeInstall和AfterInstall个事件的处理程序...

[Files]
Source: "MyService.exe"; DestDir: "{app}"; Check: IsServer; BeforeInstall: BeforeServiceInstall('MyServiceName', 'MyService.exe'); AfterInstall: AfterServiceInstall('MyServiceName', 'MyService.exe')

procedure BeforeServiceInstall(SvcName, FileName: String);
var
  S: Longword;
begin
  //If service is installed, it needs to be stopped
  if ServiceExists(SvcName) then begin
    S:= SimpleQueryService(SvcName);
    if S <> SERVICE_STOPPED then begin
      SimpleStopService(SvcName, True, True);
    end;
  end;
end;

procedure AfterServiceInstall(SvcName, FileName: String);
begin
  //If service is not installed, it needs to be installed now
  if not ServiceExists(SvcName) then begin
    if SimpleCreateService(SvcName, 'My Service Name', ExpandConstant('{app}')+'\' + FileName, SERVICE_AUTO_START, '', '', False, True) then begin
      //Service successfully installed
      SimpleStartService(SvcName, True, True);
    end else begin
      //Service failed to install

    end;
  end;
end;

首次安装服务时（尚未存在且当前未运行），此服务的安装/启动工作正常。但是，在现有安装（升级）上运行此安装程序时，安装程​​序会在识别出此服务正在运行时停止，并提示终止该进程（在调用BeforeServiceInstall()处理程序之前）...

如何阻止此提示出现在服务中？我不需要重新启动，仍然希望这个提示出现在所有其他文件中。

Answer 1

目前没有直接的方法可以排除文件检查文件是否正在使用中。您可以全局禁用此控件（通过将CloseApplications指令值设置为no），我不建议这样做。或者您可以为文件设置过滤器，将对其进行检查（在CloseApplicationsFilter指令中），您可能需要这样做，例如：列出除服务可执行文件之外的所有文件，这些文件很难维护。

您还可以通过指定与您的任何文件都不匹配的过滤器列出要检查的所有文件，并从RegisterExtraCloseApplicationsResources事件方法添加它们与从上述指令执行此操作相同。< / p>

我建议您使用PrepareToInstall事件方法停止服务。它的参考明确暗示了这一点（我强调）：

  

您可以使用此事件功能来检测和安装缺失   先决条件和/ 或关闭任何即将发布的应用程序   更新。

此事件方法在执行所有正在使用的文件检查之前执行，并允许您说出由于某种原因停止服务失败的情况需要重新启动系统。如果您不需要重新启动，您可能只返回一个字符串，其中包含用户发生的一些明智的消息。

对于您的脚本，只是将代码从BeforeServiceInstall过程移动到PrepareToInstall事件方法，并从条目中删除BeforeInstall参数。