文档章节

WinAPI: GetSystemInfo - 获取系统信息

涂孟超
 涂孟超
发布于 2014/09/26 15:31
字数 274
阅读 4
收藏 0
//声明:
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;

 
 
 
 
 

 

 

  
//效果图:

本文转载自:http://www.cnblogs.com/del/archive/2008/02/11/1066834.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
VC++:结合设备安装类GUID和设备接口类GUID获取设备VIDPID

前言: VID和PID常被用于厂家的软件加密,只有在系统中检测到某VID和PID的设备时,软件才能运行。因此获取某一类型设备或者全部设备的VID和PID集合至关重要。获取设备VID和PID的一般流程是通...

陈国成
2015/07/06
0
0
visual c#设计的多功能关机程序

Visual C#设计多功能关机程序 许多软件都有自动关机功能,特别是在长时间下载的时候,这个功能可是使你不用以守候在计算机前面,而电脑却能按照您事先的设定自动关闭。现在我们用visualC#来编...

crossmix
2015/02/20
123
0
[Beautifulzzzz的博客目录] 快速索引点这儿O(∩_∩)O~~,红色标记的是不错的(⊙o⊙)哦~

3D相关开发 [direct-X] 1、direct-X最小框架 [OpenGL] 1、环境搭建及最小系统 [OpenGL] 2、企业版VC6.0自带的Win32-OpenGL工程浅析 51单片机 [51单片机] 1602液晶显示控制代码 [51单片机] 1...

史迪奇2号
2017/08/01
0
0
vc编程的ime输入法菜单开发

WINDOWS 下 IME 编程 IME 编程心得 第一章 Windows9x 系统下汉字输入法的基本原理 第二章 Windows9x 系统提供的 ime 管理函数 第三章 ime 文件中必须使用的结构 自由拼音输入法的测试 输入法...

crossmix
2014/12/07
1K
3
C# 和 Win32API

API (Application Programming Interface) is a set of commands, which interfaces the programs with the processors. The most commonly used set of external procedures are those that......

晨曦之光
2012/03/09
338
0

没有更多内容

加载失败,请刷新页面

加载更多

查看线上日志常用命令

cat 命令(文本输出命令) 通常查找出错误日志 cat error.log | grep 'nick' , 这时候我们要输出当前这个日志的前后几行: 显示file文件里匹配nick那行以及上下5行 cat error.log | grep -C ...

xiaolyuh
15分钟前
3
0
六、Java设计模式之工厂方法

工厂方法定义: 定义一个创建对象的接口,但让实现这个接口的类来决定实例化哪个类,工厂方法让类的实例化推迟到子类中进行 类型:创建型 工厂方法-使用场景: 创建对象需要大量重复的代码 ...

东风破2019
22分钟前
2
0
win服务器管理遇到的一系列问题记录

有些小伙伴在使用iis7远程桌面管理工具的时候总是会遇到一系列的问题,下面就是为大家介绍一下服务器日常管理过程中出现的问题及我的解决办法和心得。希望能帮到大家。   拒绝服务器重新启...

1717197346
29分钟前
2
0
flutter 剪切板 复制粘贴

复制粘贴功能 import 'package:flutter/services.dart'; Clipboard.setData(ClipboardData(text:_text));Clipboard.getData;...

zdglf
31分钟前
3
0
如何保证消息的可靠性传输?或者说,如何处理消息丢失的问题?

面试题 如何保证消息的可靠性传输?或者说,如何处理消息丢失的问题? 面试官心理分析 这个是肯定的,用 MQ 有个基本原则,就是数据不能多一条,也不能少一条,不能多,就是前面说的重复消费...

米兜
32分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部