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;