您的位置: 首页 > 软件教程 > Delphi教程专题 > Delphi在Vista下读取注册表

Delphi在Vista下读取注册表

7.0分
出处:网络 时间:2011-08-05

您可能感兴趣的话题: Delphi  

核心提示:Delphi在Vista下读取注册表,下面分享是代码希望大家会喜欢。

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;

网友评论
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual Basic.NET是从 Vis... [详细]