Inno setup 安装、卸载时判断程序运行状态

最新推荐文章于 2022-11-04 17:43:13 发布

Javacssjsp

最新推荐文章于 2022-11-04 17:43:13 发布

阅读量1.1k

点赞数 4

文章标签： Inno setup

本文链接：https://blog.csdn.net/cscscssjsp/article/details/118653689

版权

本文介绍了如何在使用Inno Setup进行安装和卸载时，检查目标程序是否正在运行，并提供了三种不同的处理策略：1) 无限循环提示用户关闭；2) 用户选择关闭或退出安装；3) 直接终止安装请求，直至程序关闭。

摘要由CSDN通过智能技术生成

inno setup 内配置如下图：

下面代码直接追加到上面截图的编辑器内 Inno Setup ，复制即用

[Code]
// 获取程序是否运行，返回布尔值
function IsAppRunning(const FileName : string): Boolean;
var
    FSWbemLocator: Variant;
    FWMIService   : Variant;
    FWbemObjectSet: Variant;
begin
    Result := false;
    FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator');
    FWMIService := FSWbemLocator.ConnectServer('', 'root\CIMV2', '', '');
    FWbemObjectSet := FWMIService.ExecQuery(
        Format('SELECT Name FROM Win32_Process Where Name="%s"',[FileName]));
    Result := (FWbemObjectSet.Count > 0);
    FWbemObjectSet := Unassigned;
    FWMIService := Unassigned;
    FSWbemLocator := Unassigned;
end;