RSS订阅 | 匿名投稿
您的位置:网站首页 > 系统 > 正文

Delphi 10.3版本获取windows系统版本和CPU信息

作者:admin 来源: 日期:2019/7/1 17:42:12 人气: 标签:

Delphi 10.3版本获取windows系统版本和CPU信息

procedure TForm1.Button1Click(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;

需要引用 System.Win.Registry单元

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料