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;
2015年全国职称计算机考试教材(2007模 .. 定价:¥225 优惠价:¥213 更多书籍 | |
全国职称计算机考试速成过关系列套装:W .. 定价:¥133 优惠价:¥133.0 更多书籍 |