delphi 调用WMI信息判断系统师傅安装杀毒软件

单元：,ShlObj,ActiveX, ComObj

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('SE LE CT displayName FROM AntiVirusProduct');

Result := (FWbemObjectSet.Count > 0);

FWbemObjectSet := Unassigned;

FWMIService := Unassigned;

FSWbemLocator := Unassigned;

end;

推荐分享