Delphi在Vista下读取注册表

来源:网络时间:2011-08-05 17:05:32

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;

文章内容来源于网络,不代表本站立场,若侵犯到您的权益,可联系我们删除。(本站为非盈利性质网站) 联系邮箱:rjfawu@163.com