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/天下网吧小程序,一起来超精彩
|
本文来源:来自网络 作者:佚名