InnoSetup安装卸载时检查程序是否运行提示并中止程序

Inno Setup打包的软件需要在安装和卸载时检查程序是否在运行，不然会安装失败或者卸载不完全，网上搜了一下，有几种方法：

1. 自己封装DLL，或者下载别人写好的DLL，比如psvince.dll和ISTask.dll，判断程序是否运行然后中止（有人说调用很慢很卡，没验证，因为自己没下载这两个DLL，自己写觉得麻烦）

2. 通过FindWindowByWindowName之类的函数查找窗口，然后发送消息，通知程序退出（窗口名不固定就很麻烦，还有查找不到的）

3. 通过调用命令行，执行windwow命令，达到检查和中止的功能（调用cmd命令会被一些杀毒软件阻止，需要手动允许）

4. 通过在程序中添加命名mutex，然后在iss脚本中通过CheckForMutexes等函数判断程序是否运行

我使用的是第3种方法

在iss脚本的[Code]段添加如下代码，自己替换 “你的软件名.exe” 成你要检查的exe名称

[Code]// 自定义函数，判断软件是否运行，参数为需要判断的软件的exe名称
function KDetectSoft(strExeName: String): Boolean;
// 变量定义
var ErrorCode: Integer;
var bRes: Boolean;
var strFileContent: AnsiString;
var strTmpPath: String; // 临时目录
var strTmpFile: String; // 临时文件，保存查找软件数据结果
var strCmdFind: String; // 查找软件命令
var strCmdKill: String; // 终止软件命令
beginstrTmpPath := GetTempDir();strTmpFile := Format(&＃39;%sfindSoftRes.txt&＃39;, [strTmpPath]);strCmdFind := Format(&＃39;/c tasklist /nh|find /c /i "%s" > "%s"&＃39;, [strExeName, strTmpFile]);strCmdKill := Format(&＃39;/c taskkill /f /t /im %s&＃39;, [strExeName]);//ShellExec(&＃39;open&＃39;, ExpandConstant(&＃39;{cmd}&＃39;), &＃39;/c taskkill /f /t /im 你的软件名.exe&＃39;, &＃39;&＃39;, SW_HIDE, ewNoWait, ErrorCode);//bRes := ShellExec(&＃39;open&＃39;, ExpandConstant(&＃39;{cmd}&＃39;), &＃39;/c tasklist /nh|find /c /i "你的软件名.exe" > 0.txt&＃39;, &＃39;&＃39;, SW_HIDE, ewWaitUntilTerminated, ErrorCode);bRes := ShellExec(&＃39;open&＃39;, ExpandConstant(&＃39;{cmd}&＃39;), strCmdFind, &＃39;&＃39;, SW_HIDE, ewWaitUntilTerminated, ErrorCode);if bRes then beginbRes := LoadStringFromFile(strTmpFile, strFileContent);strFileContent := Trim(strFileContent);if bRes then beginif StrToInt(strFileContent) > 0 then beginif MsgBox(ExpandConstant(&＃39;{cm:checkSoftTip}&＃39;), mbConfirmation, MB_OKCANCEL) = IDOK then begin// 终止程序ShellExec(&＃39;open&＃39;, ExpandConstant(&＃39;{cmd}&＃39;), strCmdKill, &＃39;&＃39;, SW_HIDE, ewNoWait, ErrorCode);Result:= true;// 继续安装end else beginResult:= false;// 安装程序退出Exit;end;end else begin//MsgBox(&＃39;软件没在运行&＃39;, mbInformation, MB_OK);Result:= true;Exit;end;end;end;Result :=true;
end;// 开始页下一步时判断软件是否运行
function NextButtonClick(CurPageID: Integer): Boolean;
beginif 1=CurPageID then beginResult := KDetectSoft(&＃39;你的软件名.exe&＃39;);Exit;end; Result:= true;
end;// 卸载时关闭软件
function InitializeUninstall(): Boolean;
beginResult := KDetectSoft(&＃39;你的软件名.exe&＃39;);
end;


脚本是支持中英文安装包，所以还要添加[CustomMessages]段

; 自定义不同语言文本
[CustomMessages]
english.checkSoftTip=Setup detects that the software to be installed is running!%n%nClick "ok" to continue the operation after terminating the software, otherwise click "cancel" .
chinesesimp.checkSoftTip=安装程序检测到将安装的软件正在运行！%n%n点击"确定"终止软件后继续操作，否则点击"取消"。

如果不用支持中英文，可以把上面函数里的ExpandConstant(&＃39;{cm:checkSoftTip}&＃39;)直接改成你要显示的提示