您现在的位置: 天下网吧 >> 网吧天地 >> 天下码农 >> 后端开发 >> PHP >> 正文

Delphi在Vista下读取注册表

2008-11-7来自网络佚名

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;  

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com

关注天下网吧微信/下载天下网吧APP/天下网吧小程序,一起来超精彩

本文来源:来自网络 作者:佚名

声明
声明:本站所发表的文章、评论及图片仅代表作者本人观点,与本站立场无关。若文章侵犯了您的相关权益,请及时与我们联系,我们会及时处理,感谢您对本站的支持!联系邮箱:support@txwb.com,系统开号,技术支持,服务联系QQ:1175525021本站所有有注明来源为天下网吧或天下网吧论坛的原创作品,各位转载时请注明来源链接!
天下网吧 网吧天下