main.pas

一个很不错的系统信息控件

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls, MSI_Common, MiTeC_WbemScripting_TLB, MiTeC_WMI;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Tree: TTreeView;
    Button2: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    eMachine: TEdit;
    eUser: TEdit;
    ePwd: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure cmRefresh(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure TreeCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode;
      State: TCustomDrawState; var DefaultDraw: Boolean);
  private
  public
    procedure RefreshData;
  end;

var
  Form1: TForm1;

implementation

uses MiTeC_StrUtils;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption:='WMI Demo - '+cCompname+' '+cVersion;
  cmRefresh(nil);
end;

procedure TForm1.cmRefresh(Sender: TObject);
begin
  Screen.Cursor:=crHourglass;
  try
    RefreshData;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.RefreshData;
var
  i,j,k: Integer;
  r,n,c: TTreeNode;
  wmi,wmi1,wmi2,wmi3: TInstances;
  s,s1,s2: string;
  v: Int64;
begin
  Screen.Cursor:=crHourglass;
  Tree.Hide;
  Tree.Items.BeginUpdate;
  Update;

  try
    Tree.Items.Clear;
    if not WMIConnect(eMachine.Text,eUser.Text,ePwd.Text,Rootnamespace) then
      Exit;

    WMICommand('Win32_ComputerSystem',wmi1);

    r:=Tree.Items.AddChild(nil,'Computer');
    n:=Tree.Items.AddChild(r,Format('%s - %s',[GetInstancePropertyValue(wmi1,'Name'),
                                               GetInstancePropertyValue(wmi1,'UserName')]));

    WMICommand('Win32_OperatingSystem',wmi);

    r:=Tree.Items.AddChild(nil,'Opera鑞