当前位置: 开源爱好者 » 编程教程 » Delphi教程 » 正文

Delphi 得到电脑的CPU信息

  • 时间:2018-04-10
  • 简述:CPU

Delphi 获取主机电脑的CPU信息,这个比较早的代码了,里面的CPU类型有些早了,不过根据资料可以把最新的CPU标识添加上去,这类程序其实编写起来不算太复杂:

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
  SysInfo:SYSTEM_INFO;
begin
  GetSystemInfo(SysInfo);
  //获取CPU信息
  Edit1.Text:='0x'+inttohex(SysInfo.dwPageSize,1);
  //16进制显示分页大小
  Edit2.Text:='0x'+inttohex(integer(sysinfo.lpMinimumApplicationAddress),1);
  //16进制显示应用程序和动态链接库可以访问的最小地址
  Edit3.Text:='0x'+inttohex(integer(sysinfo.lpMaximumApplicationAddress),1);
  //16进制显示应用程序和动态链接库可以访问的最大地址
  Edit4.Text:=inttostr(sysinfo.dwActiveProcessorMask);
//活动处理器掩码;
  Edit5.Text:=inttostr(sysinfo.dwNumberOfProcessors);
  //处理器个数
  case SysInfo.dwProcessorType of
  //处理器类型
    386:Edit6.Text:='386系列';
    486:Edit6.Text:='486系列';
    586:Edit6.Text:='奔腾系列';
    4000:Edit6.Text:='MIPS_R4000';
    21064:Edit6.Text:='ALPHA_21064';//这里需要添加最新的CPU标识,现在都是酷睿了I7/I5系列或AM4
  end;
  Edit7.Text:='0x'+inttohex(SysInfo.dwAllocationGranularity,1);
  //16进制显示虚拟内存地址分配的间隔
  Edit8.Text:='0x'+inttohex(SysInfo.wProcessorRevision,1);
  //16进制显示处理器修改信息
end;
end.

里面各种类型的CPU标识要自己收集添加上去,要不然检测出的CPU信息不准确哦。

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图