Unduh delphi wmi class generator - delphi wmi class generator Unduh kode sumber

delphi wmi class generator

Kode sumber Delphi

1.0.0.0

Unduh

Delphi Wmi Class Generator adalah aplikasi yang membuat kelas Object Pascal yang terdokumentasi lengkap untuk mengakses WMI (Instrumentasi Manajemen Windows).

Fitur

Kode yang dihasilkan kompatibel dengan Delphi 7, 2005, BDS/Turbo 2006 dan RAD Studio 2007-2010, XE-XE7 dan Free Pascal Compiler 2.2.4 (win32)
Buat kelas terdokumentasi lengkap yang kompatibel dengan fitur bantuan wawasan, tersedia sejak Delphi 2005.

Catatan: bahasa deskripsi metode, parameter, dan properti bergantung pada bahasa jendela tempat Anda membuat unit.

Buat fungsi pembantu untuk mengambil deskripsi nilai yang dikembalikan untuk properti dan fungsi.

Keterbatasan

Aplikasi menghasilkan kode siap pakai dalam waktu sekitar 99%. dari kasus tersebut, namun beberapa kelas WMI mengekspos metadata dalam format yang salah atau struktur metadata tidak kompatibel dengan algoritma yang digunakan untuk membuat kode objek pascal, dalam kasus seperti itu Anda harus menambal kode secara manual.

Di halaman ini Anda dapat menemukan kelas-kelas yang bermasalah. pilihan lainnya adalah mengunduh kelas yang ditambal yang dihasilkan langsung dari repositori,

Internal

Alat ini mengekstrak dan mengurai meta-data (properti, metode, kualifikasi, nilai valid, dan deskripsi) yang disimpan di kelas WMI, untuk membuat ulang kelas yang kompatibel dengan Object Pascal.

Setiap kelas Object pascal yang dihasilkan oleh aplikasi diturunkan dari kelas dasar TWmiClass, kelas ini merangkum akses ke wmi, mengonversi nilai (OleVariant) yang dikembalikan oleh kelas pemanggil ke tipe asli, dan menyimpan nilai dalam koleksi internal (buffer) properti dan alamat instance.

kelas TWmiClass dapat dikompilasi dalam dua mode.

Menggunakan Perpustakaan Microsoft WMI Scripting V1.2

Pembungkus ini (WbemScripting_TLB) dihasilkan oleh kompiler delphi, opsi ini meningkatkan akses awal ke WMI (opsi ini tidak kompatibel dengan FPC). jika Anda menggunakan mode ini, Anda harus memasukkan proyek Anda ke unit WbemScripting_TLB.

Menggunakan pengikatan terlambat

Opsi ini berguna ketika Anda perlu menghasilkan file exe kecil. kinerjanya sedikit lebih lambat pada eksekusi awal.

Untuk memilih antara 2 mode ini Anda harus memberi komentar atau menghapus komentar di unit uWmiDelphiClass pada baris berikut

 { $DEFINE WbemScripting_TLB }

Penggunaan

Di jendela utama aplikasi Anda harus memilih namespace dan kelas yang akan dihasilkan (secara default semua kelas namespace WMI dipilih) dan tekan tombol "Hasilkan unit", maka alat akan membuat folder di lokasi exe dengan nama namespace dan di dalam folder ini akan dibuat proyek konsol pengujian, salinan file uWmiDelphiClass.pas dan kelas yang dipilih. Setiap kelas disimpan dalam unit tersendiri dengan nama yang dibentuk dengan huruf "u" ditambah nama kelas Wmi, contoh nama unit untuk kelas Win32_BIOS adalah uWin32_BIOS.pas .

Demo

Di repositori sumber Anda dapat menemukan serangkaian demo penggunaan kelas yang dihasilkan.

periksa aplikasi konsol yang sangat sederhana ini, yang menggunakan kelas WMI Win32_BaseBoard.

 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 .

Alat ini dikompilasi menggunakan Delphi XE.

Contoh kode sumber

Contoh kode sumber yang dibuat oleh aplikasi untuk kelas WMI Win32_Share.

 // / <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 .

Mencari penginstalnya? Periksa Area Pelepasan

Memperluas

Informasi Tambahan

Versi 1.0.0.0
Tipe Kode sumber Delphi
Waktu Pembaruan 2025-01-02
ukuran 2.91MB
Berasal dari Github

Aplikasi Terkait

Contoso Data Generator V2

2024-11-11
Aplikasi Kelas Lingostar

2024-03-23
Aplikasi kelas Yunhui

2023-06-07
Kelas '09

2022-08-03
Pelarian Kelas Satu: Kereta Pemikiran

2022-08-01
Kelas PHP MSN

2010-01-29

Direkomendasikan untuk Anda

chat.petals.dev

Kode sumber lainnya

1.0.0
GPT Prompt Templates

Kode sumber lainnya

1.0.0
GPTyped

Kode sumber lainnya

GPTyped 1.0.5
BlackShark

Kode sumber Delphi

Release 4.0
Kode sumber buku tambahan pengembangan aplikasi tingkat lanjut Delphi7

Kode sumber Delphi
Pengembangan aplikasi jaringan Delphi7 (IntraWeb)

Kode sumber Delphi
waymo open dataset

Kode sumber lainnya

December 2023 Update
wp functions

Kategori lainnya

1.0.0
slugify

Kategori lainnya

Version 4.6.0 (10 September 2024)

Informasi Terkait Semua