| 利用WindowsAPI函数和注册表获取系统信息 |
|
作者：佚名 文章来源：onegreen.net 点击数： 更新时间：2008-5-13 0:12:34  |
486 : buffer:=' CPU类型: 486';
586 : buffer:=' CPU类型: Pentium';
end;
memo1.Lines.add(buffer);
file://从注册表中获取CPU标识，Windows版本，
产品标识，注册单位名称及用户名
myreg:=Tregistry.Create;
myreg.RootKey:=HKEY_LOCAL_MACHINE;
if myreg.OpenKey('hardware\description\
system\centralprocessor\0',false) then
memo1.lines.add(' CPU标识:
'+myreg.ReadString('VendorIdentifier'));
myreg.closekey;
if myreg.openkey('software\microsoft\ windows\currentversion',false) then
begin
memo1.lines.add(' windows版本: '+myreg.ReadString('Version'));
memo1.lines.add(' 版本号: '+myreg.ReadString('VersionNumber')+' '+myreg.ReadString('Subversionnumber'));
memo1.lines.add(' 产品标识: '+myreg.Readstring('ProductID'));
memo1.lines.add('注册单位名称: '+myreg.readstring('RegisteredOrganization'));
memo1.lines.add(' 注册用户名: '+myreg.readstring('RegisteredOwner'));
end;
myreg.CloseKey;
myreg.Free;
end;
end
上一页 [1] [2] [3] |
| 文章录入：onegreen 责任编辑：onegreen |
|
上一篇文章： MS－DOS方式下对注册表的编程
下一篇文章： 没有了 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
