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('HARDWAREDESCRIPTIONSystemCentralProcessor'),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;