delphi Wmi 获取操作系统信息

本文整理自网络，侵删。

 


unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses ActiveX, ComObj;

function GetWMIProperty(WMIProperty: string): string;
var
Wmi, Objs, Obj: OleVariant;
Enum: IEnumVariant;
C: Cardinal;
begin
Wmi:= CreateOleObject('WbemScripting.SWbemLocator');
Objs := Wmi.ConnectServer('.','root/cimv2').ExecQuery('Select * from Win32_OperatingSystem');
Enum := IEnumVariant(IUnknown(Objs._NewEnum));
Enum.Reset;
Enum.Next(1, Obj, C);
Obj := Obj.Properties_.Item(WMIProperty, 0).Value;
Result := Obj;
end;




procedure TForm1.FormCreate(Sender: TObject);
begin

Memo1.Text :=GetWMIProperty('Caption')+GetWMIProperty('Version');
end;

end.
 

相关阅读 >>

Delphi执行cmd命令

Delphi embeddedwb 遍历frames并执行子frame的js脚本

Delphi 文件夹操作

Delphi 相对路径

Delphi 得到不同平台的录音文件保存路径

Delphi 系统服务状态获取管理员用户名

Delphi根据url获取缓存文件的方法

Delphi获取jpg图片的高度、宽度

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

Delphi提取exe,dll文件的icon图标

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi Wmi 获取操作系统信息