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 申请管理员权限级别

Delphi ansi与unicode编码互转

Delphi chromium post

Delphi 取得文件版本

Delphi使用api实现模拟按键

Delphi各个版本编译开关值

Delphi的combobox不能输入只能选择

Delphi 网上获取北京时间xmlhttprequest如何访问需要安全验证的网站

Delphi xe6通过wifiapi得到wifi信息

Delphi 判断尾串是否匹配,不分大小写

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

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