dujie110 发表于 2009-9-25 20:41

[分享] Delphi判断卡巴版本

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 发表于 2009-9-25 21:43

看不懂```说中文吧

wynnyc 发表于 2009-9-26 03:09

谢谢分享源码。。学习啦。
页: [1]
查看完整版本: [分享] Delphi判断卡巴版本


免责声明：
吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Service@52pojie.cn