Inno安装 – 在文件复制前正确停止服务

[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);
    end else begin
      //service failed to install

    end;
  end;
end;

当第一次安装服务(不存在并且当前不运行)时,此服务的安装/启动工作正常.但是,在现有安装(升级)上运行此安装程序时,安装程​​序在识别到此服务正在运行时停止,并提示终止进程(在调用BeforeserviceInstall()处理程序之前)…

如何防止此提示出现在服务中？我避免不必要重新启动,并且仍然希望这个提示出现在所有其他文件中.