zoukankan      html  css  js  c++  java
  • WinAPI: GetSystemInfo 获取系统信息

    //声明:
    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;
    
    //效果图:

  • 相关阅读:
    java 用代码实现判断字符串的开头和结尾
    java基础 1-path
    C#基础(语句 for循环)
    C#基础(数组)
    C#基础(语句 if else)
    C#基础(变量、常量、运算符)
    继承-person
    继承-字母表
    继承-monkey
    继承-people
  • 原文地址:https://www.cnblogs.com/del/p/1066834.html
Copyright © 2011-2022 走看看