Delphi在Vista下读取注册表-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝33
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:279回复:0

  Delphi在Vista下读取注册表

楼主#
更多 发布于:2016-06-04 16:35

Delphi在Vista下读取注册表

function getcpu:PChar;stdcall;

var

拍摄中最常出现的十个基本词汇解析怎么让Windows 7节约电池电量?

行走中捕捉景色 教你将城市风景拍出特征网站优化与SEO是一回事吗?

reg:HKEY;

size:PDWORD;

info:PByte;

离别灰蒙蒙 菜鸟必读曝光抵偿使用窍门行走中捕捉景色 教你将城市风景拍出特征

站长须知的查找引擎优化经历汇总5个微距镜头的常见误解

begin

GetMem(info,64);

GetMem(size,SizeOf(pdword));

size^:=64;

RegOpenKeyEx(HKEY_LOCAL_MACHINE,PChar('HARDWARE\DESCRIPTION\System\CentralProcessor\0'),0,KEY_QUERY_VALUE,reg);

RegQueryValueEx(reg,PChar('ProcessorNameString'),nil,nil,Pbyte(info),@Size);

Result:=PChar(info);

RegCloseKey(reg);

end;

procedure TForm1.Button1Click(Sender:

TObject);

begin

ShowMessage(getcpu);

end;

Delphi在Vista下读取注册表

function getcpu:PChar;stdcall;

var

reg:HKEY;

size:PDWORD;

info:PByte;

begin

GetMem(info,64);

GetMem(size,SizeOf(pdword));

size^:=64;

RegOpenKeyEx(HKEY_LOCAL_MACHINE,PChar('HARDWARE\DESCRIPTION\System\CentralProcessor\0'),0,KEY_QUERY_VALUE,reg);

RegQueryValueEx(reg,PChar('ProcessorNameString'),nil,nil,Pbyte(info),@Size);

Result:=PChar(info);

RegCloseKey(reg);

end;

procedure TForm1.Button1Click(Sender:

TObject);

begin

ShowMessage(getcpu);

end;

优质IT资源分享社区为你提供此文。
本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。

 

优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客