delphi wmi class generator تحميل - delphi wmi class generator تحميل كود المصدر

delphi wmi class generator

كود مصدر دلفي

1.0.0.0

تنزيل

يعد Delphi Wmi Class Generator تطبيقًا يقوم بإنشاء فئات Object Pascal كاملة موثقة للوصول إلى WMI (Windows Management Instrumentation).

سمات

الكود الذي تم إنشاؤه متوافق مع Delphi 7 و2005 وBDS/Turbo 2006 وRAD Studio 2007-2010 وXE-XE7 وFree Pascal Compiler 2.2.4 (win32)
قم بإنشاء فصول موثقة كاملة متوافقة مع ميزة المساعدة المتعمقة، المتوفرة منذ Delphi 2005.

ملاحظة: تعتمد لغة وصف الطرق والمعلمات والخصائص على لغة النوافذ التي تقوم بإنشاء الوحدات فيها.

قم بإنشاء وظائف مساعدة لاسترداد وصف القيم التي تم إرجاعها للخصائص والوظائف.

القيود

يقوم التطبيق بإنشاء كود جاهز للاستخدام بنسبة 99٪ تقريبًا. في بعض الحالات، ومع ذلك، تعرض بعض فئات WMI بيانات التعريف بتنسيق غير صحيح أو أن بنية البيانات التعريفية غير متوافقة مع الخوارزمية المستخدمة لإنشاء كود باسكال للكائن، وفي مثل هذه الحالات، يجب عليك تصحيح الكود يدويًا.

في هذه الصفحة يمكنك العثور على الفصول التي بها مشاكل. هناك خيار آخر وهو تنزيل الفئات المصححة التي تم إنشاؤها مباشرة من المستودع،

الداخلية

تقوم الأداة باستخراج وتحليل البيانات الوصفية (الخصائص والأساليب والمؤهلات والقيم والأوصاف الصالحة) المخزنة في فئة WMI، لإعادة إنشاء فئة متوافقة مع Object Pascal.

تنحدر كل فئة كائن باسكال تم إنشاؤها بواسطة التطبيق من الفئة الأساسية TWmiClass، حيث تقوم هذه الفئة بتغليف الوصول إلى wmi، وتحويل القيم (OleVariant) التي أرجعتها فئة الاستدعاء إلى الأنواع الأصلية، وتخزين القيم في مجموعة داخلية (مخزن مؤقت) من الخصائص وعناوين الحالات.

يمكن تجميع فئة TWmiClass في وضعين.

استخدام مكتبة Microsoft WMI Scripting V1.2

يتم إنشاء هذا المجمع (WbemScripting_TLB) بواسطة مترجم دلفي، وهذا الخيار يعمل على تحسين الوصول الأولي إلى 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 .

هل تبحث عن المثبت؟ تحقق من منطقة الإصدار

يوسع

معلومات إضافية

الإصدار 1.0.0.0
النوع كود مصدر دلفي
وقت التحديث 2025-01-02
الحجم 2.91MB
من Github

تطبيقات ذات صلة

Contoso Data Generator V2

2024-11-11
تطبيق لينغوستار كلاس

2024-03-23
التطبيق فئة Yunhui

2023-06-07
فئة '09

2022-08-03
الهروب من الدرجة الأولى: قطار الفكر

2022-08-01
فئة PHP MSN

2010-01-29

نوصي لك

chat.petals.dev

شفرة المصدر الأخرى

1.0.0
GPT Prompt Templates

شفرة المصدر الأخرى

1.0.0
GPTyped

شفرة المصدر الأخرى

GPTyped 1.0.5
قفل المتصفح

كود مصدر دلفي

v1.02
Neslib.Yoga

كود مصدر دلفي

1.0.0
OpenSIMPLY

كود مصدر دلفي

1.0.0
Google Dorks

شفرة المصدر الأخرى

1.0
shepherd

شفرة المصدر الأخرى

v6.1.6-react-shepherd: Prepare Release (#3063)
mongo express

شفرة المصدر الأخرى

v1.1.0-rc-3

أخبار ذات صلة الكل