首页>编程相关>Delphi源码
下载

Delphi Wmi 类生成器是一个应用程序，它创建完整记录的 Object Pascal 类来访问 WMI（Windows 管理规范）。

特征

  • 生成的代码兼容 Delphi 7、2005、BDS/Turbo 2006 和 RAD Studio 2007-2010、XE-XE7 和 Free Pascal Compiler 2.2.4 (win32)

  • 创建与帮助洞察功能兼容的完整记录类，该功能自 Delphi 2005 起可用。

注意：方法、参数和属性的描述语言取决于生成单元的窗口的语言。

  • 创建辅助函数来检索属性和函数的返回值的描述。

局限性

该应用程序的生成率约为 99%。在这种情况下，但是某些 WMI 类以不正确的格式公开元数据，或者元数据的结构与用于创建对象 pascal 代码的算法不兼容，在这种情况下，您必须手动修补代码。

在此页面上您可以找到有问题的类。另一种选择是直接从存储库下载生成的修补类，

内部结构

该工具提取并解析存储在 WMI 类中的元数据（属性、方法、限定符、有效值和描述），以重新创建 Object Pascal 兼容类。

应用程序生成的每个Object pascal类都源自基类TWmiClass，该类封装对wmi的访问，将调用类返回的值（OleVariant）转换为本机类型，并将值存储在内部集合（缓冲区）中属性和实例的地址。

TWmiClass 类可以用两种模式编译。

使用Microsoft WMI 脚本 V1.2 库

这个包装器（WbemScripting_TLB）是由delphi编译器生成的，该选项改进了对WMI的初始访问（该选项与FPC不兼容）。如果您使用此模式，您必须在您的项目中包含 WbemScripting_TLB 单元。

使用后期绑定

当您需要生成小 exe 文件时，此选项很有用。初始执​​行时性能有点慢。

要在这两种模式之间进行选择，您必须在 uWmiDelphiClass 单元中注释或取消注释以下行

 { $DEFINE WbemScripting_TLB }

用法

在应用程序的主窗口中，您必须选择要生成的命名空间和类（默认情况下选择 WMI 命名空间的所有类）并按“生成单元”按钮，然后该工具将在以下位置创建一个文件夹具有名称空间名称并在此文件夹内的 exe 将创建一个测试控制台项目、uWmiDelphiClass.pas 文件和所选类的副本。每个类都存储在一个单独的单元中，其名称由“u”字母加上 Wmi 类的名称组成，例如 Win32_BIOS 类的单元名称将为uWin32_BIOS.pas 。

演示

在源存储库中，您可以找到一组使用生成的类的演示。

检查这个非常简单的控制台应用程序，它使用 Win32_BaseBoard WMI 类。 

 program TestWin32_BaseBoard;

{ $APPTYPE CONSOLE }

uses
  SysUtils,
  uWin32_BaseBoard in ' ....root_CIMV2uWin32_BaseBoard.pas ' , 
  uWmiDelphiClass in ' ....uWmiDelphiClass.pas ' ; // the base class

procedure TestBaseBoard ;
var
  BaseBoard : TWin32_BaseBoard;
begin
  BaseBoard:=TWin32_BaseBoard.Create;
  try
    Writeln( ' Base Board Info ' );
    Writeln( ' --------------- ' );
    Writeln( ' Manufacturer ' +BaseBoard.Manufacturer);
    Writeln( ' Model        ' +BaseBoard.Model);
    Writeln( ' SKU          ' +BaseBoard.SKU);
    Writeln( ' SerialNumber ' +BaseBoard.SerialNumber);
    Writeln( ' PartNumber   ' +BaseBoard.PartNumber);
    Writeln( ' Tag          ' +BaseBoard.Tag);
    Readln;
  finally
    BaseBoard.Free;
  end ;
end ;

begin
  try
    TestBaseBoard;
  except
    on E:Exception do
    begin
      Writeln(E.Classname, ' : ' , E.Message);
      Readln;
    end ;
  end ;
end .

该工具是使用Delphi XE 编译的。

示例源代码

应用程序为 Win32_Share WMI 类创建的源代码示例。 

 // / <summary>
// / Unit generated using the Delphi Wmi class generator tool, Copyright Rodrigo Ruz V. 2010
// / Application version 0.1.0.113
// / WMI version 7600.16385
// / Creation Date 23-12-2010 22:39:55
// / Namespace rootCIMV2 Class Win32_Share
// / MSDN info about this class http://msdn2.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/Win32_Share.asp
// / </summary>

{ $IFDEF FPC }
 { $MODE DELPHI } { $H+ }
 { $DEFINE OLD_DELPHI }
{ $ENDIF }

unit uWin32_Share;

interface

uses
 Classes,
 Activex,
 Variants,
 ComObj,
 uWmiDelphiClass;

type
{ $IFDEF FPC }
  Cardinal=Longint;
  Int64=Integer;
  Word=Longint;
{ $ENDIF }
{ $IFNDEF FPC }
  { $IF CompilerVersion <= 15 }
    { $DEFINE OLD_DELPHI }
  { $IFEND }
{ $ENDIF }
  { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
  // / <summary>
  // / The Win32_Share class represents a shared resource on a Win32 system. This may be a disk drive, printer, interprocess communication, or other shareable device.
  // / Example: C:PUBLIC.
  // / </summary>
  { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
  TWin32_Share= class (TWmiClass)
  private
    FAccessMask                         : Cardinal;
    FAllowMaximum                       : Boolean;
    FCaption                            : String;
    FDescription                        : String;
    FInstallDate                        : TDateTime;
    FMaximumAllowed                     : Cardinal;
    FName                               : String;
    FPath                               : String;
    FStatus                             : String;
    FType                               : Cardinal;
  public
   constructor Create(LoadWmiData : boolean=True); overload;
   destructor Destroy;Override;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / This property has been deprecated in favour of the GetAccessMask method of this 
   // / class due to the expense of calling GetEffectiveRightsFromAcl. The value will 
   // / be set to NULL
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property AccessMask : Cardinal read FAccessMask;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The AllowMaximum property indicates whether the number of concurrent users for this resource has been limited.
   // / Values: TRUE or FALSE. A value of TRUE indicates the number of concurrent users of this resource has not been limited and the value in the MaximumAllowed property is ignored.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property AllowMaximum : Boolean read FAllowMaximum;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Caption property is a short textual description (one-line string) of the 
   // / object.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property Caption : String read FCaption;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Description property provides a textual description of the object. 
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property Description : String read FDescription;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The InstallDate property is datetime value indicating when the object was 
   // / installed. A lack of a value does not indicate that the object is not installed.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property InstallDate : TDateTime read FInstallDate;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The MaximumAllowed property indicates the limit on the maximum number of users allowed to use this resource concurrently. The value is only valid if the AllowMaximum member set to FALSE 
   // / Example: 10.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property MaximumAllowed : Cardinal read FMaximumAllowed;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Name property indicates the alias given to a path set up as a share on a  Win32 system.
   // / Example: public.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property Name : String read FName;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Path property indicates the local path of the Win32 share.
   // / Example: C:Program Files
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property Path : String read FPath;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Status property is a string indicating the current status of the object. 
   // / Various operational and non-operational statuses can be defined. Operational 
   // / statuses are "OK", "Degraded" and "Pred Fail". "Pred Fail" indicates that an 
   // / element may be functioning properly but predicting a failure in the near 
   // / future. An example is a SMART-enabled hard drive. Non-operational statuses can 
   // / also be specified. These are "Error", "Starting", "Stopping" and "Service". The 
   // / latter, "Service", could apply during mirror-resilvering of a disk, reload of a 
   // / user permissions list, or other administrative work. Not all such work is on-
   // / line, yet the managed element is neither "OK" nor in one of the other states.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property Status : String read FStatus;
   { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
   // / <summary>
   // / The Type property specifies the type of resource being shared. Types include 
   // / disk drives, print queues, interprocess communications (IPC), and general 
   // / devices.
   // / </summary>
   { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
   property { $IFDEF OLD_DELPHI } _Type { $ELSE } & Type { $ENDIF } : Cardinal read FType;
   function Create ( const Access : OleVariant; const Description : String; const MaximumAllowed : Cardinal; const Name : String; const Password : String; const Path : String; const { $IFDEF OLD_DELPHI } _Type { $ELSE } & Type { $ENDIF } : Cardinal): Integer;overload;
   function SetShareInfo ( const Access : OleVariant; const Description : String; const MaximumAllowed : Cardinal): Integer;
   function GetAccessMask : Integer;
   function Delete : Integer;
   procedure SetCollectionIndex (Index : Integer); override;
  end ;


  { $IFDEF UNDEF }{ $REGION 'Documentation' }{ $ENDIF }
  // / <summary>
  // / Return the description for the value of the property TWin32_Share.Type
  // / </summary>
  { $IFDEF UNDEF }{ $ENDREGION }{ $ENDIF }
  function GetTypeAsString ( const APropValue:Cardinal) : string;

implementation


function GetTypeAsString ( const APropValue:Cardinal) : string;
begin
Result:= ' ' ;
  case APropValue of
    0 : Result:= ' Disk Drive ' ;
    1 : Result:= ' Print Queue ' ;
    2 : Result:= ' Device ' ;
    3 : Result:= ' IPC ' ;
    2147483648 : Result:= ' Disk Drive Admin ' ;
    2147483649 : Result:= ' Print Queue Admin ' ;
    2147483650 : Result:= ' Device Admin ' ;
    2147483651 : Result:= ' IPC Admin ' ;
  end ;
end ;

{ TWin32_Share }

constructor TWin32_Share.Create(LoadWmiData : boolean=True);
begin
  inherited Create(LoadWmiData, ' rootCIMV2 ' , ' Win32_Share ' );
end ;

destructor TWin32_Share.Destroy;
begin
  inherited ;
end ;

procedure TWin32_Share.SetCollectionIndex (Index : Integer);
begin
  if (Index>= 0 ) and (Index<=FWmiCollection.Count- 1 ) and (FWmiCollectionIndex<>Index) then
  begin
    FWmiCollectionIndex:=Index;
    FAccessMask          := VarCardinalNull( inherited Value [ ' AccessMask ' ]);
    FAllowMaximum        := VarBoolNull( inherited Value [ ' AllowMaximum ' ]);
    FCaption             := VarStrNull( inherited Value [ ' Caption ' ]);
    FDescription         := VarStrNull( inherited Value [ ' Description ' ]);
    FInstallDate         := VarDateTimeNull( inherited Value [ ' InstallDate ' ]);
    FMaximumAllowed      := VarCardinalNull( inherited Value [ ' MaximumAllowed ' ]);
    FName                := VarStrNull( inherited Value [ ' Name ' ]);
    FPath                := VarStrNull( inherited Value [ ' Path ' ]);
    FStatus              := VarStrNull( inherited Value [ ' Status ' ]);
    FType                := VarCardinalNull( inherited Value [ ' Type ' ]);
  end ;
end ;


// static, OutParams=1, InParams>0
function TWin32_Share.Create ( const Access : OleVariant; const Description : String; const MaximumAllowed : Cardinal; const Name : String; const Password : String; const Path : String; const { $IFDEF OLD_DELPHI } _Type { $ELSE } & Type { $ENDIF } : Cardinal): Integer;
var
  objInParams                : OleVariant;
  objOutParams               : OleVariant;
begin
  objInParams                 := GetInstanceOf.Methods_.Item( ' Create ' ).InParameters.SpawnInstance_();
  objInParams.Properties_.Item( ' Access ' ). Value  := Access;
  objInParams.Properties_.Item( ' Description ' ). Value  := Description;
  objInParams.Properties_.Item( ' MaximumAllowed ' ). Value  := MaximumAllowed;
  objInParams.Properties_.Item( ' Name ' ). Value  := Name ;
  objInParams.Properties_.Item( ' Password ' ). Value  := Password;
  objInParams.Properties_.Item( ' Path ' ). Value  := Path;
  objInParams.Properties_.Item( ' Type ' ). Value  := { $IFDEF OLD_DELPHI } _Type { $ELSE } & Type { $ENDIF } ;
  objOutParams                := WMIService.ExecMethod(WmiClass, ' Create ' , objInParams, 0 , GetNullValue);
  Result := VarIntegerNull(objOutParams.ReturnValue);
end ;


// not static, OutParams=1, InParams>0
function TWin32_Share.SetShareInfo ( const Access : OleVariant; const Description : String; const MaximumAllowed : Cardinal): Integer;
var
  ReturnValue : OleVariant;
begin
  ReturnValue := GetInstanceOf.SetShareInfo(Access,Description,MaximumAllowed);
  Result      := VarIntegerNull(ReturnValue);
end ;


// not static, OutParams=1, InParams=0
function TWin32_Share.GetAccessMask : integer;
var
  ReturnValue : OleVariant;
begin
  ReturnValue := GetInstanceOf.GetAccessMask;
  Result      := VarIntegerNull(ReturnValue);
end ;

// not static, OutParams=1, InParams=0
function TWin32_Share.Delete : integer;
var
  ReturnValue : OleVariant;
begin
  ReturnValue := GetInstanceOf.Delete;
  Result      := VarIntegerNull(ReturnValue);
end ;
end .

正在寻找安装程序？检查释放区域

展开
附加信息
相关应用
为您推荐
相关资讯 全部