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 ขึ้นมาใหม่
แต่ละคลาส Object Pascal ที่สร้างโดยแอปพลิเคชันจะสืบทอดมาจากคลาสพื้นฐาน TWmiClass คลาสนี้ห่อหุ้มการเข้าถึง wmi แปลงค่า (OleVariant) ที่ส่งคืนโดยคลาสการเรียกเป็นประเภทเนทิฟ และจัดเก็บค่าในคอลเลกชันภายใน (บัฟเฟอร์) ของคุณสมบัติและที่อยู่ของอินสแตนซ์
คลาส TWmiClass สามารถคอมไพล์ได้สองโหมด
การใช้ ไลบรารี Microsoft WMI Scripting V1.2
wrapper นี้ (WbemScripting_TLB) สร้างขึ้นโดยคอมไพเลอร์ delphi ตัวเลือกนี้ปรับปรุงการเข้าถึง WMI เริ่มต้น (ตัวเลือกนี้เข้ากันไม่ได้กับ FPC) หากคุณใช้โหมดนี้ คุณต้องรวมโปรเจ็กต์ของคุณไว้ในหน่วย WbemScripting_TLB
การใช้การผูกล่าช้า
ตัวเลือกนี้มีประโยชน์เมื่อคุณต้องการสร้างไฟล์ exe ขนาดเล็ก ประสิทธิภาพจะช้าลงเล็กน้อยในการดำเนินการครั้งแรก
ในการเลือกระหว่าง 2 โหมดนี้คุณต้องแสดงความคิดเห็นหรือไม่แสดงความคิดเห็นในหน่วย 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 .กำลังมองหาผู้ติดตั้งอยู่ใช่ไหม? ตรวจสอบพื้นที่วางจำหน่าย
