安装打包程序检测运行进程并提示结束解决方案(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;