?? 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鑞
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -