Inno Setup 系列之安装、卸载前检测进程运行情况并关闭相应进程

Inno Setup 系列之安装、卸载前检测进程运行情况并关闭相应进程

需求

最近用 Inno Setup 做一个exe，可是在安装之前要停止正在运行的相应进程或者在卸载之前要停止正在运行的相应进程，可是发现它自身的方法不能满足要求，最后经过度娘的耐心帮助下终于在网上找到了相应的资料，在这里总结一下，方便以后使用。

具体代码

如果只是在安装之前判断一个进程是否存在，需要要引入 psvince.dll ，放在Inno Setup的安装目录下，代码如下：

[Files]

; 安装前判断进程， psvince.dll 文件放在Inno Setup的安装目录下

Source: compiler:psvince.dll; Flags: dontcopy noencryption

[Code] 

;安装前判断是否有进程正在运行

function IsModuleLoaded(modulename: String ): Boolean;
external 'IsModuleLoaded@files:psvince.dll stdcall setuponly';

function InitializeSetup(): Boolean;
var
value: string;
IsAppRunning: boolean;

begin
value := ExpandConstant('{cm:DiagnosisRunning}'); 
Result:= true;
IsAppRunning:= IsModuleLoaded('