本文整理自网络，侵删。
function TRATServer.GetSecuritySoftware:string;//delphi获取安全软件信息
var
softinfo:string;
reg: TRegistry;
ini: TInifile;
path:string;
begin
softinfo:=”;
reg := TRegistry.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
//检查是否安装卡巴斯基
if reg.KeyExists(‘SOFTWARE\KasperskyLab’) then
begin
reg.OpenKey(‘SOFTWARE\KasperskyLab\WmiHlp\{2C4D4BC6-0793-4956-A9F9-E252435469C0}’,false);
softinfo:=softinfo+reg.ReadString(‘DisplayName’);
softinfo:=softinfo+reg.ReadString(‘VersionNumber’)+’；’;
reg.CloseKey;
end;
//检查是否安装瑞星安全软件
if reg.KeyExists(‘SOFTWARE\rising\’) then
begin
if reg.KeyExists(‘SOFTWARE\rising\KaKa’) then
begin
reg.OpenKey(‘SOFTWARE\rising\KaKa’,false);
softinfo:=softinfo + reg.ReadString(‘name’);
softinfo:=softinfo + reg.ReadString(‘version’)+’；’;
reg.CloseKey;
end;
if reg.KeyExists(‘SOFTWARE\rising\rav’) then
begin
reg.OpenKey(‘SOFTWARE\rising\Rav’,false);
softinfo:=softinfo + reg.ReadString(‘name’);
softinfo:=softinfo + ‘ ‘+reg.ReadString(‘version’)+’；’;
reg.CloseKey;
end;
if reg.KeyExists(‘SOFTWARE\rising\rfw’) then
begin
reg.OpenKey(‘SOFTWARE\rising\rfw’,false);
softinfo:=softinfo + reg.ReadString(‘name’);
softinfo:=softinfo +’ ‘ + reg.ReadString(‘version’)+’；’;
reg.CloseKey;
end;
end;
//检查是否安装360安全卫士
if reg.KeyExists(‘SOFTWARE\360safe’) then
begin
reg.OpenKey(‘SOFTWARE\360safe\liveup’,false);
softinfo:=softinfo+’ 360安全卫士 木马库版本：’+reg.ReadString(‘libver’)
+’ 木马库日期：’+reg.ReadString(‘libdate’)+’；’;
reg.CloseKey;
end;
//检查是否安装超级巡警
if reg.KeyExists(‘SOFTWARE\ast’) then
begin
softinfo:=softinfo+’超级巡警’;
reg.OpenKey(‘SOFTWARE\ast’,false);
path:=reg.ReadString(‘AppName’);
ini:=Tinifile.Create(extractfilepath(path)+’\info.ini’);
if FileExists(path) then
begin
Application.ProcessMessages;
softinfo:=softinfo+ ini.ReadString(‘Version’,'app’,”)
+’ 病毒库：’+ini.ReadString(‘Version’,'eng’,”)+’；’;
end;
reg.CloseKey;
end;
//检查是否安装微点主动防御
if reg.KeyExists(‘SOFTWARE\Micropoint’) then
begin
softinfo:=softinfo+’微点主动防御’+'；’;
reg.CloseKey;
end;
finally
reg.Free;
result:=softinfo;
end;
end;
我只装过这些了，呵呵
编程环境：windowsXP_SP3+Delphi7
相关阅读 >>
Delphi 让combobox只允许输入数字和回车键以及Delphi key值表
Delphi通过spcomm com口发短信包括pud编码解码
更多相关阅读请进入《Delphi》频道 >>
