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;