inno-setup – 在Inno Setup中使用“taskkill / f / im”重新安装之前杀死进程

我安装了一个服务/守护进程,需要在卸载和重新安装之前将其杀死.

我已经找到了how to do it for uninstall：

[UninstallRun]
Filename: "taskkill"; Parameters: "/im ""My Service.exe"" /f"; Flags: runhidden

但是,[Run]部分在安装后运行,因此我无法使用它.在安装之前使用taskkill终止进程的最佳方法是什么？

请注意,我特别想杀死这个过程. A more complex solution using IPC在我的情况下没有任何好处,我只想在安装特定文件之前执行taskkill.

我在代码部分找到了使用BeforeInstall关键字和简单Pascal函数的方法.我添加了一个字符串参数,因此它可以重用于多个进程.

[Files]
Source: "My Service 1.exe"; DestDir: "{app}"; Flags: ignoreversion; BeforeInstall: TaskKill('My Service 1.exe')
Source: "My Service 2.exe"; DestDir: "{app}"; Flags: ignoreversion; BeforeInstall: TaskKill('My Service 2.exe')

[Code]
procedure TaskKill(FileName: String);
var
  ResultCode: Integer;
begin
    Exec(ExpandConstant('taskkill.exe'), '/f /im ' + '"' + FileName + '"', '', SW_HIDE,
     ewWaitUntilTerminated, ResultCode);
end;