请教高手GetSystemInfo()的具体使用方法，我只有27分

Question

//uses shellapiSysInfo:SYSTEM_INFO;
GetSystemInfo(sysInfo);

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  MySysInfo: TSystemInfo;   //用于保存信息
begin
  GetSystemInfo(MySysInfo);//取得系统信息。
  case MySysInfo.wProcessorArchitecture of //CPU信息
    PROCESSOR_ARCHITECTURE_INTEL: begin      Label1.Caption := 'Intel X86结构CPU';      case MySysInfo.dwProcessorType of
        386: Label2.Caption := '80386';
        486: Label2.Caption := '80486';
        586: Label2.Caption := 'Pentium';
      end;
    end;
    PROCESSOR_ARCHITECTURE_UNKNOWN:
      Label_Arch.Caption := '未知结构CPU类型';
  end;
end;