Inno Setup 检测运行进程并提示结束解决方案

一般在安装某些程序的时候，我们都希望用户的电脑中不需要有其它进程来影响到我们要安装和软件。而在执行安装前我们可以通过使用Inno Setup 检测当前系统中运行的进程，如果有用户在执行了某些进程，那么通过该检测就可以有效的提示用户先关闭进程后再执行安装。这样在安装软件的时候就不会因为有相关进程拦截或者出现冲突而导致安装错误。

以下是小编收集的详细的Inno Setup检测运行进程并提示结束解决方案代码，您可以根据自己的需要复制到Inno Setup脚本中合理使用即可。

;声明：本示例由 WLDNA 编写，如有转载，请保留此说明，谢谢！
;Auther: WLDNA

#include "istask.ish"
;请务必增加该包含选项

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=userdocs:Inno Setup Examples Output
Compression=lzma/ultra
InternalCompressLevel=ultra
;SolidCompression=yes
;DisableDirPage=yes
;DisableReadyPage=yes

[CustomMessages]
Tasks=QQ.exe
;如果您想检测多个进程可以使用 %n 分割，示例：cmd.exe%nnotepad.exe

[Code]
function InitializeSetup(): Boolean;
begin
  Result := True;

  if PDir ('ISTask.dll') <> '' then
    if RunTasks(CustomMessage('Tasks'), False, False) then
    begin
      if MsgBox('检测到 QQ 正在运行，安装无法继续。' + #13#10 + #13#10 +
        '单击「确定」直接关闭 QQ 或者单击「取消」退出安装。', mbConfirmation, MB_OKCANCEL) = IDYES then
        begin
          KillTasks(CustomMessage('Tasks'));
          Result := True;
        end
        else
          Result := False;
    end
end;

function InitializeUninstall(): Boolean;
begin
  Result := True;

  if PDir ('ISTask.dll') <> '' then
    if RunTask('QQ.exe', False) then
    begin
      if MsgBox('检测到 QQ 正在运行，安装无法继续。' + #13#10 + #13#10 +
        '单击「确定」直接关闭 QQ，或者单击「取消」退出安装。', mbConfirmation, MB_OKCANCEL) = IDYES then
        begin
          KillTask('QQ.exe');
          Result := True;
        end
        else
          Result := False;
    end
end;

Inno Setup脚本的灵活运用可以让您能在执行安装的时候有很多可以操作执行，关键还是要看你的想法以及您想做些什么。