Inno Setup 检查是不是安装了杀毒软件

Posted 2023-02-16

【中文标题】Inno Setup 检查是不是安装了杀毒软件

【英文标题】：Inno Setup Check if Antivirus Software is InstalledInno Setup 检查是否安装了杀毒软件

【发布时间】：2013-07-13 09:38:29

【问题描述】：

有没有办法检查是否使用 Inno Setup 安装了杀毒软件？

【问题讨论】：

您要检查特定的防病毒软件还是任何防病毒软件？

【参考方案1】：

您可以使用AntiVirusProduct WMI 类，具体取决于您必须连接到root\SecurityCenter 或root\SecurityCenter2 命名空间的窗口版本。

更多详情请查看这篇文章 Getting the installed Antivirus, AntiSpyware and Firewall software using Delphi and the WMI

注意：AntiVirusProduct WMI 类仅支持 Windows 桌面版本（Windows XP、Windows Vista、7、8）。

试试这个示例。

function IsAntivirusInstalled: Boolean;
var
    FSWbemLocator: Variant;
    FWMIService   : Variant;
    FWbemObjectSet: Variant;
    Version: TWindowsVersion;
begin 
    GetWindowsVersionEx(Version);    
    Result := false;
    FSWbemLocator := CreateOleObject('WBEMScripting.SWBEMLocator');

    if (Version.Major = 5) and (Version.Minor = 1) then //Windows XP
      FWMIService := FSWbemLocator.ConnectServer('', 'root\SecurityCenter', '', '')
    else
    if (Version.Major = 6) then 
      FWMIService := FSWbemLocator.ConnectServer('', 'root\SecurityCenter2', '', '')
    else
    exit;

    FWbemObjectSet := FWMIService.ExecQuery('SELECT displayName FROM AntiVirusProduct');
    Result := (FWbemObjectSet.Count > 0);
    FWbemObjectSet := Unassigned;
    FWMIService := Unassigned;
    FSWbemLocator := Unassigned;
end;