考试首页 | 考试用书 | 培训课程 | 模拟考场 | 考试论坛  
  当前位置:编程开发 > DotNET > Delphi.Net > 文章内容
  

Delphi基础教程:Delphi在Vista下读取注册表

 [ 2017年9月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;

本文纠错】【告诉好友】【打印此文】【返回顶部
将考试网添加到收藏夹 | 每次上网自动访问考试网 | 复制本页地址,传给QQ/MSN上的好友 | 申请链接 | 意见留言 TOP
关于本站  网站声明  广告服务  联系方式  站内导航  考试论坛
Copyright © 2007-2013 中华考试网(Examw.com) All Rights Reserved