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

一般在安装某些程序的时候，我们都希望用户的电脑中不需要有其它进程来影响到我们要安装和软件。而在执行安装前我们可以通过使用 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;

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