delphi 通过注册表获取系统版本和CPU型号

本文整理自网络，侵删。

 
uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var
 mm:TRegistry;
 cpu:string;
begin
   mm:=TRegistry.Create;
   with mm do
   begin
     RootKey:=HKEY_LOCAL_MACHINE;
     if OpenKeyReadOnly('\Hardware\Description\System\CentralProcessor\0') then
     begin
      cpu := ReadString('ProcessorNameString');
      Memo1.Lines.Add('处理器:'+cpu);
    end;
   end;
   Memo1.Lines.Add('系统版本:'+TOSVersion.ToString);
end;
 

相关阅读 >>

Delphi map file

Delphi 根据磁盘盘符获取简单的硬盘编号

Delphi 注入不用writeprocessmemory 函数

Delphi 调用外部程序获取程序id，并能关闭该程序

Delphi win32，win64用于单/多线程计数素数的整数性能比较

Delphi时间格式错误

Delphi双击tmemo选择光标所在行

Delphi的unicode与gb2312转转换,汉字unicode转gb2312

Delphi tstreamwriter tstreamreader 流操作3

Delphi unicode转换ansi

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 通过注册表获取系统版本和CPU型号