当前位置:首页 > 开发教程 > Delphi教程 >

i在Vista下读取注册表

时间:2013-09-22 09:24 来源: 作者: 收藏

2345软件教程,为您打造全面的软件教程手册,无论是新奇小软件的操作还是专业软件的使用技巧,2345软件教程都会为您解疑释惑。

核心提示:Delphi在Vista下读取注册表,下面分享是代码希望大家会喜欢。

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;


Delphi教程阅读排行

最新文章