Delphi调用WinAPI: GetSystemInfo - 获取系统信息

Delphi调用WinAPI: GetSystemInfo - 获取系统信息2012-04-04 cnblogs 万一//声明:

GetSystemInfo（
 var lpSystemInfo: TSystemInfo {}
）;
//TSystemInfo 是 _SYSTEM_INFO 结构的重定义:
_SYSTEM_INFO = record
 case Integer of
  0: （
   dwOemId: DWORD）; {返回计算机标识符, 已废弃}
  1: （
   wProcessorArchitecture: Word;    {处理器的体系结构}
   wReserved: Word;           {保留}
   dwPageSize: DWORD;          {分页大小}
   lpMinimumApplicationAddress: Pointer;{最小寻址空间}
   lpMaximumApplicationAddress: Pointer;{最大寻址空间}
   dwActiveProcessorMask: DWORD;    {处理器掩码; 0..31 表示不同的处理 器}
   dwNumberOfProcessors: DWORD;     {处理器数目}
   dwProcessorType: DWORD;       {处理器类型}
   dwAllocationGranularity: DWORD;   {虚拟内存空间的粒度}
   wProcessorLevel: Word;        {处理器等级}
   wProcessorRevision: Word）;      {处理器版本}
end;

//举例:

procedure TForm1.FormCreate（Sender: TObject）;
var
 SI: TSystemInfo;
begin
 GetSystemInfo（SI）;
 Memo1.Clear;
 with Memo1.Lines do
 begin
  Add（Format（"OEMID:" + #9#9 + "%d", [SI.dwOemId]））;
  Add（Format（"处理器体系结构:" + #9 + "%d", [SI.wProcessorArchitecture]））;
  Add（Format（"分页大小:" + #9 + "%d", [SI.dwPageSize]））;
  Add（Format（"最小寻址空间:" + #9 + "%d", [Integer （SI.lpMinimumApplicationAddress）]））;
  Add（Format（"最大寻址空间:" + #9 + "%d", [Integer （SI.lpMaximumApplicationAddress）]））;
  Add（Format（"处理器掩码:" + #9 + "%d", [SI.dwActiveProcessorMask]））;
  Add（Format（"处理器数目:" + #9 + "%d", [SI.dwNumberOfProcessors]））;
  Add（Format（"处理器类型:" + #9 + "%d", [SI.dwProcessorType]））;
  Add（Format（"虚拟内存粒度:" + #9 + "%d", [SI.dwAllocationGranularity]））;
  Add（Format（"处理器等级:" + #9 + "%d", [SI.wProcessorLevel]））;
  Add（Format（"处理器版本:" + #9 + "%d", [SI.wProcessorRevision]））;
 end;
end;

//效果图: