[分享] Delphi判断卡巴版本

dujie110

uses
   Windows,registry,StrUtils,shellapi;

var
reg: TRegistry;
s: string;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\KasperskyLab\WmiHlp\{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

a13005746827

看不懂```说中文吧

wynnyc

谢谢分享源码。。学习啦。