Delphi在Vista下读取注册表

最新推荐文章于 2019-09-02 15:29:00 发布

martian6125

最新推荐文章于 2019-09-02 15:29:00 发布

阅读量81

点赞数

分类专栏： Delphi

本文链接：https://blog.csdn.net/martian6125/article/details/82018283

版权

Delphi 专栏收录该内容

262 篇文章 5 订阅

订阅专栏

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;