求DELPHI7,获取主板，CPU信息的代码?

Question

求DELPHI7,获取主板，CPU信息的代码?
谢谢!

Answer 1

procedure TForm1.ButtonlClick(Sender: TObject);
Var
   Sysinfo:System_Info;
begin
//获取CPU信息
GetSystemInfo (Syslnfo);
//16进制显示分页大小
Edit1.Text:='Ox'+inttohex(Syslnfo.dwPageSize,1);
//16进制显示应用程序和动态链接库可以访问的最小地址
    Edit2.Text:='Ox'+inttohex(integer(sysinfo.lpMinimumApplicationAddress),1);
    //16进制显示应用程序和动态链接库可以访问的最大地址
    Edit3.Text:='Ox'+inttohex(integer(sysinfo.lpMaximumApplicationAddress),1);
    //活动处理器掩码
    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';
    end；
    //16进制显示虚拟内存地址分配的间隔
    Edit7.Text:='Ox'+inttohex(sysInfo.dwAllocationGranularity,1);
    //16进制显示处理器修改信息
    Edit8.Text:='Ox'+inttohex(SysInfo.wProcessorRevision,1);
    end;

Answer 2

如果是双核的CPU,能测出来吧?
再问一下,CPU当前频率怎么求出来,谢谢!那主版信息呢?THANKS!

Answer 3

请问谁有求CPU默认频率和当前频率的代码?