解决Inno Setup运行进程冲突的方法：检测并结束进程

ChatGPT3.5-4 免费使用

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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
;声明：本示例由 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;