delphi 获取系统信息, 使用 WMI 获取系统信息

Delphi 获取系统信息详解

在软件开发过程中，获取系统信息是一个常见的需求。Delphi 作为一种强大的编程语言，提供了多种方式来获取系统信息。本文将详细介绍 Delphi 中获取系统信息的方法，包括使用 WMI、Windows API 和其他技术。

使用 WMI 获取系统信息

WMI（Windows Management Instrumentation）是 Windows 系统提供的一种用于获取系统信息的强大工具。Delphi 通过 ActiveX 接口可以轻松访问 WMI。

1. 创建 WMI 对象

首先，需要创建一个 WMI 对象来连接到 WMI 服务。以下是一个示例代码：

```delphi

uses

ActiveX, ComObj;

function GetWMIProperty(WMIType, WMIProperty: string): string;

Wmi, Objs, Obj: OleVariant;

Enum: IEnumVariant;

C: Cardinal;

begin

Wmi := CreateOleObject('WbemScripting.SWbemLocator');

Objs := Wmi.ConnectServer('.','root/cimv2').ExecQuery('Select from ' + WMIType);

Enum := IEnumVariant(IUnknown(Objs.NewEnum));

Enum.Reset;

Enum.Next(1, Obj, C);

Result := Obj.Properties.Item(WMIProperty, 0).Value;

end;

2. 获取系统信息

```delphi

ShowMessage(GetWMIProperty('DiskDrive', 'PNPDeviceID')); // 获取硬盘序列号

ShowMessage(GetWMIProperty('BIOS', 'SerialNumber')); // 获取 BIOS 序列号

ShowMessage(GetWMIProperty('NetworkAdapter', 'MACAddress')); // 获取网卡 MAC 地址

ShowMessage(GetWMIProperty('NetworkAdapter', 'PNPDeviceID')); // 获取网卡序列号

使用 Windows API 获取系统信息

Windows API 提供了一系列函数用于获取系统信息，例如获取操作系统版本、CPU 信息和内存信息。

1. 获取操作系统版本信息

可以使用 `GetVersionEx` 函数获取操作系统版本信息。以下是一个示例代码：

```delphi

uses

Windows;

procedure TForm1.Button1Click(Sender: TObject);

OSVI: OSVERSIONINFO;

begin

OSVI.dwOSversioninfoSize := SizeOf(OSVERSIONINFO);

GetVersionEx(OSVI);

Memo1.Text := Format('%d.%d.%d.%d', [OSVI.dwMajorVersion, OSVI.dwMinorVersion, OSVI.dwBuildNumber, OSVI.dwPlatformId]);

end;

2. 获取 CPU 信息

可以使用 `GetSystemInfo` 函数获取 CPU 信息。以下是一个示例代码：

```delphi

uses

Windows;

procedure TForm1.Button1Click(Sender: TObject);

SysInfo: SYSTEMINFO;

begin

GetSystemInfo(SysInfo);

Memo1.Text := Format('系统中有 %d 个 CPU，类型为 %d', [SysInfo.dwNumberOfProcessors, SysInfo.dwProcessorType]);

end;

3. 获取内存信息

可以使用 `GlobalMemoryStatus` 函数获取内存信息。以下是一个示例代码：

```delphi

uses

Windows;

procedure TForm1.Button1Click(Sender: TObject);

MemStatus: TMemoryStatus;

begin

GlobalMemoryStatus(MemStatus);

Memo1.Text := Format('已用内存：%.2f MB，总内存：%.2f MB', [MemStatus.dwLength / 1024 / 1024, MemStatus.dwTotalPhys / 1024 / 1024]);

end;

其他获取系统信息的方法

除了上述方法，还可以使用其他技术获取系统信息，例如：

- 使用 Delphi 的 `SysUtils` 单元获取系统信息，例如获取当前日期和时间。

- 使用 Delphi 的 `Registry` 单元读取注册表信息。