怎样用程序测试出硬件信息？

Question

getsysteminfo() ,To get detail do call help

Answer 1

uses Windows;//............................var sys : TSystemInfo;
begin
  Windows.GetSystemInfo(sys);
  sys.dwPageSize;   //DWORD型
  sys.dwActiveProcessorMask;
  sys.dwNumberOfProcessors;
  sys.dwProcessorType;
  sys.dwAllocationGranularity;
end;

Answer 2

uses windows;//.............var
   mem : TMemoryStatus;
begin
      Windows.GlobalMemoryStatus(mem);
      with mem do begin
         dwMemoryLoad; //已用内存
         dwTotalPhys     div 1024;  //物理内存总量
         dwAvailPhys     div 1024;  //可用内存
      end;
end;