Delphi判断卡巴版本

uses
   Windows,registry,StrUtils,shellapi;
var
reg: TRegistry;
s: string;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey(SOFTWAREKasperskyLabWmiHlp{2C4D4BC6-0793-4956-A9F9-E252435469C0}, False);
s:=reg.ReadString(VersionNumber);
if AnsiContainsStr(s,8.) then
begin
MessageBox(0,8.X,提示,MB_OK);
end;
if AnsiContainsStr(s,7.) then
begin
MessageBox(0,7.X,提示,MB_OK);
end;
if AnsiContainsStr(s,6.) then
begin
MessageBox(0,6.X,提示,MB_OK);
end

补充：综合编程 , 安全编程 ,

上一个：隐藏进程
下一个：使用C语言编写提取通用shellcode的程序