├── AStyle ├── bin │ └── AStyle.exe └── doc │ ├── astyle.html │ ├── index.html │ ├── install.html │ ├── license.html │ ├── links.html │ ├── news.html │ ├── notes.html │ ├── scripts.html │ ├── styles.css │ ├── subversion.html │ └── vsinstall.html ├── Build_x86Release.bat ├── CSharp ├── VS11 │ ├── GetWMI_Info.csproj │ ├── GetWMI_Info.sln │ └── Properties │ │ └── AssemblyInfo.cs ├── VS13 │ ├── GetWMI_Info.csproj │ ├── GetWMI_Info.sln │ └── Properties │ │ └── AssemblyInfo.cs ├── VS14 │ ├── GetWMI_Info.csproj │ ├── GetWMI_Info.sln │ └── Properties │ │ └── AssemblyInfo.cs ├── VS2005 │ ├── GetWMI_Info.csproj │ ├── GetWMI_Info.sln │ └── Properties │ │ └── AssemblyInfo.cs ├── VS2008 │ ├── GetWMI_Info.csproj │ ├── GetWMI_Info.sln │ └── Properties │ │ └── AssemblyInfo.cs └── VS2010 │ ├── GetWMI_Info.csproj │ ├── GetWMI_Info.sln │ └── Properties │ └── AssemblyInfo.cs ├── CompileManifest.bat ├── Delphi ├── Jedi.inc ├── JediAPILib.inc ├── JwaActiveX.pas ├── JwaWbemCli.pas ├── JwaWinDLLNames.pas ├── JwaWinNT.pas ├── JwaWinType.pas └── WbemScripting_TLB.pas ├── Extras ├── LeftBackground.bmp ├── LeftBackground.pdn ├── MonoDevelop.ico ├── SmallImage-IS.bmp └── SmallImage-IS.pdn ├── Installer.iss ├── Installer ├── Arrow.png ├── Auric.vsf ├── VclStylesinno.dll ├── background.bmp └── background.pdn ├── Lazarus └── TemplateConsole.lpi ├── Main.dfm ├── Main.pas ├── ManAdmin.RC ├── ManAdmin.manifest ├── Microsoft_C++ ├── VS11 │ ├── GetWMI_Info.sln │ ├── GetWMI_Info.vcxproj │ ├── stdafx.cpp │ ├── stdafx.h │ └── targetver.h ├── VS13 │ ├── GetWMI_Info.sln │ ├── GetWMI_Info.vcxproj │ ├── stdafx.cpp │ ├── stdafx.h │ └── targetver.h ├── VS14 │ ├── GetWMI_Info.sln │ ├── GetWMI_Info.vcxproj │ ├── stdafx.cpp │ ├── stdafx.h │ └── targetver.h ├── VS2005 │ ├── GetWMI_Info.sln │ ├── GetWMI_Info.vcproj │ ├── stdafx.cpp │ ├── stdafx.h │ └── targetver.h ├── VS2008 │ ├── GetWMI_Info.sln │ ├── GetWMI_Info.vcproj │ ├── stdafx.cpp │ ├── stdafx.h │ └── targetver.h └── VS2010 │ ├── GetWMI_Info.sln │ ├── GetWMI_Info.vcxproj │ ├── stdafx.cpp │ ├── stdafx.h │ └── targetver.h ├── Oxygene ├── MonoDevelop │ ├── GetWMI_Info.oxygene │ ├── GetWMI_Info.sln │ ├── GetWMI_Info.userprefs │ └── Properties │ │ ├── App.ico │ │ ├── AssemblyInfo.pas │ │ ├── Resources.Designer.pas │ │ ├── Resources.resx │ │ ├── Settings.Designer.pas │ │ └── Settings.settings ├── VS2008 │ ├── GetWMI_Info.oxygene │ ├── GetWMI_Info.sln │ └── Properties │ │ ├── App.ico │ │ ├── AssemblyInfo.pas │ │ ├── Resources.Designer.pas │ │ ├── Resources.resx │ │ ├── Settings.Designer.pas │ │ └── Settings.settings ├── VS2010 │ ├── GetWMI_Info.oxygene │ ├── GetWMI_Info.sln │ └── Properties │ │ ├── App.ico │ │ ├── AssemblyInfo.pas │ │ ├── Resources.Designer.pas │ │ ├── Resources.resx │ │ ├── Settings.Designer.pas │ │ └── Settings.settings ├── VS2012 │ ├── GetWMI_Info.oxygene │ ├── GetWMI_Info.sln │ └── Properties │ │ ├── App.ico │ │ ├── AssemblyInfo.pas │ │ ├── Resources.Designer.pas │ │ ├── Resources.resx │ │ ├── Settings.Designer.pas │ │ └── Settings.settings ├── VS2013 │ ├── GetWMI_Info.oxygene │ ├── GetWMI_Info.sln │ └── Properties │ │ ├── App.ico │ │ ├── AssemblyInfo.pas │ │ ├── Resources.Designer.pas │ │ ├── Resources.resx │ │ ├── Settings.Designer.pas │ │ └── Settings.settings └── VS2015 │ ├── GetWMI_Info.oxygene │ ├── GetWMI_Info.sln │ └── Properties │ ├── App.ico │ ├── AssemblyInfo.pas │ ├── Resources.Designer.pas │ ├── Resources.resx │ ├── Settings.Designer.pas │ └── Settings.settings ├── README.md ├── Styles ├── Amakrits.vsf ├── AmethystKamri.vsf ├── AquaGraphite.vsf ├── AquaLightSlate.vsf ├── Auric.vsf ├── BlueGraphite.vsf ├── Carbon.vsf ├── CharcoalDarkSlate.vsf ├── CobaltXEMedia.vsf ├── EmeraldLightSlate.vsf ├── Glossy.vsf ├── Glow.vsf ├── GoldenGraphite.vsf ├── GreenGraphite.vsf ├── IcebergClassico.vsf ├── LavenderClassico.vsf ├── Light.vsf ├── LightGreen.vsf ├── Luna.vsf ├── Metro Grey.vsf ├── MetroBlack.vsf ├── MetroBlue.vsf ├── MetroGreen.vsf ├── OnyxBlue.vsf ├── RubyGraphite.vsf ├── SapphireKamri.vsf ├── Sky.vsf ├── SlateClassico.vsf ├── SmokeyQuartzKamri.vsf ├── TabletDark.vsf ├── TurquoiseGray.vsf ├── Windows10.vsf ├── Windows10Blue.vsf ├── Windows10Dark.vsf ├── YellowGraphite.vsf ├── khaki.vsf └── lilac.vsf ├── Templates ├── TemplateConsoleAppBorlandCPP.cpp ├── TemplateConsoleAppCSharp.cs ├── TemplateConsoleAppDelphi.pas ├── TemplateConsoleAppDelphiSingleton.pas ├── TemplateConsoleAppDelphiSingleton_TLB.pas ├── TemplateConsoleAppDelphi_COM.pas ├── TemplateConsoleAppDelphi_TLB.pas ├── TemplateConsoleAppFPC.pas ├── TemplateConsoleAppFPCSingleton.pas ├── TemplateConsoleAppMicrosoftCPP.cpp ├── TemplateConsoleAppOxygen.pas ├── TemplateEventsBorlandCpp.cpp ├── TemplateEventsCSharp.cs ├── TemplateEventsDelphi.pas ├── TemplateEventsDelphiLate.pas ├── TemplateEventsDelphi_COM.pas ├── TemplateEventsFPC.pas ├── TemplateEventsMicrosoft.cpp ├── TemplateEventsOxygen.pas ├── TemplateHelperFunctions.pas ├── TemplateNonStaticMethodInvokerBorlandCPP.cpp ├── TemplateNonStaticMethodInvokerCSharp.cs ├── TemplateNonStaticMethodInvokerDelphi.pas ├── TemplateNonStaticMethodInvokerDelphi_COM.pas ├── TemplateNonStaticMethodInvokerDelphi_TLB.pas ├── TemplateNonStaticMethodInvokerFPC.pas ├── TemplateNonStaticMethodInvokerOxygen.pas ├── TemplateStaticMethodInvokerBorlandCPP.cpp ├── TemplateStaticMethodInvokerCSharp.cs ├── TemplateStaticMethodInvokerDelphi.pas ├── TemplateStaticMethodInvokerDelphi_COM.pas ├── TemplateStaticMethodInvokerDelphi_TLB.pas ├── TemplateStaticMethodInvokerFPC.pas ├── TemplateStaticMethodInvokerMicrosoftCPP.cpp ├── TemplateStaticMethodInvokerOxygen.pas ├── Template_BorlandCpp.cpp ├── Template_Csharp.cs ├── Template_Delphi.pas ├── Template_FPC.pas ├── Template_MicrosoftCpp.cpp ├── Template_Oxygen.pas └── Templates.xml ├── Themes ├── Aqua.theme.xml ├── Black and White.theme.xml ├── Blackboard.theme.xml ├── Brown.theme.xml ├── ChocoCaramel.theme.xml ├── Gedit Original.theme.xml ├── Green.theme.xml ├── Igor.theme.xml ├── Inkpot.theme.xml ├── Mr.theme.xml ├── NightLion Aptan.theme.xml ├── Oblivion.theme.xml ├── Obsidian.theme.xml ├── Purple.theme.xml ├── RecognEyes.theme.xml ├── Red.theme.xml ├── Vibrant Ink.theme.xml ├── Zenburn.theme.xml ├── artofnet-darkonblue.theme.xml ├── artofnet-lime-chocolate.theme.xml ├── bespin.theme.xml ├── cobalt.theme.xml ├── coda.theme.xml ├── code-anxiety.theme.xml ├── coding-horror.theme.xml ├── coffee-.theme.xml ├── dark-code-mute-font-beige.theme.xml ├── deep-blue.theme.xml ├── desertex-revised.theme.xml ├── distant-stormy-shore.theme.xml ├── enhanced-pascal-classical-.theme.xml ├── frontenddev.theme.xml ├── greendream.theme.xml ├── hugoware.theme.xml ├── humane-studio.theme.xml ├── jon-erickson-s-ragnarok-grey.theme.xml ├── like.theme.xml ├── monokai.theme.xml ├── mustang.theme.xml ├── nightfall.theme.xml ├── ocean.theme.xml ├── paulstovell-com.theme.xml ├── pretty.theme.xml ├── ragnarok-blue.theme.xml ├── russian-noth.theme.xml ├── selenitic.theme.xml ├── slimcode.theme.xml ├── son-of-obsidian.theme.xml ├── the-dark-side-of-visual-studio.theme.xml ├── the-default-at-boxbinary-ltd.theme.xml ├── tial-entry-enhanced.theme.xml ├── turbo-pascal-revisited.theme.xml ├── wekeroad-ink.theme.xml └── zenburn-2010.theme.xml ├── Units ├── DefaultThemes.RES ├── Misc │ ├── WDCC.ComboBox.pas │ ├── WDCC.CustomImage.DrawHook.pas │ ├── WDCC.ListView.Helper.pas │ ├── WDCC.Misc.pas │ ├── WDCC.OleVariant.Enum.pas │ ├── WDCC.Registry.pas │ ├── WDCC.StdActions.PopMenu.pas │ ├── WDCC.SynEdit.PopupEdit.pas │ ├── WDCC.UpdatesChanges.dfm │ ├── WDCC.UpdatesChanges.pas │ └── WDCC.WinInet.pas ├── ThirdParty │ ├── AsyncCalls.pas │ └── ThemedDBGrid.pas ├── Vcl.Styles.Utils │ ├── Vcl.Styles.TabsClose.pas │ └── uXE2Patches.pas ├── WDCC.About.dfm ├── WDCC.About.pas ├── WDCC.Borland.Cpp.IDE.pas ├── WDCC.Borland.Cpp.Versions.pas ├── WDCC.CodeEditor.dfm ├── WDCC.CodeEditor.pas ├── WDCC.Delphi.IDE.Highlight.pas ├── WDCC.Delphi.IDE.pas ├── WDCC.Delphi.Syntax.pas ├── WDCC.Delphi.Versions.pas ├── WDCC.DelphiPrism.Helper.pas ├── WDCC.DelphiPrism.IDE.pas ├── WDCC.DotNetFrameWork.pas ├── WDCC.Globals.pas ├── WDCC.HostsAdmin.dfm ├── WDCC.HostsAdmin.pas ├── WDCC.Lazarus.IDE.pas ├── WDCC.Log.dfm ├── WDCC.Log.pas ├── WDCC.OnlineResources.dfm ├── WDCC.OnlineResources.pas ├── WDCC.PropValueList.dfm ├── WDCC.PropValueList.pas ├── WDCC.SelectCompilerVersion.dfm ├── WDCC.SelectCompilerVersion.pas ├── WDCC.Settings.dfm ├── WDCC.Settings.pas ├── WDCC.Sql.WMI.Container.dfm ├── WDCC.Sql.WMI.Container.pas ├── WDCC.Sql.WMI.dfm ├── WDCC.Sql.WMI.pas ├── WDCC.SupportedIDEs.pas ├── WDCC.VisualStudio.pas ├── WDCC.WMI.Borland.CppCode.pas ├── WDCC.WMI.CSharpCode.pas ├── WDCC.WMI.Classes.Container.dfm ├── WDCC.WMI.Classes.Container.pas ├── WDCC.WMI.Classes.Tree.dfm ├── WDCC.WMI.Classes.Tree.pas ├── WDCC.WMI.Classes.dfm ├── WDCC.WMI.Classes.pas ├── WDCC.WMI.Database.dfm ├── WDCC.WMI.Database.pas ├── WDCC.WMI.DelphiCode.pas ├── WDCC.WMI.Events.Container.dfm ├── WDCC.WMI.Events.Container.pas ├── WDCC.WMI.Events.dfm ├── WDCC.WMI.Events.pas ├── WDCC.WMI.FPCCode.pas ├── WDCC.WMI.GenCode.pas ├── WDCC.WMI.Info.dfm ├── WDCC.WMI.Info.pas ├── WDCC.WMI.Methods.Container.dfm ├── WDCC.WMI.Methods.Container.pas ├── WDCC.WMI.Methods.dfm ├── WDCC.WMI.Methods.pas ├── WDCC.WMI.Microsoft.CppCode.pas ├── WDCC.WMI.OxygenCode.pas ├── WDCC.WMI.PropertyValue.dfm ├── WDCC.WMI.PropertyValue.pas ├── WDCC.WMI.Tree.dfm ├── WDCC.WMI.Tree.pas ├── WDCC.WMI.ViewPropsValues.dfm ├── WDCC.WMI.ViewPropsValues.pas ├── WMI │ ├── WbemScripting_TLB.pas │ └── uWmi_Metadata.pas └── imgmsgbox.RES ├── Updater ├── DownloadInfo.xml ├── Updater.exe ├── libeay32.dll └── ssleay32.dll ├── WDCC.dpr ├── WDCC.dproj ├── WDCC.res ├── WmiDelphiCodeCreator_Icon.ico ├── WmiDelphiCodeCreator_Icon1.ico ├── images ├── AllSmall.png ├── BuiltWithRadStudio_s.png ├── Delphi.png ├── Explorer1.png ├── Icon.ico ├── Icons │ ├── binocular.png │ ├── block.png │ ├── cross-button.png │ ├── database--arrow.png │ ├── database--exclamation.png │ ├── database-import.png │ ├── database-medium.png │ ├── database-small.png │ ├── database-sql.png │ ├── database.png │ ├── gear.png │ ├── molecule.png │ ├── open-share.png │ ├── open-share_a.png │ ├── open-share_b.png │ ├── server--arrow.png │ ├── server--exclamation.png │ ├── server--minus.png │ ├── server--plus.png │ ├── server-cloud.png │ ├── server-network.png │ ├── server-property.png │ ├── server.png │ ├── servers-network.png │ ├── share.png │ ├── ui-tab--minus.png │ ├── ui-tab--plus.png │ └── universal.png ├── Logo.png ├── Logo_m.png ├── Logo_ms.png ├── Logo_ms24.png ├── Logo_ms8.png ├── MonoDevelop.png ├── Prism.png ├── VS2010.png ├── WMDCC_SettingsGUI.png ├── WMDCC_SettingsSyntaxHigh.png ├── WMIFinder.png ├── WMILinks.png ├── WMIOnline.png ├── WMITree.png ├── WQL.png ├── filter.png ├── logo-delphi.png ├── logo_s.png ├── monodevelop.jpg ├── partner_Border.png ├── platform.delphi.16.png ├── platform.dotnet.16.png └── vslogo168x95.png └── todo.txt /AStyle/bin/AStyle.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/AStyle/bin/AStyle.exe -------------------------------------------------------------------------------- /AStyle/doc/styles.css: -------------------------------------------------------------------------------- 1 |  2 | /* h1 is a title 3 | * h2 is a subtitle 4 | * h3 is a hanging text title 5 | * h4 is a non-hanging text title 6 | * p.noindent is non-hanging text (text without a title) 7 | * div.code is a light-blue backgroung color for preformatted code 8 | * pre is preformatted source code 9 | * p.contents entries are for the table of contents 10 | * a.contents are table of contents links (not underlined) 11 | * a.links are links (underlined) 12 | * .footer is the image table at the bottom of the page 13 | * img does not have a border 14 | */ 15 | 16 | 17 | body { margin-top:0.5in; margin-right:0.8in; margin-bottom:0.5in; margin-left:1.3in; } 18 | 19 | h1 { color:#0000A0; text-align:center; font-style:italic; margin-top:18pt; margin-left:-0.5in; } 20 | h2.large { color:#0000A0; text-align:center; font-size:x-large; margin-top:0.4in; margin-left:-0.5in; } 21 | h2 { color:#0000A0; text-align:center; font-size:larger; margin-top:0.4in; margin-left:-0.5in; } 22 | h3 { color:#0000A0; margin-top:0.4in; margin-left:-0.4in; } 23 | h4 { color:#0000A0; } 24 | 25 | p.noindent { margin-left:-0.4in; } 26 | 27 | div.code { background:#E0E8FF; } 28 | pre { margin-left:0.3in; } 29 | /* pre.em { background:#FDFCFF; margin-right:0.3in;} */ 30 | 31 | p.contents1 { font-size:105%; margin-top:0in; margin-left:0in; margin-bottom:0in; margin-right:0in; } 32 | p.contents2 { margin-top:0in; margin-left:.4in; margin-bottom:0in; margin-right:.4in; } 33 | /* p.contents3 { margin-top:0in; margin-left:.8in; margin-bottom:0in; margin-right:.8in; } */ 34 | a.contents:link, a.contents:visited { color:#0000A0; text-decoration:none; } 35 | a.contents:hover { color:#F00000; text-decoration:none; } 36 | 37 | a:link, a:visited { color:#0000A0; text-decoration:underline; } 38 | a:hover { color:#F00000; text-decoration:underline; } 39 | 40 | center.footer { margin-left:-0.4in; margin-top:0.25in; } 41 | h2.footer { font-size:x-large; margin-top:0; margin-left:0; } 42 | 43 | img { border:none; } 44 | -------------------------------------------------------------------------------- /Build_x86Release.bat: -------------------------------------------------------------------------------- 1 | call "C:\Program Files (x86)\Embarcadero\Studio\19.0\bin\rsvars.bat" 2 | msbuild.exe "WDCC.dproj" /target:clean;build /p:Platform=Win32 /p:config=release 3 | 4 | pause -------------------------------------------------------------------------------- /CSharp/VS11/GetWMI_Info.csproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | Debug 5 | AnyCPU 6 | 9.0.30729 7 | 2.0 8 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388} 9 | Exe 10 | Properties 11 | GetWMI_Info 12 | GetWMI_Info 13 | v2.0 14 | 512 15 | 16 | 17 | 3.5 18 | 19 | 20 | 21 | true 22 | full 23 | false 24 | bin\Debug\ 25 | DEBUG;TRACE 26 | prompt 27 | 4 28 | AllRules.ruleset 29 | 30 | 31 | pdbonly 32 | true 33 | bin\Release\ 34 | TRACE 35 | prompt 36 | 4 37 | AllRules.ruleset 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 57 | -------------------------------------------------------------------------------- /CSharp/VS11/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "GetWMI_Info", "GetWMI_Info.csproj", "{3084ADC5-B76E-4BBD-A9B1-6ED655366388}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Any CPU = Debug|Any CPU 9 | Release|Any CPU = Release|Any CPU 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 13 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.Build.0 = Debug|Any CPU 14 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.ActiveCfg = Release|Any CPU 15 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.Build.0 = Release|Any CPU 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /CSharp/VS11/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // General Information about an assembly is controlled through the following 6 | // set of attributes. Change these attribute values to modify the information 7 | // associated with an assembly. 8 | [assembly: AssemblyTitle("GetWMI_Info")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("Microsoft")] 12 | [assembly: AssemblyProduct("GetWMI_Info")] 13 | [assembly: AssemblyCopyright("Copyright © Microsoft 2012")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // Setting ComVisible to false makes the types in this assembly not visible 18 | // to COM components. If you need to access a type in this assembly from 19 | // COM, set the ComVisible attribute to true on that type. 20 | [assembly: ComVisible(false)] 21 | 22 | // The following GUID is for the ID of the typelib if this project is exposed to COM 23 | [assembly: Guid("59deebfa-a674-4e50-80b9-e16199b4e5b9")] 24 | 25 | // Version information for an assembly consists of the following four values: 26 | // 27 | // Major Version 28 | // Minor Version 29 | // Build Number 30 | // Revision 31 | // 32 | // You can specify all the values or you can default the Build and Revision Numbers 33 | // by using the '*' as shown below: 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CSharp/VS13/GetWMI_Info.csproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | Debug 5 | AnyCPU 6 | 9.0.30729 7 | 2.0 8 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388} 9 | Exe 10 | Properties 11 | GetWMI_Info 12 | GetWMI_Info 13 | v2.0 14 | 512 15 | 16 | 17 | 3.5 18 | 19 | 20 | 21 | true 22 | full 23 | false 24 | bin\Debug\ 25 | DEBUG;TRACE 26 | prompt 27 | 4 28 | AllRules.ruleset 29 | 30 | 31 | pdbonly 32 | true 33 | bin\Release\ 34 | TRACE 35 | prompt 36 | 4 37 | AllRules.ruleset 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 57 | -------------------------------------------------------------------------------- /CSharp/VS13/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "GetWMI_Info", "GetWMI_Info.csproj", "{3084ADC5-B76E-4BBD-A9B1-6ED655366388}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Any CPU = Debug|Any CPU 9 | Release|Any CPU = Release|Any CPU 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 13 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.Build.0 = Debug|Any CPU 14 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.ActiveCfg = Release|Any CPU 15 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.Build.0 = Release|Any CPU 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /CSharp/VS13/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // General Information about an assembly is controlled through the following 6 | // set of attributes. Change these attribute values to modify the information 7 | // associated with an assembly. 8 | [assembly: AssemblyTitle("GetWMI_Info")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("Microsoft")] 12 | [assembly: AssemblyProduct("GetWMI_Info")] 13 | [assembly: AssemblyCopyright("Copyright © Microsoft 2012")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // Setting ComVisible to false makes the types in this assembly not visible 18 | // to COM components. If you need to access a type in this assembly from 19 | // COM, set the ComVisible attribute to true on that type. 20 | [assembly: ComVisible(false)] 21 | 22 | // The following GUID is for the ID of the typelib if this project is exposed to COM 23 | [assembly: Guid("59deebfa-a674-4e50-80b9-e16199b4e5b9")] 24 | 25 | // Version information for an assembly consists of the following four values: 26 | // 27 | // Major Version 28 | // Minor Version 29 | // Build Number 30 | // Revision 31 | // 32 | // You can specify all the values or you can default the Build and Revision Numbers 33 | // by using the '*' as shown below: 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CSharp/VS14/GetWMI_Info.csproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | Debug 5 | AnyCPU 6 | 9.0.30729 7 | 2.0 8 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388} 9 | Exe 10 | Properties 11 | GetWMI_Info 12 | GetWMI_Info 13 | v2.0 14 | 512 15 | 16 | 17 | 3.5 18 | 19 | 20 | 21 | true 22 | full 23 | false 24 | bin\Debug\ 25 | DEBUG;TRACE 26 | prompt 27 | 4 28 | AllRules.ruleset 29 | 30 | 31 | pdbonly 32 | true 33 | bin\Release\ 34 | TRACE 35 | prompt 36 | 4 37 | AllRules.ruleset 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 57 | -------------------------------------------------------------------------------- /CSharp/VS14/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 14 4 | VisualStudioVersion = 14.0.23107.0 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "GetWMI_Info", "GetWMI_Info.csproj", "{3084ADC5-B76E-4BBD-A9B1-6ED655366388}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | EndGlobal 23 | -------------------------------------------------------------------------------- /CSharp/VS14/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // General Information about an assembly is controlled through the following 6 | // set of attributes. Change these attribute values to modify the information 7 | // associated with an assembly. 8 | [assembly: AssemblyTitle("GetWMI_Info")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("Microsoft")] 12 | [assembly: AssemblyProduct("GetWMI_Info")] 13 | [assembly: AssemblyCopyright("Copyright © Microsoft 2012")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // Setting ComVisible to false makes the types in this assembly not visible 18 | // to COM components. If you need to access a type in this assembly from 19 | // COM, set the ComVisible attribute to true on that type. 20 | [assembly: ComVisible(false)] 21 | 22 | // The following GUID is for the ID of the typelib if this project is exposed to COM 23 | [assembly: Guid("59deebfa-a674-4e50-80b9-e16199b4e5b9")] 24 | 25 | // Version information for an assembly consists of the following four values: 26 | // 27 | // Major Version 28 | // Minor Version 29 | // Build Number 30 | // Revision 31 | // 32 | // You can specify all the values or you can default the Build and Revision Numbers 33 | // by using the '*' as shown below: 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CSharp/VS2005/GetWMI_Info.csproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | Debug 5 | AnyCPU 6 | 9.0.30729 7 | 2.0 8 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388} 9 | Exe 10 | Properties 11 | GetWMI_Info 12 | GetWMI_Info 13 | v2.0 14 | 512 15 | 16 | 17 | true 18 | full 19 | false 20 | bin\Debug\ 21 | DEBUG;TRACE 22 | prompt 23 | 4 24 | 25 | 26 | pdbonly 27 | true 28 | bin\Release\ 29 | TRACE 30 | prompt 31 | 4 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 51 | -------------------------------------------------------------------------------- /CSharp/VS2005/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 10.00 3 | # Visual Studio 2008 4 | Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "GetWMI_Info", "GetWMI_Info.csproj", "{3084ADC5-B76E-4BBD-A9B1-6ED655366388}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Any CPU = Debug|Any CPU 9 | Release|Any CPU = Release|Any CPU 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 13 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.Build.0 = Debug|Any CPU 14 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.ActiveCfg = Release|Any CPU 15 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.Build.0 = Release|Any CPU 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /CSharp/VS2005/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // General Information about an assembly is controlled through the following 6 | // set of attributes. Change these attribute values to modify the information 7 | // associated with an assembly. 8 | [assembly: AssemblyTitle("GetWMI_Info")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("Microsoft")] 12 | [assembly: AssemblyProduct("GetWMI_Info")] 13 | [assembly: AssemblyCopyright("Copyright © Microsoft 2012")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // Setting ComVisible to false makes the types in this assembly not visible 18 | // to COM components. If you need to access a type in this assembly from 19 | // COM, set the ComVisible attribute to true on that type. 20 | [assembly: ComVisible(false)] 21 | 22 | // The following GUID is for the ID of the typelib if this project is exposed to COM 23 | [assembly: Guid("59deebfa-a674-4e50-80b9-e16199b4e5b9")] 24 | 25 | // Version information for an assembly consists of the following four values: 26 | // 27 | // Major Version 28 | // Minor Version 29 | // Build Number 30 | // Revision 31 | // 32 | // You can specify all the values or you can default the Build and Revision Numbers 33 | // by using the '*' as shown below: 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CSharp/VS2008/GetWMI_Info.csproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | Debug 5 | AnyCPU 6 | 9.0.30729 7 | 2.0 8 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388} 9 | Exe 10 | Properties 11 | GetWMI_Info 12 | GetWMI_Info 13 | v2.0 14 | 512 15 | 16 | 17 | true 18 | full 19 | false 20 | bin\Debug\ 21 | DEBUG;TRACE 22 | prompt 23 | 4 24 | 25 | 26 | pdbonly 27 | true 28 | bin\Release\ 29 | TRACE 30 | prompt 31 | 4 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 51 | -------------------------------------------------------------------------------- /CSharp/VS2008/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 10.00 3 | # Visual Studio 2008 4 | Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "GetWMI_Info", "GetWMI_Info.csproj", "{3084ADC5-B76E-4BBD-A9B1-6ED655366388}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Any CPU = Debug|Any CPU 9 | Release|Any CPU = Release|Any CPU 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 13 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.Build.0 = Debug|Any CPU 14 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.ActiveCfg = Release|Any CPU 15 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.Build.0 = Release|Any CPU 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /CSharp/VS2008/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // General Information about an assembly is controlled through the following 6 | // set of attributes. Change these attribute values to modify the information 7 | // associated with an assembly. 8 | [assembly: AssemblyTitle("GetWMI_Info")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("Microsoft")] 12 | [assembly: AssemblyProduct("GetWMI_Info")] 13 | [assembly: AssemblyCopyright("Copyright © Microsoft 2012")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // Setting ComVisible to false makes the types in this assembly not visible 18 | // to COM components. If you need to access a type in this assembly from 19 | // COM, set the ComVisible attribute to true on that type. 20 | [assembly: ComVisible(false)] 21 | 22 | // The following GUID is for the ID of the typelib if this project is exposed to COM 23 | [assembly: Guid("59deebfa-a674-4e50-80b9-e16199b4e5b9")] 24 | 25 | // Version information for an assembly consists of the following four values: 26 | // 27 | // Major Version 28 | // Minor Version 29 | // Build Number 30 | // Revision 31 | // 32 | // You can specify all the values or you can default the Build and Revision Numbers 33 | // by using the '*' as shown below: 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CSharp/VS2010/GetWMI_Info.csproj: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | Debug 5 | AnyCPU 6 | 9.0.30729 7 | 2.0 8 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388} 9 | Exe 10 | Properties 11 | GetWMI_Info 12 | GetWMI_Info 13 | v2.0 14 | 512 15 | 16 | 17 | 3.5 18 | 19 | 20 | 21 | true 22 | full 23 | false 24 | bin\Debug\ 25 | DEBUG;TRACE 26 | prompt 27 | 4 28 | AllRules.ruleset 29 | 30 | 31 | pdbonly 32 | true 33 | bin\Release\ 34 | TRACE 35 | prompt 36 | 4 37 | AllRules.ruleset 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 57 | -------------------------------------------------------------------------------- /CSharp/VS2010/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "GetWMI_Info", "GetWMI_Info.csproj", "{3084ADC5-B76E-4BBD-A9B1-6ED655366388}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Any CPU = Debug|Any CPU 9 | Release|Any CPU = Release|Any CPU 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 13 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Debug|Any CPU.Build.0 = Debug|Any CPU 14 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.ActiveCfg = Release|Any CPU 15 | {3084ADC5-B76E-4BBD-A9B1-6ED655366388}.Release|Any CPU.Build.0 = Release|Any CPU 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /CSharp/VS2010/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // General Information about an assembly is controlled through the following 6 | // set of attributes. Change these attribute values to modify the information 7 | // associated with an assembly. 8 | [assembly: AssemblyTitle("GetWMI_Info")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("Microsoft")] 12 | [assembly: AssemblyProduct("GetWMI_Info")] 13 | [assembly: AssemblyCopyright("Copyright © Microsoft 2012")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // Setting ComVisible to false makes the types in this assembly not visible 18 | // to COM components. If you need to access a type in this assembly from 19 | // COM, set the ComVisible attribute to true on that type. 20 | [assembly: ComVisible(false)] 21 | 22 | // The following GUID is for the ID of the typelib if this project is exposed to COM 23 | [assembly: Guid("59deebfa-a674-4e50-80b9-e16199b4e5b9")] 24 | 25 | // Version information for an assembly consists of the following four values: 26 | // 27 | // Major Version 28 | // Minor Version 29 | // Build Number 30 | // Revision 31 | // 32 | // You can specify all the values or you can default the Build and Revision Numbers 33 | // by using the '*' as shown below: 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CompileManifest.bat: -------------------------------------------------------------------------------- 1 | BRCC32 ManAdmin.RC -------------------------------------------------------------------------------- /Extras/LeftBackground.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Extras/LeftBackground.bmp -------------------------------------------------------------------------------- /Extras/LeftBackground.pdn: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Extras/LeftBackground.pdn -------------------------------------------------------------------------------- /Extras/MonoDevelop.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Extras/MonoDevelop.ico -------------------------------------------------------------------------------- /Extras/SmallImage-IS.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Extras/SmallImage-IS.bmp -------------------------------------------------------------------------------- /Extras/SmallImage-IS.pdn: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Extras/SmallImage-IS.pdn -------------------------------------------------------------------------------- /Installer/Arrow.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Installer/Arrow.png -------------------------------------------------------------------------------- /Installer/Auric.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Installer/Auric.vsf -------------------------------------------------------------------------------- /Installer/VclStylesinno.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Installer/VclStylesinno.dll -------------------------------------------------------------------------------- /Installer/background.bmp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Installer/background.bmp -------------------------------------------------------------------------------- /Installer/background.pdn: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Installer/background.pdn -------------------------------------------------------------------------------- /Lazarus/TemplateConsole.lpi: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | -------------------------------------------------------------------------------- /ManAdmin.RC: -------------------------------------------------------------------------------- 1 | 1 24 "ManAdmin.manifest" 2 | -------------------------------------------------------------------------------- /ManAdmin.manifest: -------------------------------------------------------------------------------- 1 | 2 | 3 | 8 | Wmi Delphi Code Creator 9 | 10 | 11 | 19 | 20 | 21 | 22 | 23 | 24 | 27 | 28 | 29 | 30 | 31 | -------------------------------------------------------------------------------- /Microsoft_C++/VS11/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "GetWMI_Info", "GetWMI_Info.vcxproj", "{CCDF23A2-717B-4E69-AF55-D97C78A2E621}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Win32 = Debug|Win32 9 | Release|Win32 = Release|Win32 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.ActiveCfg = Debug|Win32 13 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.Build.0 = Debug|Win32 14 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.ActiveCfg = Release|Win32 15 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.Build.0 = Release|Win32 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Microsoft_C++/VS11/stdafx.cpp: -------------------------------------------------------------------------------- 1 | // stdafx.cpp : source file that includes just the standard includes 2 | // WMiCreator.pch will be the pre-compiled header 3 | // stdafx.obj will contain the pre-compiled type information 4 | 5 | #include "stdafx.h" 6 | 7 | // TODO: reference any additional headers you need in STDAFX.H 8 | // and not in this file 9 | -------------------------------------------------------------------------------- /Microsoft_C++/VS11/stdafx.h: -------------------------------------------------------------------------------- 1 | // stdafx.h : include file for standard system include files, 2 | // or project specific include files that are used frequently, but 3 | // are changed infrequently 4 | // 5 | 6 | #pragma once 7 | 8 | #include "targetver.h" 9 | 10 | #include 11 | #include 12 | 13 | 14 | 15 | // TODO: reference additional headers your program requires here 16 | -------------------------------------------------------------------------------- /Microsoft_C++/VS11/targetver.h: -------------------------------------------------------------------------------- 1 | #pragma once 2 | 3 | // The following macros define the minimum required platform. The minimum required platform 4 | // is the earliest version of Windows, Internet Explorer etc. that has the necessary features to run 5 | // your application. The macros work by enabling all features available on platform versions up to and 6 | // including the version specified. 7 | 8 | // Modify the following defines if you have to target a platform prior to the ones specified below. 9 | // Refer to MSDN for the latest info on corresponding values for different platforms. 10 | #ifndef _WIN32_WINNT // Specifies that the minimum required platform is Windows Vista. 11 | #define _WIN32_WINNT 0x0600 // Change this to the appropriate value to target other versions of Windows. 12 | #endif 13 | 14 | -------------------------------------------------------------------------------- /Microsoft_C++/VS13/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "GetWMI_Info", "GetWMI_Info.vcxproj", "{CCDF23A2-717B-4E69-AF55-D97C78A2E621}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Win32 = Debug|Win32 9 | Release|Win32 = Release|Win32 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.ActiveCfg = Debug|Win32 13 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.Build.0 = Debug|Win32 14 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.ActiveCfg = Release|Win32 15 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.Build.0 = Release|Win32 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Microsoft_C++/VS13/stdafx.cpp: -------------------------------------------------------------------------------- 1 | // stdafx.cpp : source file that includes just the standard includes 2 | // WMiCreator.pch will be the pre-compiled header 3 | // stdafx.obj will contain the pre-compiled type information 4 | 5 | #include "stdafx.h" 6 | 7 | // TODO: reference any additional headers you need in STDAFX.H 8 | // and not in this file 9 | -------------------------------------------------------------------------------- /Microsoft_C++/VS13/stdafx.h: -------------------------------------------------------------------------------- 1 | // stdafx.h : include file for standard system include files, 2 | // or project specific include files that are used frequently, but 3 | // are changed infrequently 4 | // 5 | 6 | #pragma once 7 | 8 | #include "targetver.h" 9 | 10 | #include 11 | #include 12 | 13 | 14 | 15 | // TODO: reference additional headers your program requires here 16 | -------------------------------------------------------------------------------- /Microsoft_C++/VS13/targetver.h: -------------------------------------------------------------------------------- 1 | #pragma once 2 | 3 | // The following macros define the minimum required platform. The minimum required platform 4 | // is the earliest version of Windows, Internet Explorer etc. that has the necessary features to run 5 | // your application. The macros work by enabling all features available on platform versions up to and 6 | // including the version specified. 7 | 8 | // Modify the following defines if you have to target a platform prior to the ones specified below. 9 | // Refer to MSDN for the latest info on corresponding values for different platforms. 10 | #ifndef _WIN32_WINNT // Specifies that the minimum required platform is Windows Vista. 11 | #define _WIN32_WINNT 0x0600 // Change this to the appropriate value to target other versions of Windows. 12 | #endif 13 | 14 | -------------------------------------------------------------------------------- /Microsoft_C++/VS14/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "GetWMI_Info", "GetWMI_Info.vcxproj", "{CCDF23A2-717B-4E69-AF55-D97C78A2E621}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Win32 = Debug|Win32 9 | Release|Win32 = Release|Win32 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.ActiveCfg = Debug|Win32 13 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.Build.0 = Debug|Win32 14 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.ActiveCfg = Release|Win32 15 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.Build.0 = Release|Win32 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Microsoft_C++/VS14/stdafx.cpp: -------------------------------------------------------------------------------- 1 | // stdafx.cpp : source file that includes just the standard includes 2 | // WMiCreator.pch will be the pre-compiled header 3 | // stdafx.obj will contain the pre-compiled type information 4 | 5 | #include "stdafx.h" 6 | 7 | // TODO: reference any additional headers you need in STDAFX.H 8 | // and not in this file 9 | -------------------------------------------------------------------------------- /Microsoft_C++/VS14/stdafx.h: -------------------------------------------------------------------------------- 1 | // stdafx.h : include file for standard system include files, 2 | // or project specific include files that are used frequently, but 3 | // are changed infrequently 4 | // 5 | 6 | #pragma once 7 | 8 | #include "targetver.h" 9 | 10 | #include 11 | #include 12 | 13 | 14 | 15 | // TODO: reference additional headers your program requires here 16 | -------------------------------------------------------------------------------- /Microsoft_C++/VS14/targetver.h: -------------------------------------------------------------------------------- 1 | #pragma once 2 | 3 | // The following macros define the minimum required platform. The minimum required platform 4 | // is the earliest version of Windows, Internet Explorer etc. that has the necessary features to run 5 | // your application. The macros work by enabling all features available on platform versions up to and 6 | // including the version specified. 7 | 8 | // Modify the following defines if you have to target a platform prior to the ones specified below. 9 | // Refer to MSDN for the latest info on corresponding values for different platforms. 10 | #ifndef _WIN32_WINNT // Specifies that the minimum required platform is Windows Vista. 11 | #define _WIN32_WINNT 0x0600 // Change this to the appropriate value to target other versions of Windows. 12 | #endif 13 | 14 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2005/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 10.00 3 | # Visual Studio 2008 4 | Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "GetWMI_Info", "GetWMI_Info.vcproj", "{CCDF23A2-717B-4E69-AF55-D97C78A2E621}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Win32 = Debug|Win32 9 | Release|Win32 = Release|Win32 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.ActiveCfg = Debug|Win32 13 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.Build.0 = Debug|Win32 14 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.ActiveCfg = Release|Win32 15 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.Build.0 = Release|Win32 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2005/stdafx.cpp: -------------------------------------------------------------------------------- 1 | // stdafx.cpp : source file that includes just the standard includes 2 | // WMiCreator.pch will be the pre-compiled header 3 | // stdafx.obj will contain the pre-compiled type information 4 | 5 | #include "stdafx.h" 6 | 7 | // TODO: reference any additional headers you need in STDAFX.H 8 | // and not in this file 9 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2005/stdafx.h: -------------------------------------------------------------------------------- 1 | // stdafx.h : include file for standard system include files, 2 | // or project specific include files that are used frequently, but 3 | // are changed infrequently 4 | // 5 | 6 | #pragma once 7 | 8 | #include "targetver.h" 9 | 10 | #include 11 | #include 12 | 13 | 14 | 15 | // TODO: reference additional headers your program requires here 16 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2005/targetver.h: -------------------------------------------------------------------------------- 1 | #pragma once 2 | 3 | // The following macros define the minimum required platform. The minimum required platform 4 | // is the earliest version of Windows, Internet Explorer etc. that has the necessary features to run 5 | // your application. The macros work by enabling all features available on platform versions up to and 6 | // including the version specified. 7 | 8 | // Modify the following defines if you have to target a platform prior to the ones specified below. 9 | // Refer to MSDN for the latest info on corresponding values for different platforms. 10 | #ifndef _WIN32_WINNT // Specifies that the minimum required platform is Windows Vista. 11 | #define _WIN32_WINNT 0x0600 // Change this to the appropriate value to target other versions of Windows. 12 | #endif 13 | 14 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2008/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 10.00 3 | # Visual Studio 2008 4 | Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "GetWMI_Info", "GetWMI_Info.vcproj", "{CCDF23A2-717B-4E69-AF55-D97C78A2E621}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Win32 = Debug|Win32 9 | Release|Win32 = Release|Win32 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.ActiveCfg = Debug|Win32 13 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.Build.0 = Debug|Win32 14 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.ActiveCfg = Release|Win32 15 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.Build.0 = Release|Win32 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2008/stdafx.cpp: -------------------------------------------------------------------------------- 1 | // stdafx.cpp : source file that includes just the standard includes 2 | // WMiCreator.pch will be the pre-compiled header 3 | // stdafx.obj will contain the pre-compiled type information 4 | 5 | #include "stdafx.h" 6 | 7 | // TODO: reference any additional headers you need in STDAFX.H 8 | // and not in this file 9 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2008/stdafx.h: -------------------------------------------------------------------------------- 1 | // stdafx.h : include file for standard system include files, 2 | // or project specific include files that are used frequently, but 3 | // are changed infrequently 4 | // 5 | 6 | #pragma once 7 | 8 | #include "targetver.h" 9 | 10 | #include 11 | #include 12 | 13 | 14 | 15 | // TODO: reference additional headers your program requires here 16 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2008/targetver.h: -------------------------------------------------------------------------------- 1 | #pragma once 2 | 3 | // The following macros define the minimum required platform. The minimum required platform 4 | // is the earliest version of Windows, Internet Explorer etc. that has the necessary features to run 5 | // your application. The macros work by enabling all features available on platform versions up to and 6 | // including the version specified. 7 | 8 | // Modify the following defines if you have to target a platform prior to the ones specified below. 9 | // Refer to MSDN for the latest info on corresponding values for different platforms. 10 | #ifndef _WIN32_WINNT // Specifies that the minimum required platform is Windows Vista. 11 | #define _WIN32_WINNT 0x0600 // Change this to the appropriate value to target other versions of Windows. 12 | #endif 13 | 14 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2010/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "GetWMI_Info", "GetWMI_Info.vcxproj", "{CCDF23A2-717B-4E69-AF55-D97C78A2E621}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Win32 = Debug|Win32 9 | Release|Win32 = Release|Win32 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.ActiveCfg = Debug|Win32 13 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Debug|Win32.Build.0 = Debug|Win32 14 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.ActiveCfg = Release|Win32 15 | {CCDF23A2-717B-4E69-AF55-D97C78A2E621}.Release|Win32.Build.0 = Release|Win32 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | HideSolutionNode = FALSE 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2010/stdafx.cpp: -------------------------------------------------------------------------------- 1 | // stdafx.cpp : source file that includes just the standard includes 2 | // WMiCreator.pch will be the pre-compiled header 3 | // stdafx.obj will contain the pre-compiled type information 4 | 5 | #include "stdafx.h" 6 | 7 | // TODO: reference any additional headers you need in STDAFX.H 8 | // and not in this file 9 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2010/stdafx.h: -------------------------------------------------------------------------------- 1 | // stdafx.h : include file for standard system include files, 2 | // or project specific include files that are used frequently, but 3 | // are changed infrequently 4 | // 5 | 6 | #pragma once 7 | 8 | #include "targetver.h" 9 | 10 | #include 11 | #include 12 | 13 | 14 | 15 | // TODO: reference additional headers your program requires here 16 | -------------------------------------------------------------------------------- /Microsoft_C++/VS2010/targetver.h: -------------------------------------------------------------------------------- 1 | #pragma once 2 | 3 | // The following macros define the minimum required platform. The minimum required platform 4 | // is the earliest version of Windows, Internet Explorer etc. that has the necessary features to run 5 | // your application. The macros work by enabling all features available on platform versions up to and 6 | // including the version specified. 7 | 8 | // Modify the following defines if you have to target a platform prior to the ones specified below. 9 | // Refer to MSDN for the latest info on corresponding values for different platforms. 10 | #ifndef _WIN32_WINNT // Specifies that the minimum required platform is Windows Vista. 11 | #define _WIN32_WINNT 0x0600 // Change this to the appropriate value to target other versions of Windows. 12 | #endif 13 | 14 | -------------------------------------------------------------------------------- /Oxygene/MonoDevelop/GetWMI_Info.oxygene: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | Debug 5 | x86 6 | 3.5 7 | 2.0 8 | {F3043BF1-BB6F-42F2-82ED-54D0969AABB4} 9 | Exe 10 | monowmi 11 | false 12 | OnBuildSuccess 13 | false 14 | false 15 | monowmi 16 | v3.5 17 | monowmi 18 | 19 | 20 | true 21 | full 22 | bin\Debug 23 | DEBUG;TRACE; 24 | prompt 25 | v25 26 | anycpu 27 | Cassini 28 | WarningOnPublicMembers 29 | Project 30 | true 31 | true 32 | true 33 | 34 | 35 | none 36 | bin\Release 37 | prompt 38 | v25 39 | WarningOnPublicMembers 40 | Cassini 41 | anycpu 42 | true 43 | Project 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | -------------------------------------------------------------------------------- /Oxygene/MonoDevelop/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 10.00 3 | # Visual Studio 2008 4 | Project("{656346D9-4656-40DA-A068-22D5425D4639}") = "GetWMI_Info", "GetWMI_Info.oxygene", "{F3043BF1-BB6F-42F2-82ED-54D0969AABB4}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|x86 = Debug|x86 9 | Release|x86 = Release|x86 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {F3043BF1-BB6F-42F2-82ED-54D0969AABB4}.Debug|x86.ActiveCfg = Debug|x86 13 | {F3043BF1-BB6F-42F2-82ED-54D0969AABB4}.Debug|x86.Build.0 = Debug|x86 14 | {F3043BF1-BB6F-42F2-82ED-54D0969AABB4}.Release|x86.ActiveCfg = Release|x86 15 | {F3043BF1-BB6F-42F2-82ED-54D0969AABB4}.Release|x86.Build.0 = Release|x86 16 | EndGlobalSection 17 | GlobalSection(MonoDevelopProperties) = preSolution 18 | StartupItem = GetWMI_Info.oxygene 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Oxygene/MonoDevelop/GetWMI_Info.userprefs: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /Oxygene/MonoDevelop/Properties/App.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Oxygene/MonoDevelop/Properties/App.ico -------------------------------------------------------------------------------- /Oxygene/MonoDevelop/Properties/AssemblyInfo.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | uses 6 | System.Reflection, 7 | System.Resources, 8 | System.Runtime.InteropServices; 9 | 10 | [assembly: AssemblyTitle('')] 11 | [assembly: AssemblyDescription('')] 12 | [assembly: AssemblyConfiguration('')] 13 | [assembly: AssemblyCompany('')] 14 | [assembly: AssemblyProduct('')] 15 | [assembly: AssemblyCopyright('')] 16 | [assembly: AssemblyTrademark('')] 17 | [assembly: AssemblyCulture('')] 18 | [assembly: AssemblyVersion('1.0.0.1')] 19 | [assembly: NeutralResourcesLanguage('')] 20 | [assembly: ComVisible(false)] 21 | 22 | // 23 | // In order to sign your assembly you must specify a key to use. Refer to the 24 | // Microsoft .NET Framework documentation for more information on assembly signing. 25 | // 26 | // Use the attributes below to control which key is used for signing. 27 | // 28 | // Notes: 29 | // (*) If no key is specified, the assembly is not signed. 30 | // (*) KeyName refers to a key that has been installed in the Crypto Service 31 | // Provider (CSP) on your machine. KeyFile refers to a file which contains 32 | // a key. 33 | // (*) If the KeyFile and the KeyName values are both specified, the 34 | // following processing occurs: 35 | // (1) If the KeyName can be found in the CSP, that key is used. 36 | // (2) If the KeyName does not exist and the KeyFile does exist, the key 37 | // in the KeyFile is installed into the CSP and used. 38 | // (*) In order to create a KeyFile, you can use the sn.exe (Strong Name) utility. 39 | // When specifying the KeyFile, the location of the KeyFile should be 40 | // relative to the project output directory, which in Oxygene by default is the 41 | // same as the project directory. For example, if your KeyFile is 42 | // located in the project directory, you would specify the AssemblyKeyFile 43 | // attribute as [assembly: AssemblyKeyFile('mykey.snk')] 44 | // (*) Delay Signing is an advanced option - see the Microsoft .NET Framework 45 | // documentation for more information on this. 46 | // 47 | [assembly: AssemblyDelaySign(false)] 48 | [assembly: AssemblyKeyFile('')] 49 | [assembly: AssemblyKeyName('')] 50 | 51 | implementation 52 | 53 | end. 54 | -------------------------------------------------------------------------------- /Oxygene/MonoDevelop/Properties/Resources.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/MonoDevelop/Properties/Settings.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/MonoDevelop/Properties/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /Oxygene/VS2008/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 10.00 3 | # Visual Studio 2008 4 | Project("{656346D9-4656-40DA-A068-22D5425D4639}") = "GetWMI_Info", "GetWMI_Info.oxygene", "{F3043BF1-BB6F-42F2-82ED-54D0969AABB4}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|x86 = Debug|x86 9 | Release|x86 = Release|x86 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {F3043BF1-BB6F-42F2-82ED-54D0969AABB4}.Debug|x86.ActiveCfg = Debug|x86 13 | {F3043BF1-BB6F-42F2-82ED-54D0969AABB4}.Debug|x86.Build.0 = Debug|x86 14 | {F3043BF1-BB6F-42F2-82ED-54D0969AABB4}.Release|x86.ActiveCfg = Release|x86 15 | {F3043BF1-BB6F-42F2-82ED-54D0969AABB4}.Release|x86.Build.0 = Release|x86 16 | EndGlobalSection 17 | GlobalSection(MonoDevelopProperties) = preSolution 18 | StartupItem = Program.pas 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Oxygene/VS2008/Properties/App.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Oxygene/VS2008/Properties/App.ico -------------------------------------------------------------------------------- /Oxygene/VS2008/Properties/AssemblyInfo.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | uses 6 | System.Reflection, 7 | System.Resources, 8 | System.Runtime.InteropServices; 9 | 10 | [assembly: AssemblyTitle('')] 11 | [assembly: AssemblyDescription('')] 12 | [assembly: AssemblyConfiguration('')] 13 | [assembly: AssemblyCompany('')] 14 | [assembly: AssemblyProduct('')] 15 | [assembly: AssemblyCopyright('')] 16 | [assembly: AssemblyTrademark('')] 17 | [assembly: AssemblyCulture('')] 18 | [assembly: AssemblyVersion('1.0.0.1')] 19 | [assembly: NeutralResourcesLanguage('')] 20 | [assembly: ComVisible(false)] 21 | 22 | // 23 | // In order to sign your assembly you must specify a key to use. Refer to the 24 | // Microsoft .NET Framework documentation for more information on assembly signing. 25 | // 26 | // Use the attributes below to control which key is used for signing. 27 | // 28 | // Notes: 29 | // (*) If no key is specified, the assembly is not signed. 30 | // (*) KeyName refers to a key that has been installed in the Crypto Service 31 | // Provider (CSP) on your machine. KeyFile refers to a file which contains 32 | // a key. 33 | // (*) If the KeyFile and the KeyName values are both specified, the 34 | // following processing occurs: 35 | // (1) If the KeyName can be found in the CSP, that key is used. 36 | // (2) If the KeyName does not exist and the KeyFile does exist, the key 37 | // in the KeyFile is installed into the CSP and used. 38 | // (*) In order to create a KeyFile, you can use the sn.exe (Strong Name) utility. 39 | // When specifying the KeyFile, the location of the KeyFile should be 40 | // relative to the project output directory, which in Oxygene by default is the 41 | // same as the project directory. For example, if your KeyFile is 42 | // located in the project directory, you would specify the AssemblyKeyFile 43 | // attribute as [assembly: AssemblyKeyFile('mykey.snk')] 44 | // (*) Delay Signing is an advanced option - see the Microsoft .NET Framework 45 | // documentation for more information on this. 46 | // 47 | [assembly: AssemblyDelaySign(false)] 48 | [assembly: AssemblyKeyFile('')] 49 | [assembly: AssemblyKeyName('')] 50 | 51 | implementation 52 | 53 | end. 54 | -------------------------------------------------------------------------------- /Oxygene/VS2008/Properties/Resources.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/VS2008/Properties/Settings.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/VS2008/Properties/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /Oxygene/VS2010/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{656346D9-4656-40DA-A068-22D5425D4639}") = "GetWMI_Info", "GetWMI_Info.oxygene", "{581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Default = Debug|Default 9 | Release|Default = Release|Default 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Debug|Default.ActiveCfg = Debug 13 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Debug|Default.Build.0 = Debug 14 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Release|Default.ActiveCfg = Release 15 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Release|Default.Build.0 = Release 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | StartupItem = Program.pas 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Oxygene/VS2010/Properties/App.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Oxygene/VS2010/Properties/App.ico -------------------------------------------------------------------------------- /Oxygene/VS2010/Properties/AssemblyInfo.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | uses 6 | System.Reflection, 7 | System.Resources, 8 | System.Runtime.InteropServices; 9 | 10 | [assembly: AssemblyTitle('')] 11 | [assembly: AssemblyDescription('')] 12 | [assembly: AssemblyConfiguration('')] 13 | [assembly: AssemblyCompany('')] 14 | [assembly: AssemblyProduct('')] 15 | [assembly: AssemblyCopyright('')] 16 | [assembly: AssemblyTrademark('')] 17 | [assembly: AssemblyCulture('')] 18 | [assembly: AssemblyVersion('1.0.0.1')] 19 | [assembly: NeutralResourcesLanguage('')] 20 | [assembly: ComVisible(false)] 21 | 22 | // 23 | // In order to sign your assembly you must specify a key to use. Refer to the 24 | // Microsoft .NET Framework documentation for more information on assembly signing. 25 | // 26 | // Use the attributes below to control which key is used for signing. 27 | // 28 | // Notes: 29 | // (*) If no key is specified, the assembly is not signed. 30 | // (*) KeyName refers to a key that has been installed in the Crypto Service 31 | // Provider (CSP) on your machine. KeyFile refers to a file which contains 32 | // a key. 33 | // (*) If the KeyFile and the KeyName values are both specified, the 34 | // following processing occurs: 35 | // (1) If the KeyName can be found in the CSP, that key is used. 36 | // (2) If the KeyName does not exist and the KeyFile does exist, the key 37 | // in the KeyFile is installed into the CSP and used. 38 | // (*) In order to create a KeyFile, you can use the sn.exe (Strong Name) utility. 39 | // When specifying the KeyFile, the location of the KeyFile should be 40 | // relative to the project output directory, which in Oxygene by default is the 41 | // same as the project directory. For example, if your KeyFile is 42 | // located in the project directory, you would specify the AssemblyKeyFile 43 | // attribute as [assembly: AssemblyKeyFile('mykey.snk')] 44 | // (*) Delay Signing is an advanced option - see the Microsoft .NET Framework 45 | // documentation for more information on this. 46 | // 47 | [assembly: AssemblyDelaySign(false)] 48 | [assembly: AssemblyKeyFile('')] 49 | [assembly: AssemblyKeyName('')] 50 | 51 | implementation 52 | 53 | end. 54 | -------------------------------------------------------------------------------- /Oxygene/VS2010/Properties/Resources.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/VS2010/Properties/Settings.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/VS2010/Properties/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /Oxygene/VS2012/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{656346D9-4656-40DA-A068-22D5425D4639}") = "GetWMI_Info", "GetWMI_Info.oxygene", "{581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Default = Debug|Default 9 | Release|Default = Release|Default 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Debug|Default.ActiveCfg = Debug 13 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Debug|Default.Build.0 = Debug 14 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Release|Default.ActiveCfg = Release 15 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Release|Default.Build.0 = Release 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | StartupItem = Program.pas 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Oxygene/VS2012/Properties/App.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Oxygene/VS2012/Properties/App.ico -------------------------------------------------------------------------------- /Oxygene/VS2012/Properties/AssemblyInfo.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | uses 6 | System.Reflection, 7 | System.Resources, 8 | System.Runtime.InteropServices; 9 | 10 | [assembly: AssemblyTitle('')] 11 | [assembly: AssemblyDescription('')] 12 | [assembly: AssemblyConfiguration('')] 13 | [assembly: AssemblyCompany('')] 14 | [assembly: AssemblyProduct('')] 15 | [assembly: AssemblyCopyright('')] 16 | [assembly: AssemblyTrademark('')] 17 | [assembly: AssemblyCulture('')] 18 | [assembly: AssemblyVersion('1.0.0.1')] 19 | [assembly: NeutralResourcesLanguage('')] 20 | [assembly: ComVisible(false)] 21 | 22 | // 23 | // In order to sign your assembly you must specify a key to use. Refer to the 24 | // Microsoft .NET Framework documentation for more information on assembly signing. 25 | // 26 | // Use the attributes below to control which key is used for signing. 27 | // 28 | // Notes: 29 | // (*) If no key is specified, the assembly is not signed. 30 | // (*) KeyName refers to a key that has been installed in the Crypto Service 31 | // Provider (CSP) on your machine. KeyFile refers to a file which contains 32 | // a key. 33 | // (*) If the KeyFile and the KeyName values are both specified, the 34 | // following processing occurs: 35 | // (1) If the KeyName can be found in the CSP, that key is used. 36 | // (2) If the KeyName does not exist and the KeyFile does exist, the key 37 | // in the KeyFile is installed into the CSP and used. 38 | // (*) In order to create a KeyFile, you can use the sn.exe (Strong Name) utility. 39 | // When specifying the KeyFile, the location of the KeyFile should be 40 | // relative to the project output directory, which in Oxygene by default is the 41 | // same as the project directory. For example, if your KeyFile is 42 | // located in the project directory, you would specify the AssemblyKeyFile 43 | // attribute as [assembly: AssemblyKeyFile('mykey.snk')] 44 | // (*) Delay Signing is an advanced option - see the Microsoft .NET Framework 45 | // documentation for more information on this. 46 | // 47 | [assembly: AssemblyDelaySign(false)] 48 | [assembly: AssemblyKeyFile('')] 49 | [assembly: AssemblyKeyName('')] 50 | 51 | implementation 52 | 53 | end. 54 | -------------------------------------------------------------------------------- /Oxygene/VS2012/Properties/Resources.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/VS2012/Properties/Settings.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/VS2012/Properties/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /Oxygene/VS2013/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{656346D9-4656-40DA-A068-22D5425D4639}") = "GetWMI_Info", "GetWMI_Info.oxygene", "{581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Default = Debug|Default 9 | Release|Default = Release|Default 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Debug|Default.ActiveCfg = Debug 13 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Debug|Default.Build.0 = Debug 14 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Release|Default.ActiveCfg = Release 15 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Release|Default.Build.0 = Release 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | StartupItem = Program.pas 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Oxygene/VS2013/Properties/App.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Oxygene/VS2013/Properties/App.ico -------------------------------------------------------------------------------- /Oxygene/VS2013/Properties/AssemblyInfo.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | uses 6 | System.Reflection, 7 | System.Resources, 8 | System.Runtime.InteropServices; 9 | 10 | [assembly: AssemblyTitle('')] 11 | [assembly: AssemblyDescription('')] 12 | [assembly: AssemblyConfiguration('')] 13 | [assembly: AssemblyCompany('')] 14 | [assembly: AssemblyProduct('')] 15 | [assembly: AssemblyCopyright('')] 16 | [assembly: AssemblyTrademark('')] 17 | [assembly: AssemblyCulture('')] 18 | [assembly: AssemblyVersion('1.0.0.1')] 19 | [assembly: NeutralResourcesLanguage('')] 20 | [assembly: ComVisible(false)] 21 | 22 | // 23 | // In order to sign your assembly you must specify a key to use. Refer to the 24 | // Microsoft .NET Framework documentation for more information on assembly signing. 25 | // 26 | // Use the attributes below to control which key is used for signing. 27 | // 28 | // Notes: 29 | // (*) If no key is specified, the assembly is not signed. 30 | // (*) KeyName refers to a key that has been installed in the Crypto Service 31 | // Provider (CSP) on your machine. KeyFile refers to a file which contains 32 | // a key. 33 | // (*) If the KeyFile and the KeyName values are both specified, the 34 | // following processing occurs: 35 | // (1) If the KeyName can be found in the CSP, that key is used. 36 | // (2) If the KeyName does not exist and the KeyFile does exist, the key 37 | // in the KeyFile is installed into the CSP and used. 38 | // (*) In order to create a KeyFile, you can use the sn.exe (Strong Name) utility. 39 | // When specifying the KeyFile, the location of the KeyFile should be 40 | // relative to the project output directory, which in Oxygene by default is the 41 | // same as the project directory. For example, if your KeyFile is 42 | // located in the project directory, you would specify the AssemblyKeyFile 43 | // attribute as [assembly: AssemblyKeyFile('mykey.snk')] 44 | // (*) Delay Signing is an advanced option - see the Microsoft .NET Framework 45 | // documentation for more information on this. 46 | // 47 | [assembly: AssemblyDelaySign(false)] 48 | [assembly: AssemblyKeyFile('')] 49 | [assembly: AssemblyKeyName('')] 50 | 51 | implementation 52 | 53 | end. 54 | -------------------------------------------------------------------------------- /Oxygene/VS2013/Properties/Resources.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/VS2013/Properties/Settings.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/VS2013/Properties/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /Oxygene/VS2015/GetWMI_Info.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{656346D9-4656-40DA-A068-22D5425D4639}") = "GetWMI_Info", "GetWMI_Info.oxygene", "{581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Default = Debug|Default 9 | Release|Default = Release|Default 10 | EndGlobalSection 11 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 12 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Debug|Default.ActiveCfg = Debug 13 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Debug|Default.Build.0 = Debug 14 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Release|Default.ActiveCfg = Release 15 | {581B5AA6-EE50-4B61-B3AC-CCD89BF8B765}.Release|Default.Build.0 = Release 16 | EndGlobalSection 17 | GlobalSection(SolutionProperties) = preSolution 18 | StartupItem = Program.pas 19 | EndGlobalSection 20 | EndGlobal 21 | -------------------------------------------------------------------------------- /Oxygene/VS2015/Properties/App.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Oxygene/VS2015/Properties/App.ico -------------------------------------------------------------------------------- /Oxygene/VS2015/Properties/AssemblyInfo.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | uses 6 | System.Reflection, 7 | System.Resources, 8 | System.Runtime.InteropServices; 9 | 10 | [assembly: AssemblyTitle('')] 11 | [assembly: AssemblyDescription('')] 12 | [assembly: AssemblyConfiguration('')] 13 | [assembly: AssemblyCompany('')] 14 | [assembly: AssemblyProduct('')] 15 | [assembly: AssemblyCopyright('')] 16 | [assembly: AssemblyTrademark('')] 17 | [assembly: AssemblyCulture('')] 18 | [assembly: AssemblyVersion('1.0.0.1')] 19 | [assembly: NeutralResourcesLanguage('')] 20 | [assembly: ComVisible(false)] 21 | 22 | // 23 | // In order to sign your assembly you must specify a key to use. Refer to the 24 | // Microsoft .NET Framework documentation for more information on assembly signing. 25 | // 26 | // Use the attributes below to control which key is used for signing. 27 | // 28 | // Notes: 29 | // (*) If no key is specified, the assembly is not signed. 30 | // (*) KeyName refers to a key that has been installed in the Crypto Service 31 | // Provider (CSP) on your machine. KeyFile refers to a file which contains 32 | // a key. 33 | // (*) If the KeyFile and the KeyName values are both specified, the 34 | // following processing occurs: 35 | // (1) If the KeyName can be found in the CSP, that key is used. 36 | // (2) If the KeyName does not exist and the KeyFile does exist, the key 37 | // in the KeyFile is installed into the CSP and used. 38 | // (*) In order to create a KeyFile, you can use the sn.exe (Strong Name) utility. 39 | // When specifying the KeyFile, the location of the KeyFile should be 40 | // relative to the project output directory, which in Oxygene by default is the 41 | // same as the project directory. For example, if your KeyFile is 42 | // located in the project directory, you would specify the AssemblyKeyFile 43 | // attribute as [assembly: AssemblyKeyFile('mykey.snk')] 44 | // (*) Delay Signing is an advanced option - see the Microsoft .NET Framework 45 | // documentation for more information on this. 46 | // 47 | [assembly: AssemblyDelaySign(false)] 48 | [assembly: AssemblyKeyFile('')] 49 | [assembly: AssemblyKeyName('')] 50 | 51 | implementation 52 | 53 | end. 54 | -------------------------------------------------------------------------------- /Oxygene/VS2015/Properties/Resources.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/VS2015/Properties/Settings.Designer.pas: -------------------------------------------------------------------------------- 1 | namespace GetWMI_Info; 2 | 3 | interface 4 | 5 | { The .Designer.pas file will be automatically generated when the parent file changes. 6 | You can also right-click the parent file and select 'Run Custom Tool' to update it now. } 7 | 8 | implementation 9 | 10 | end. 11 | -------------------------------------------------------------------------------- /Oxygene/VS2015/Properties/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /Styles/Amakrits.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Amakrits.vsf -------------------------------------------------------------------------------- /Styles/AmethystKamri.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/AmethystKamri.vsf -------------------------------------------------------------------------------- /Styles/AquaGraphite.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/AquaGraphite.vsf -------------------------------------------------------------------------------- /Styles/AquaLightSlate.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/AquaLightSlate.vsf -------------------------------------------------------------------------------- /Styles/Auric.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Auric.vsf -------------------------------------------------------------------------------- /Styles/BlueGraphite.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/BlueGraphite.vsf -------------------------------------------------------------------------------- /Styles/Carbon.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Carbon.vsf -------------------------------------------------------------------------------- /Styles/CharcoalDarkSlate.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/CharcoalDarkSlate.vsf -------------------------------------------------------------------------------- /Styles/CobaltXEMedia.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/CobaltXEMedia.vsf -------------------------------------------------------------------------------- /Styles/EmeraldLightSlate.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/EmeraldLightSlate.vsf -------------------------------------------------------------------------------- /Styles/Glossy.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Glossy.vsf -------------------------------------------------------------------------------- /Styles/Glow.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Glow.vsf -------------------------------------------------------------------------------- /Styles/GoldenGraphite.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/GoldenGraphite.vsf -------------------------------------------------------------------------------- /Styles/GreenGraphite.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/GreenGraphite.vsf -------------------------------------------------------------------------------- /Styles/IcebergClassico.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/IcebergClassico.vsf -------------------------------------------------------------------------------- /Styles/LavenderClassico.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/LavenderClassico.vsf -------------------------------------------------------------------------------- /Styles/Light.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Light.vsf -------------------------------------------------------------------------------- /Styles/LightGreen.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/LightGreen.vsf -------------------------------------------------------------------------------- /Styles/Luna.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Luna.vsf -------------------------------------------------------------------------------- /Styles/Metro Grey.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Metro Grey.vsf -------------------------------------------------------------------------------- /Styles/MetroBlack.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/MetroBlack.vsf -------------------------------------------------------------------------------- /Styles/MetroBlue.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/MetroBlue.vsf -------------------------------------------------------------------------------- /Styles/MetroGreen.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/MetroGreen.vsf -------------------------------------------------------------------------------- /Styles/OnyxBlue.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/OnyxBlue.vsf -------------------------------------------------------------------------------- /Styles/RubyGraphite.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/RubyGraphite.vsf -------------------------------------------------------------------------------- /Styles/SapphireKamri.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/SapphireKamri.vsf -------------------------------------------------------------------------------- /Styles/Sky.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Sky.vsf -------------------------------------------------------------------------------- /Styles/SlateClassico.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/SlateClassico.vsf -------------------------------------------------------------------------------- /Styles/SmokeyQuartzKamri.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/SmokeyQuartzKamri.vsf -------------------------------------------------------------------------------- /Styles/TabletDark.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/TabletDark.vsf -------------------------------------------------------------------------------- /Styles/TurquoiseGray.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/TurquoiseGray.vsf -------------------------------------------------------------------------------- /Styles/Windows10.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Windows10.vsf -------------------------------------------------------------------------------- /Styles/Windows10Blue.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Windows10Blue.vsf -------------------------------------------------------------------------------- /Styles/Windows10Dark.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/Windows10Dark.vsf -------------------------------------------------------------------------------- /Styles/YellowGraphite.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/YellowGraphite.vsf -------------------------------------------------------------------------------- /Styles/khaki.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/khaki.vsf -------------------------------------------------------------------------------- /Styles/lilac.vsf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Styles/lilac.vsf -------------------------------------------------------------------------------- /Templates/TemplateConsoleAppCSharp.cs: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2021 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | using System; 15 | using System.Collections.Generic; 16 | using System.Management; 17 | using System.Text; 18 | 19 | namespace GetWMI_Info 20 | { 21 | class Program 22 | { 23 | [WMICLASSDESC] 24 | static void Main(string[] args) 25 | { 26 | try 27 | { 28 | string ComputerName = "localhost"; 29 | ManagementScope Scope; 30 | 31 | if (!ComputerName.Equals("localhost", StringComparison.OrdinalIgnoreCase)) 32 | { 33 | ConnectionOptions Conn = new ConnectionOptions(); 34 | Conn.Username = ""; 35 | Conn.Password = ""; 36 | Conn.Authority = "ntlmdomain:DOMAIN"; 37 | Scope = new ManagementScope(String.Format("\\\\{0}\\[WMINAMESPACE]", ComputerName), Conn); 38 | } 39 | else 40 | Scope = new ManagementScope(String.Format("\\\\{0}\\[WMINAMESPACE]", ComputerName), null); 41 | 42 | Scope.Connect(); 43 | ObjectQuery Query = new ObjectQuery("SELECT * FROM [WMICLASSNAME]"); 44 | ManagementObjectSearcher Searcher = new ManagementObjectSearcher(Scope, Query); 45 | 46 | foreach (ManagementObject WmiObject in Searcher.Get()) 47 | { 48 | [CSHARPCODE] 49 | } 50 | } 51 | catch (Exception e) 52 | { 53 | Console.WriteLine(String.Format("Exception {0} Trace {1}",e.Message,e.StackTrace)); 54 | } 55 | Console.WriteLine("Press Enter to exit"); 56 | Console.Read(); 57 | } 58 | } 59 | } 60 | 61 | 62 | -------------------------------------------------------------------------------- /Templates/TemplateConsoleAppDelphi.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$APPTYPE CONSOLE} 17 | 18 | uses 19 | SysUtils, 20 | ActiveX, 21 | ComObj, 22 | Variants; 23 | 24 | [HELPER_FUNCTIONS] 25 | 26 | [WMICLASSDESC] 27 | procedure Get[WMICLASSNAME]Info; 28 | const 29 | WbemUser = ''; 30 | WbemPassword = ''; 31 | WbemComputer = 'localhost'; 32 | wbemFlagForwardOnly = $00000020; 33 | var 34 | FSWbemLocator, 35 | FWMIService, 36 | FWbemObjectSet, 37 | FWbemObject: OLEVariant; 38 | oEnum: IEnumvariant; 39 | iValue: LongWord; 40 | begin; 41 | FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); 42 | FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword); 43 | FWbemObjectSet := FWMIService.ExecQuery('SELECT * FROM [WMICLASSNAME]', 'WQL', wbemFlagForwardOnly); 44 | oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant; 45 | while oEnum.Next(1, FWbemObject, iValue) = 0 do 46 | begin 47 | [DELPHICODE] 48 | Writeln(''); 49 | FWbemObject:=Unassigned; 50 | end; 51 | end; 52 | 53 | 54 | begin 55 | try 56 | CoInitialize(nil); 57 | try 58 | Get[WMICLASSNAME]Info; 59 | finally 60 | CoUninitialize; 61 | end; 62 | except 63 | on E:EOleException do 64 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 65 | on E:Exception do 66 | Writeln(E.Classname, ':', E.Message); 67 | end; 68 | Writeln('Press Enter to exit'); 69 | Readln; 70 | end. -------------------------------------------------------------------------------- /Templates/TemplateConsoleAppDelphiSingleton.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$APPTYPE CONSOLE} 17 | 18 | uses 19 | SysUtils, 20 | ActiveX, 21 | ComObj, 22 | Variants; 23 | 24 | [HELPER_FUNCTIONS] 25 | 26 | [WMICLASSDESC] 27 | procedure Get[WMICLASSNAME]Info; 28 | const 29 | WbemUser =''; 30 | WbemPassword =''; 31 | WbemComputer ='localhost'; 32 | var 33 | FSWbemLocator: OLEVariant; 34 | FWMIService: OLEVariant; 35 | FWbemObject: OLEVariant; 36 | begin; 37 | FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); 38 | FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword); 39 | FWbemObject := FWMIService.Get('[WMICLASSNAME]=@'); 40 | [DELPHICODE] 41 | end; 42 | 43 | 44 | begin 45 | try 46 | CoInitialize(nil); 47 | try 48 | Get[WMICLASSNAME]Info; 49 | finally 50 | CoUninitialize; 51 | end; 52 | except 53 | on E:EOleException do 54 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 55 | on E:Exception do 56 | Writeln(E.Classname, ':', E.Message); 57 | end; 58 | Writeln('Press Enter to exit'); 59 | Readln; 60 | end. -------------------------------------------------------------------------------- /Templates/TemplateConsoleAppDelphiSingleton_TLB.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$APPTYPE CONSOLE} 17 | 18 | uses 19 | SysUtils, 20 | ActiveX, 21 | ComObj, 22 | WbemScripting_TLB, 23 | Variants; 24 | 25 | [HELPER_FUNCTIONS] 26 | 27 | [WMICLASSDESC] 28 | procedure Get[WMICLASSNAME]Info; 29 | const 30 | WbemUser =''; 31 | WbemPassword =''; 32 | WbemComputer ='localhost'; 33 | var 34 | FSWbemLocator: ISWbemLocator; 35 | FWMIService: ISWbemServices; 36 | FWbemObject: ISWbemObject; 37 | FWbemPropertySet: ISWbemPropertySet; 38 | begin; 39 | FSWbemLocator := CoSWbemLocator.Create; 40 | FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword, '', '', 0, nil); 41 | FWbemObject := FWMIService.Get('[WMICLASSNAME]=@',0,nil); 42 | FWbemPropertySet := FWbemObject.Properties_; 43 | [DELPHICODE] 44 | end; 45 | 46 | 47 | begin 48 | try 49 | CoInitialize(nil); 50 | try 51 | Get[WMICLASSNAME]Info; 52 | finally 53 | CoUninitialize; 54 | end; 55 | except 56 | on E:EOleException do 57 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 58 | on E:Exception do 59 | Writeln(E.Classname, ':', E.Message); 60 | end; 61 | Writeln('Press Enter to exit'); 62 | Readln; 63 | end. -------------------------------------------------------------------------------- /Templates/TemplateConsoleAppDelphi_TLB.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$APPTYPE CONSOLE} 17 | 18 | uses 19 | SysUtils, 20 | ActiveX, 21 | ComObj, 22 | WbemScripting_TLB, 23 | Variants; 24 | 25 | [HELPER_FUNCTIONS] 26 | 27 | [WMICLASSDESC] 28 | procedure Get[WMICLASSNAME]Info; 29 | const 30 | WbemUser =''; 31 | WbemPassword =''; 32 | WbemComputer ='localhost'; 33 | wbemFlagForwardOnly = $00000020; 34 | var 35 | FSWbemLocator: ISWbemLocator; 36 | FWMIService: ISWbemServices; 37 | FWbemObjectSet: ISWbemObjectSet; 38 | FWbemObject: ISWbemObject; 39 | FWbemPropertySet: ISWbemPropertySet; 40 | TempObj: OleVariant; 41 | oEnum: IEnumvariant; 42 | iValue: Cardinal; 43 | begin 44 | FSWbemLocator := CoSWbemLocator.Create; 45 | FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword, '', '', 0, nil); 46 | FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM [WMICLASSNAME]','WQL', wbemFlagForwardOnly, nil); 47 | oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant; 48 | while oEnum.Next(1, TempObj, iValue) = 0 do 49 | begin 50 | FWbemObject := IUnknown(TempObj) as ISWBemObject; 51 | FWbemPropertySet:= FWbemObject.Properties_; 52 | 53 | [DELPHICODE] 54 | Writeln(''); 55 | TempObj:=Unassigned; 56 | end; 57 | end; 58 | 59 | 60 | begin 61 | try 62 | CoInitialize(nil); 63 | try 64 | Get[WMICLASSNAME]Info; 65 | finally 66 | CoUninitialize; 67 | end; 68 | except 69 | on E:EOleException do 70 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 71 | on E:Exception do 72 | Writeln(E.Classname, ':', E.Message); 73 | end; 74 | Writeln('Press Enter to exit'); 75 | Readln; 76 | end. -------------------------------------------------------------------------------- /Templates/TemplateConsoleAppFPC.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$mode objfpc} {$H+} 17 | 18 | uses 19 | SysUtils, 20 | ActiveX, 21 | ComObj, 22 | Variants; 23 | 24 | [HELPER_FUNCTIONS] 25 | 26 | [WMICLASSDESC] 27 | procedure Get[WMICLASSNAME]Info; 28 | const 29 | WbemUser =''; 30 | WbemPassword =''; 31 | WbemComputer ='localhost'; 32 | wbemFlagForwardOnly = $00000020; 33 | var 34 | FSWbemLocator: OLEVariant; 35 | FWMIService: OLEVariant; 36 | FWbemObjectSet: OLEVariant; 37 | FWbemObject: Variant; 38 | oEnum: IEnumvariant; 39 | sValue: string; 40 | begin; 41 | FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); 42 | FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword); 43 | FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM [WMICLASSNAME]','WQL',wbemFlagForwardOnly); 44 | oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant; 45 | while oEnum.Next(1, FWbemObject, nil) = 0 do 46 | begin 47 | [DELPHICODE] 48 | Writeln(''); 49 | FWbemObject:=Unassigned; 50 | end; 51 | end; 52 | 53 | 54 | begin 55 | try 56 | Get[WMICLASSNAME]Info; 57 | except 58 | on E:EOleException do 59 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 60 | on E:Exception do 61 | Writeln(E.Classname, ':', E.Message); 62 | end; 63 | Writeln('Press Enter to exit'); 64 | Readln; 65 | end. -------------------------------------------------------------------------------- /Templates/TemplateConsoleAppFPCSingleton.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$mode objfpc} {$H+} 17 | 18 | uses 19 | SysUtils, 20 | ActiveX, 21 | ComObj, 22 | Variants; 23 | 24 | [HELPER_FUNCTIONS] 25 | 26 | [WMICLASSDESC] 27 | procedure Get[WMICLASSNAME]Info; 28 | const 29 | WbemUser =''; 30 | WbemPassword =''; 31 | WbemComputer ='localhost'; 32 | var 33 | FSWbemLocator: OLEVariant; 34 | FWMIService: OLEVariant; 35 | FWbemObject: Variant; 36 | sValue: string; 37 | begin; 38 | FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); 39 | FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword); 40 | FWbemObject := FWMIService.Get('[WMICLASSNAME]=@'); 41 | [DELPHICODE] 42 | end; 43 | 44 | 45 | begin 46 | try 47 | Get[WMICLASSNAME]Info; 48 | except 49 | on E:EOleException do 50 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 51 | on E:Exception do 52 | Writeln(E.Classname, ':', E.Message); 53 | end; 54 | Writeln('Press Enter to exit'); 55 | Readln; 56 | end. -------------------------------------------------------------------------------- /Templates/TemplateConsoleAppOxygen.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | namespace GetWMI_Info; 15 | interface 16 | uses 17 | System, 18 | System.Management, 19 | System.Text; 20 | 21 | type 22 | ConsoleApp = class 23 | private 24 | class method Get[WMICLASSNAME]Info; 25 | public 26 | class method Main; 27 | end; 28 | 29 | implementation 30 | 31 | class method ConsoleApp.Main; 32 | begin 33 | try 34 | Get[WMICLASSNAME]Info; 35 | except on E: Exception do 36 | Console.WriteLine(String.Format('{0} Trace {1}', E.Message, E.StackTrace)); 37 | end; 38 | Console.WriteLine('Press Enter to exit'); 39 | Console.Read(); 40 | end; 41 | 42 | [WMICLASSDESC] 43 | class method ConsoleApp.Get[WMICLASSNAME]Info; 44 | const 45 | sComputerName = 'localhost'; 46 | var 47 | Searcher: ManagementObjectSearcher; 48 | Scope: ManagementScope; 49 | Conn: ConnectionOptions; 50 | Query: ObjectQuery; 51 | begin 52 | Conn := new ConnectionOptions(); 53 | if sComputerName<>'localhost' then 54 | begin 55 | Conn.Username := ''; 56 | Conn.Password := ''; 57 | Conn.Authority := 'ntlmdomain:DOMAIN'; 58 | Scope := New ManagementScope(String.Format('\\{0}\[WMINAMESPACE]',sComputerName), Conn); 59 | end 60 | else 61 | Scope := New ManagementScope(String.Format('\\{0}\[WMINAMESPACE]',sComputerName), nil); 62 | 63 | Scope.Connect(); 64 | Query := New ObjectQuery('SELECT * FROM [WMICLASSNAME]'); 65 | Searcher := new ManagementObjectSearcher(Scope, Query); 66 | for WmiObject: ManagementObject in Searcher.Get() do 67 | begin 68 | [OXYGENECODE] 69 | Console.WriteLine(''); 70 | end; 71 | end; 72 | end. 73 | 74 | -------------------------------------------------------------------------------- /Templates/TemplateEventsCSharp.cs: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2021 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | using System; 15 | using System.Collections.Generic; 16 | using System.Management; 17 | using System.Text; 18 | 19 | 20 | namespace GetWMI_Info 21 | { 22 | public class EventWatcherAsync 23 | { 24 | private void WmiEventHandler(object sender, EventArrivedEventArgs e) 25 | { 26 | [CSHARPEVENTSOUT] 27 | } 28 | 29 | public EventWatcherAsync() 30 | { 31 | try 32 | { 33 | string ComputerName = "localhost"; 34 | string WmiQuery; 35 | ManagementEventWatcher Watcher; 36 | ManagementScope Scope; 37 | 38 | 39 | if (!ComputerName.Equals("localhost", StringComparison.OrdinalIgnoreCase)) 40 | { 41 | ConnectionOptions Conn = new ConnectionOptions(); 42 | Conn.Username = ""; 43 | Conn.Password = ""; 44 | Conn.Authority = "ntlmdomain:DOMAIN"; 45 | Scope = new ManagementScope(String.Format("\\\\{0}\\[WMINAMESPACE]", ComputerName), Conn); 46 | } 47 | else 48 | Scope = new ManagementScope(String.Format("\\\\{0}\\[WMINAMESPACE]", ComputerName), null); 49 | Scope.Connect(); 50 | 51 | [CSHARPEVENTSWQL] 52 | Watcher = new ManagementEventWatcher(Scope, new EventQuery(WmiQuery)); 53 | Watcher.EventArrived += new EventArrivedEventHandler(this.WmiEventHandler); 54 | Watcher.Start(); 55 | Console.Read(); 56 | Watcher.Stop(); 57 | } 58 | catch (Exception e) 59 | { 60 | Console.WriteLine("Exception {0} Trace {1}", e.Message, e.StackTrace); 61 | } 62 | 63 | } 64 | 65 | public static void Main(string[] args) 66 | { 67 | Console.WriteLine("Listening {0}", "[WMICLASSNAME]"); 68 | Console.WriteLine("Press Enter to exit"); 69 | EventWatcherAsync eventWatcher = new EventWatcherAsync(); 70 | Console.Read(); 71 | } 72 | } 73 | } 74 | 75 | -------------------------------------------------------------------------------- /Templates/TemplateEventsOxygen.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | namespace GetWMI_Info; 15 | 16 | interface 17 | 18 | uses 19 | System.Management; 20 | 21 | type 22 | ConsoleApp = class 23 | public 24 | class method Main(args: array of string); 25 | class method WmiEventHandler(sender: System.Object; e: EventArrivedEventArgs); 26 | end; 27 | 28 | implementation 29 | 30 | 31 | class method ConsoleApp.WmiEventHandler(sender: System.Object; e: EventArrivedEventArgs); 32 | begin 33 | [OXYGENEVENTSOUT] 34 | end; 35 | 36 | 37 | class method ConsoleApp.Main(args: array of string); 38 | const 39 | sComputerName = 'localhost'; 40 | var 41 | WmiQuery: String; 42 | Conn: ConnectionOptions; 43 | Scope: System.Management.ManagementScope; 44 | Watcher: ManagementEventWatcher; 45 | begin 46 | Console.WriteLine('Listening Wmi Event - Press enter to exit'); 47 | try 48 | 49 | Conn := new ConnectionOptions(); 50 | if sComputerName<>'localhost' then 51 | begin 52 | Conn.Username := ''; 53 | Conn.Password := ''; 54 | Conn.Authority := 'ntlmdomain:DOMAIN'; 55 | Scope := New ManagementScope(String.Format('\\{0}\[WMINAMESPACE]',sComputerName), Conn); 56 | end 57 | else 58 | Scope := New ManagementScope(String.Format('\\{0}\[WMINAMESPACE]',sComputerName), nil); 59 | Scope.Connect(); 60 | 61 | [OXYGENEVENTSWQL] 62 | Watcher := new ManagementEventWatcher(Scope, new EventQuery(WmiQuery)); 63 | Watcher.EventArrived += new EventArrivedEventHandler(WmiEventHandler); 64 | Watcher.Start(); 65 | Console.Read(); 66 | Watcher.Stop(); 67 | except on E: Exception do 68 | begin 69 | Console.WriteLine('An error occurred while trying to execute the WMI event: '+E.Message); 70 | Console.WriteLine('Trace '+E.StackTrace ); 71 | Console.Read(); 72 | end; 73 | end; 74 | end; 75 | 76 | end. 77 | -------------------------------------------------------------------------------- /Templates/TemplateHelperFunctions.pas: -------------------------------------------------------------------------------- 1 | 2 | function VarArrayToStr(const vArray: variant): string; 3 | 4 | function _VarToStr(const V: variant): string; 5 | var 6 | Vt: integer; 7 | begin 8 | Vt := VarType(V); 9 | case Vt of 10 | varSmallint, 11 | varInteger: Result := IntToStr(integer(V)); 12 | varSingle, 13 | varDouble, 14 | varCurrency: Result := FloatToStr(Double(V)); 15 | varDate: Result := VarToStr(V); 16 | varOleStr: Result := WideString(V); 17 | varBoolean: Result := VarToStr(V); 18 | varVariant: Result := VarToStr(Variant(V)); 19 | varByte: Result := char(byte(V)); 20 | varString: Result := String(V); 21 | varArray: Result := VarArrayToStr(Variant(V)); 22 | end; 23 | end; 24 | 25 | var 26 | i: integer; 27 | begin 28 | Result := '['; 29 | if (VarType(vArray) and VarArray)=0 then 30 | Result := _VarToStr(vArray) 31 | else 32 | for i := VarArrayLowBound(vArray, 1) to VarArrayHighBound(vArray, 1) do 33 | if i=VarArrayLowBound(vArray, 1) then 34 | Result := Result+_VarToStr(vArray[i]) 35 | else 36 | Result := Result+'|'+_VarToStr(vArray[i]); 37 | 38 | Result:=Result+']'; 39 | end; 40 | 41 | function VarStrNull(const V:OleVariant):string; //avoid problems with null variants 42 | begin 43 | Result:=''; 44 | if not VarIsNull(V) then 45 | begin 46 | if VarIsArray(V) then 47 | Result:=VarArrayToStr(V) 48 | else 49 | Result:=VarToStr(V); 50 | end; 51 | end; 52 | 53 | -------------------------------------------------------------------------------- /Templates/TemplateNonStaticMethodInvokerCSharp.cs: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2021 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | using System; 15 | using System.Collections.Generic; 16 | using System.Management; 17 | using System.Text; 18 | 19 | namespace GetWMI_Info 20 | { 21 | class Program 22 | { 23 | [WMIMETHODDESC] 24 | static void Main(string[] args) 25 | { 26 | try 27 | { 28 | string ComputerName = "localhost"; 29 | ManagementScope Scope; 30 | 31 | if (!ComputerName.Equals("localhost", StringComparison.OrdinalIgnoreCase)) 32 | { 33 | ConnectionOptions Conn = new ConnectionOptions(); 34 | Conn.Username = ""; 35 | Conn.Password = ""; 36 | Conn.Authority = "ntlmdomain:DOMAIN"; 37 | Scope = new ManagementScope(String.Format("\\\\{0}\\[WMINAMESPACE]", ComputerName), Conn); 38 | } 39 | else 40 | Scope = new ManagementScope(String.Format("\\\\{0}\\[WMINAMESPACE]", ComputerName), null); 41 | 42 | Scope.Connect(); 43 | ObjectGetOptions Options = new ObjectGetOptions(); 44 | ManagementPath Path = new ManagementPath("[WMIPATH]"); 45 | ManagementObject ClassInstance= new ManagementObject(Scope, Path, Options); 46 | ManagementBaseObject inParams = ClassInstance.GetMethodParameters("[WMIMETHOD]"); 47 | 48 | [CSHARPCODEINPARAMS] 49 | ManagementBaseObject outParams= ClassInstance.InvokeMethod("[WMIMETHOD]", inParams ,null); 50 | [CSHARPCODEOUTPARAMS] 51 | } 52 | catch (Exception e) 53 | { 54 | Console.WriteLine(String.Format("Exception {0} Trace {1}",e.Message,e.StackTrace)); 55 | } 56 | Console.WriteLine("Press Enter to exit"); 57 | Console.Read(); 58 | } 59 | } 60 | } 61 | 62 | 63 | 64 | 65 | -------------------------------------------------------------------------------- /Templates/TemplateNonStaticMethodInvokerDelphi.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$APPTYPE CONSOLE} 17 | 18 | uses 19 | SysUtils, 20 | ActiveX, 21 | ComObj; 22 | 23 | [HELPER_FUNCTIONS] 24 | 25 | [WMIMETHODDESC] 26 | procedure Invoke_[WMICLASSNAME]_[WMIMETHOD](const WmiPath :string); 27 | const 28 | WbemUser =''; 29 | WbemPassword=''; 30 | WbemComputer='localhost'; 31 | var 32 | FSWbemLocator: OLEVariant; 33 | FWMIService: OLEVariant; 34 | FWbemObjectSet: OLEVariant; 35 | FOutParams: OLEVariant; 36 | begin 37 | FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); 38 | FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword); 39 | FWbemObjectSet:= FWMIService.Get(WmiPath); 40 | [DELPHICODEINPARAMS] 41 | [DELPHICODEOUTPARAMS] 42 | end; 43 | 44 | 45 | begin 46 | try 47 | CoInitialize(nil); 48 | try 49 | Invoke_[WMICLASSNAME]_[WMIMETHOD]('[WMIPATH]'); 50 | finally 51 | CoUninitialize; 52 | end; 53 | except 54 | on E:EOleException do 55 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 56 | on E:Exception do 57 | Writeln(E.Classname, ':', E.Message); 58 | end; 59 | Writeln('Press Enter to exit'); 60 | Readln; 61 | end. -------------------------------------------------------------------------------- /Templates/TemplateNonStaticMethodInvokerDelphi_TLB.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$APPTYPE CONSOLE} 17 | 18 | uses 19 | SysUtils, 20 | WbemScripting_TLB, 21 | Variants, 22 | ActiveX, 23 | ComObj; 24 | 25 | [HELPER_FUNCTIONS] 26 | 27 | [WMIMETHODDESC] 28 | procedure Invoke_[WMICLASSNAME]_[WMIMETHOD](const WmiPath :string); 29 | const 30 | WbemUser =''; 31 | WbemPassword=''; 32 | WbemComputer='localhost'; 33 | var 34 | FSWbemLocator: ISWbemLocator; 35 | FWMIService: ISWbemServices; 36 | FWbemObject: ISWbemObject; 37 | FInParams: ISWbemObject; 38 | FOutParams: ISWbemObject; 39 | varValue: OleVariant; 40 | begin 41 | FSWbemLocator := CoSWbemLocator.Create; 42 | FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword, '', '', 0, nil); 43 | FWbemObject := FWMIService.Get(WmiPath,0,nil); 44 | FInParams := FWbemObject.Methods_.Item('[WMIMETHOD]',0).InParameters.SpawnInstance_(0); 45 | [DELPHICODEINPARAMS] 46 | FOutParams := FWMIService.ExecMethod(WmiPath, '[WMIMETHOD]', FInParams,0 , nil); 47 | [DELPHICODEOUTPARAMS] 48 | end; 49 | 50 | 51 | begin 52 | try 53 | CoInitialize(nil); 54 | try 55 | Invoke_[WMICLASSNAME]_[WMIMETHOD]('[WMIPATH]'); 56 | finally 57 | CoUninitialize; 58 | end; 59 | except 60 | on E:EOleException do 61 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 62 | on E:Exception do 63 | Writeln(E.Classname, ':', E.Message); 64 | end; 65 | Writeln('Press Enter to exit'); 66 | Readln; 67 | end. -------------------------------------------------------------------------------- /Templates/TemplateNonStaticMethodInvokerFPC.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$mode objfpc} {$H+} 17 | 18 | uses 19 | SysUtils, 20 | ActiveX, 21 | ComObj; 22 | 23 | [HELPER_FUNCTIONS] 24 | 25 | [WMIMETHODDESC] 26 | procedure Invoke_[WMICLASSNAME]_[WMIMETHOD](const WmiPath :WideString); 27 | const 28 | WbemUser =''; 29 | WbemPassword=''; 30 | WbemComputer='localhost'; 31 | var 32 | FSWbemLocator: OLEVariant; 33 | FWMIService: OLEVariant; 34 | FWbemObjectSet: OLEVariant; 35 | FOutParams: OLEVariant; 36 | sValue: string; 37 | begin 38 | FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); 39 | FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword); 40 | FWbemObjectSet:= FWMIService.Get(WmiPath); 41 | [DELPHICODEINPARAMS] 42 | [DELPHICODEOUTPARAMS] 43 | end; 44 | 45 | 46 | begin 47 | try 48 | Invoke_[WMICLASSNAME]_[WMIMETHOD]('[WMIPATH]'); 49 | except 50 | on E:EOleException do 51 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 52 | on E:Exception do 53 | Writeln(E.Classname, ':', E.Message); 54 | end; 55 | Writeln('Press Enter to exit'); 56 | Readln; 57 | end. -------------------------------------------------------------------------------- /Templates/TemplateNonStaticMethodInvokerOxygen.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | namespace GetWMI_Info; 15 | interface 16 | uses 17 | System, 18 | System.Management, 19 | System.Text; 20 | 21 | type 22 | ConsoleApp = class 23 | private 24 | class method Invoke_[WMICLASSNAME]_[WMIMETHOD](const WmiPath :string); 25 | public 26 | class method Main; 27 | end; 28 | 29 | implementation 30 | 31 | [WMIMETHODDESC] 32 | class method ConsoleApp.Invoke_[WMICLASSNAME]_[WMIMETHOD](const WmiPath :string); 33 | const 34 | sComputerName = 'localhost'; 35 | var 36 | ClassInstance: ManagementObject; 37 | inParams: ManagementBaseObject; 38 | outParams: ManagementBaseObject; 39 | Scope: ManagementScope; 40 | Conn: ConnectionOptions; 41 | Path: ManagementPath; 42 | Options: ObjectGetOptions; 43 | begin 44 | Conn := new ConnectionOptions(); 45 | if sComputerName<>'localhost' then 46 | begin 47 | Conn.Username := ''; 48 | Conn.Password := ''; 49 | Conn.Authority := 'ntlmdomain:DOMAIN'; 50 | Scope := New ManagementScope(String.Format('\\{0}\[WMINAMESPACE]',sComputerName), Conn); 51 | end 52 | else 53 | Scope := New ManagementScope(String.Format('\\{0}\[WMINAMESPACE]',sComputerName), nil); 54 | scope.Connect(); 55 | 56 | Options := New ObjectGetOptions(); 57 | Path := New ManagementPath(WmiPath); 58 | ClassInstance := new ManagementObject(scope, Path, Options); 59 | inParams := classInstance.GetMethodParameters('[WMIMETHOD]'); 60 | [DELPHICODEINPARAMS] 61 | outParams := classInstance.InvokeMethod('[WMIMETHOD]', inParams ,nil); 62 | [DELPHICODEOUTPARAMS] 63 | end; 64 | 65 | 66 | class method ConsoleApp.Main; 67 | begin 68 | try 69 | Invoke_[WMICLASSNAME]_[WMIMETHOD]('[WMIPATH]'); 70 | except on E: Exception do 71 | Console.WriteLine('An error occurred while trying to execute the WMI method: '+E.ToString()+' Trace '+E.StackTrace ); 72 | end; 73 | Console.WriteLine('Press Enter to exit'); 74 | Console.Read(); 75 | end; 76 | 77 | 78 | end. 79 | 80 | -------------------------------------------------------------------------------- /Templates/TemplateStaticMethodInvokerCSharp.cs: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2021 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | using System; 15 | using System.Collections.Generic; 16 | using System.Management; 17 | using System.Text; 18 | 19 | namespace GetWMI_Info 20 | { 21 | class Program 22 | { 23 | [WMIMETHODDESC] 24 | static void Main(string[] args) 25 | { 26 | try 27 | { 28 | string ComputerName = "localhost"; 29 | ManagementScope Scope; 30 | 31 | if (!ComputerName.Equals("localhost", StringComparison.OrdinalIgnoreCase)) 32 | { 33 | ConnectionOptions Conn = new ConnectionOptions(); 34 | Conn.Username = ""; 35 | Conn.Password = ""; 36 | Conn.Authority = "ntlmdomain:DOMAIN"; 37 | Scope = new ManagementScope(String.Format("\\\\{0}\\[WMINAMESPACE]", ComputerName), Conn); 38 | } 39 | else 40 | Scope = new ManagementScope(String.Format("\\\\{0}\\[WMINAMESPACE]", ComputerName), null); 41 | 42 | Scope.Connect(); 43 | ObjectGetOptions Options = new ObjectGetOptions(); 44 | ManagementPath Path = new ManagementPath("[WMICLASSNAME]"); 45 | ManagementClass ClassInstance= new ManagementClass(Scope, Path, Options); 46 | ManagementBaseObject inParams = ClassInstance.GetMethodParameters("[WMIMETHOD]"); 47 | 48 | [CSHARPCODEINPARAMS] 49 | ManagementBaseObject outParams= ClassInstance.InvokeMethod("[WMIMETHOD]", inParams ,null); 50 | [CSHARPCODEOUTPARAMS] 51 | } 52 | catch (Exception e) 53 | { 54 | Console.WriteLine(String.Format("Exception {0} Trace {1}",e.Message,e.StackTrace)); 55 | } 56 | Console.WriteLine("Press Enter to exit"); 57 | Console.Read(); 58 | } 59 | } 60 | } 61 | 62 | 63 | -------------------------------------------------------------------------------- /Templates/TemplateStaticMethodInvokerDelphi.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$APPTYPE CONSOLE} 17 | 18 | uses 19 | SysUtils, 20 | ActiveX, 21 | ComObj; 22 | 23 | [HELPER_FUNCTIONS] 24 | 25 | [WMIMETHODDESC] 26 | procedure Invoke_[WMICLASSNAME]_[WMIMETHOD]; 27 | const 28 | WbemUser =''; 29 | WbemPassword =''; 30 | WbemComputer ='localhost'; 31 | var 32 | FSWbemLocator: OLEVariant; 33 | FWMIService: OLEVariant; 34 | FWbemObjectSet: OLEVariant; 35 | FInParams: OLEVariant; 36 | FOutParams: OLEVariant; 37 | begin 38 | FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); 39 | FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword); 40 | FWbemObjectSet:= FWMIService.Get('[WMICLASSNAME]'); 41 | FInParams := FWbemObjectSet.Methods_.Item('[WMIMETHOD]').InParameters.SpawnInstance_(); 42 | [DELPHICODEINPARAMS] 43 | FOutParams := FWMIService.ExecMethod('[WMICLASSNAME]', '[WMIMETHOD]', FInParams); 44 | [DELPHICODEOUTPARAMS] 45 | end; 46 | 47 | 48 | begin 49 | try 50 | CoInitialize(nil); 51 | try 52 | Invoke_[WMICLASSNAME]_[WMIMETHOD]; 53 | finally 54 | CoUninitialize; 55 | end; 56 | except 57 | on E:EOleException do 58 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 59 | on E:Exception do 60 | Writeln(E.Classname, ':', E.Message); 61 | end; 62 | Writeln('Press Enter to exit'); 63 | Readln; 64 | end. -------------------------------------------------------------------------------- /Templates/TemplateStaticMethodInvokerDelphi_TLB.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$APPTYPE CONSOLE} 17 | 18 | uses 19 | SysUtils, 20 | WbemScripting_TLB, 21 | Variants, 22 | ActiveX, 23 | ComObj; 24 | 25 | [HELPER_FUNCTIONS] 26 | 27 | [WMIMETHODDESC] 28 | procedure Invoke_[WMICLASSNAME]_[WMIMETHOD]; 29 | const 30 | WbemUser =''; 31 | WbemPassword=''; 32 | WbemComputer='localhost'; 33 | var 34 | FSWbemLocator: ISWbemLocator; 35 | FWMIService: ISWbemServices; 36 | FWbemObject: ISWbemObject; 37 | FInParams: ISWbemObject; 38 | FOutParams: ISWbemObject; 39 | varValue: OleVariant; 40 | begin 41 | FSWbemLocator := CoSWbemLocator.Create; 42 | FWMIService := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword, '', '', 0, nil); 43 | FWbemObject := FWMIService.Get('[WMICLASSNAME]',0,nil); 44 | FInParams := FWbemObject.Methods_.Item('[WMIMETHOD]',0).InParameters.SpawnInstance_(0); 45 | [DELPHICODEINPARAMS] 46 | FOutParams := FWMIService.ExecMethod('[WMICLASSNAME]', '[WMIMETHOD]', FInParams,0 , nil); 47 | [DELPHICODEOUTPARAMS] 48 | end; 49 | 50 | 51 | begin 52 | try 53 | CoInitialize(nil); 54 | try 55 | Invoke_[WMICLASSNAME]_[WMIMETHOD]; 56 | finally 57 | CoUninitialize; 58 | end; 59 | except 60 | on E:EOleException do 61 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 62 | on E:Exception do 63 | Writeln(E.Classname, ':', E.Message); 64 | end; 65 | Writeln('Press Enter to exit'); 66 | Readln; 67 | end. -------------------------------------------------------------------------------- /Templates/TemplateStaticMethodInvokerFPC.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | program GetWMI_Info; 15 | 16 | {$mode objfpc} {$H+} 17 | 18 | uses 19 | SysUtils, 20 | ActiveX, 21 | ComObj; 22 | 23 | [HELPER_FUNCTIONS] 24 | 25 | [WMIMETHODDESC] 26 | procedure Invoke_[WMICLASSNAME]_[WMIMETHOD]; 27 | const 28 | WbemUser =''; 29 | WbemPassword =''; 30 | WbemComputer ='localhost'; 31 | var 32 | FSWbemLocator: OLEVariant; 33 | FWMIService: OLEVariant; 34 | FWbemObjectSet: OLEVariant; 35 | FInParams: OLEVariant; 36 | FOutParams: OLEVariant; 37 | sValue: string; 38 | begin 39 | FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); 40 | FWMIService := FSWbemLocator.ConnectServer(WbemPassword, '[WMINAMESPACE]', WbemUser, WbemPassword); 41 | FWbemObjectSet:= FWMIService.Get('[WMICLASSNAME]'); 42 | FInParams := FWbemObjectSet.Methods_.Item('[WMIMETHOD]').InParameters.SpawnInstance_(); 43 | [DELPHICODEINPARAMS] 44 | FOutParams := FWMIService.ExecMethod('[WMICLASSNAME]', '[WMIMETHOD]', FInParams); 45 | [DELPHICODEOUTPARAMS] 46 | end; 47 | 48 | 49 | begin 50 | try 51 | Invoke_[WMICLASSNAME]_[WMIMETHOD]; 52 | except 53 | on E:EOleException do 54 | Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 55 | on E:Exception do 56 | Writeln(E.Classname, ':', E.Message); 57 | end; 58 | Writeln('Press Enter to exit'); 59 | Readln; 60 | end. -------------------------------------------------------------------------------- /Templates/TemplateStaticMethodInvokerOxygen.pas: -------------------------------------------------------------------------------- 1 | //----------------------------------------------------------------------------------------------------- 2 | // This code was generated by the Wmi Delphi Code Creator (WDCC) Version [VERSIONAPP] 3 | // https://github.com/RRUZ/wmi-delphi-code-creator 4 | // Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/ 5 | // Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2023 6 | //----------------------------------------------------------------------------------------------------- 7 | // 8 | // LIABILITY DISCLAIMER 9 | // THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED. 10 | // YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS, 11 | // DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE. 12 | // 13 | //---------------------------------------------------------------------------------------------------- 14 | namespace GetWMI_Info; 15 | interface 16 | uses 17 | System, 18 | System.Management, 19 | System.Text; 20 | 21 | type 22 | ConsoleApp = class 23 | private 24 | class method Invoke_[WMICLASSNAME]_[WMIMETHOD]; 25 | public 26 | class method Main; 27 | end; 28 | 29 | implementation 30 | 31 | [WMIMETHODDESC] 32 | class method ConsoleApp.Invoke_[WMICLASSNAME]_[WMIMETHOD]; 33 | const 34 | sComputerName = 'localhost'; 35 | var 36 | ClassInstance: ManagementClass; 37 | inParams: ManagementBaseObject; 38 | outParams: ManagementBaseObject; 39 | Scope: ManagementScope; 40 | Conn: ConnectionOptions; 41 | Path: ManagementPath; 42 | Options: ObjectGetOptions; 43 | begin 44 | Conn := new ConnectionOptions(); 45 | if sComputerName<>'localhost' then 46 | begin 47 | Conn.Username := ''; 48 | Conn.Password := ''; 49 | Conn.Authority := 'ntlmdomain:DOMAIN'; 50 | Scope := New ManagementScope(String.Format('\\{0}\[WMINAMESPACE]',sComputerName), Conn); 51 | end 52 | else 53 | Scope := New ManagementScope(String.Format('\\{0}\[WMINAMESPACE]',sComputerName), nil); 54 | Scope.Connect(); 55 | 56 | Options := New ObjectGetOptions(); 57 | Path := New ManagementPath('[WMICLASSNAME]'); 58 | ClassInstance := New ManagementClass(scope, Path, Options); 59 | inParams := classInstance.GetMethodParameters('[WMIMETHOD]'); 60 | [DELPHICODEINPARAMS] 61 | outParams := classInstance.InvokeMethod('[WMIMETHOD]', inParams ,nil); 62 | [DELPHICODEOUTPARAMS] 63 | end; 64 | 65 | 66 | class method ConsoleApp.Main; 67 | begin 68 | try 69 | Invoke_[WMICLASSNAME]_[WMIMETHOD]; 70 | except on E: Exception do 71 | begin 72 | Console.WriteLine('An error occurred while trying to execute the WMI method: '+E.ToString()); 73 | Console.WriteLine('Trace '+E.StackTrace); 74 | end; 75 | end; 76 | Console.WriteLine('Press Enter to exit'); 77 | Console.Read(); 78 | end; 79 | 80 | 81 | end. 82 | 83 | -------------------------------------------------------------------------------- /Templates/Template_BorlandCpp.cpp: -------------------------------------------------------------------------------- 1 | // Syntax Highlighting 2 | void __fastcall TForm1::Button1Click(TObject *Sender) 3 | { 4 | int number = 123456; 5 | char c = 'a'; 6 | Caption = "The number is " + IntToStr(i); 7 | for (int i = 0; i <= number; i++) 8 | { 9 | x -= 0xff; 10 | x -= 023; 11 | x += 1.0; 12 | x += @; /* illegal character */ 13 | } 14 | #ifdef USE_ASM 15 | asm 16 | { 17 | ASM MOV AX, 0x1234 18 | ASM MOV i, AX 19 | } 20 | #endif 21 | } -------------------------------------------------------------------------------- /Templates/Template_Csharp.cs: -------------------------------------------------------------------------------- 1 | using System; 2 | using System.Collections.Generic; 3 | using System.Management; 4 | using System.Text; 5 | 6 | namespace GetWMI_Info 7 | { 8 | class Program 9 | { 10 | static void Main(string[] args) 11 | { 12 | try 13 | { 14 | string ComputerName = "localhost"; 15 | ManagementScope Scope; 16 | 17 | if (!ComputerName.Equals("localhost", StringComparison.OrdinalIgnoreCase)) 18 | { 19 | ConnectionOptions Conn = new ConnectionOptions(); 20 | Conn.Username = ""; 21 | Conn.Password = ""; 22 | Conn.Authority = "ntlmdomain:DOMAIN"; 23 | Scope = new ManagementScope(String.Format("\\\\{0}\\root\\CIMV2", ComputerName), Conn); 24 | } 25 | else 26 | Scope = new ManagementScope(String.Format("\\\\{0}\\root\\CIMV2", ComputerName), null); 27 | 28 | Scope.Connect(); 29 | ObjectQuery Query = new ObjectQuery("SELECT * FROM Win32_DiskDrive"); 30 | ManagementObjectSearcher Searcher = new ManagementObjectSearcher(Scope, Query); 31 | 32 | foreach (ManagementObject WmiObject in Searcher.Get()) 33 | { 34 | Console.WriteLine("{0,-35} {1,-40}","Name",WmiObject["Name"]);// String 35 | 36 | } 37 | } 38 | catch (Exception e) 39 | { 40 | Console.WriteLine(String.Format("Exception {0} Trace {1}",e.Message,e.StackTrace)); 41 | } 42 | Console.WriteLine("Press Enter to exit"); 43 | Console.Read(); 44 | } 45 | } 46 | } 47 | -------------------------------------------------------------------------------- /Templates/Template_Delphi.pas: -------------------------------------------------------------------------------- 1 | { Syntax highlighting } 2 | procedure TForm1.Button1Click(Sender: TObject); 3 | var 4 | Number, I, X: Integer; 5 | begin 6 | Number := 123 + $FF + Trunc(12.3); 7 | Caption := 'The Number is' + #32 + IntToStr(Number); 8 | {Search Match, Text Block} 9 | { Invalid breakpoint } 10 | for I := 0 to Number do {execution point} 11 | begin 12 | Inc(X); { Enabled breakpoint } 13 | Dec(X); { Disabled breakpoint } 14 | X := X + 1.0; {Error Line} 15 | Listbox1.Items.Add(IntToStr(X)); 16 | end; 17 | {$R+} 18 | asm 19 | mov AX, 1234H 20 | mov Number, AX 21 | end; 22 | {$R-} 23 | {$WARNINGS OFF} 24 | end; 25 | -------------------------------------------------------------------------------- /Templates/Template_FPC.pas: -------------------------------------------------------------------------------- 1 | { Syntax highlighting } 2 | procedure TForm1.Button1Click(Sender: TObject); 3 | var 4 | Number, I, X: Integer; 5 | begin 6 | Number := 123 + $FF + Trunc(12.3); 7 | Caption := 'The Number is' + #32 + IntToStr(Number); 8 | {Search Match, Text Block} 9 | { Invalid breakpoint } 10 | for I := 0 to Number do {execution point} 11 | begin 12 | Inc(X); { Enabled breakpoint } 13 | Dec(X); { Disabled breakpoint } 14 | X := X + 1.0; {Error Line} 15 | Listbox1.Items.Add(IntToStr(X)); 16 | end; 17 | {$R+} 18 | asm 19 | mov AX, 1234H 20 | mov Number, AX 21 | end; 22 | {$R-} 23 | {$WARNINGS OFF} 24 | end; 25 | -------------------------------------------------------------------------------- /Templates/Template_Oxygen.pas: -------------------------------------------------------------------------------- 1 | namespace GenericMethodTest; 2 | 3 | interface 4 | 5 | type 6 | GenericMethodTest = static class 7 | public 8 | class method Main; 9 | private 10 | class method Swap(var left, right: T); 11 | class method DoSwap(left, right: T); 12 | end; 13 | 14 | implementation 15 | 16 | class method GenericMethodTest.DoSwap(left, right: T); 17 | begin 18 | var a := left; 19 | var b := right; 20 | Console.WriteLine('Type: {0}', typeof(T)); 21 | Console.WriteLine('-> a = {0}, b = {1}', a , b); 22 | Swap(var a, var b); 23 | Console.WriteLine('-> a = {0}, b = {1}', a , b); 24 | end; 25 | 26 | class method GenericMethodTest.Main; 27 | begin 28 | var a := 23;// type inference 29 | var b := 15; 30 | DoSwap(a, b); // no downcasting to Object in this method. 31 | 32 | var aa := 'abc';// type inference 33 | var bb := 'def'; 34 | DoSwap(aa, bb); // no downcasting to Object in this method. 35 | 36 | DoSwap(1.1, 1.2); // type inference for generic parameters 37 | Console.ReadLine(); 38 | end; 39 | 40 | class method GenericMethodTest.Swap(var left, right: T); 41 | begin 42 | var temp := left; 43 | left:= right; 44 | right := temp; 45 | end; 46 | 47 | end. -------------------------------------------------------------------------------- /Templates/Templates.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | TemplateConsoleAppDelphi_TLB.pas 5 | TemplateConsoleAppDelphiSingleton_TLB.pas 6 | TemplateStaticMethodInvokerDelphi_TLB.pas 7 | TemplateNonStaticMethodInvokerDelphi_TLB.pas 8 | TemplateEventsDelphi.pas 9 | 10 | 11 | TemplateConsoleAppDelphi.pas 12 | TemplateConsoleAppDelphiSingleton.pas 13 | TemplateStaticMethodInvokerDelphi.pas 14 | TemplateNonStaticMethodInvokerDelphi.pas 15 | TemplateEventsDelphiLate.pas 16 | 17 | 18 | TemplateConsoleAppDelphi_COM.pas 19 | TemplateConsoleAppDelphi_COM.pas 20 | TemplateStaticMethodInvokerDelphi_COM.pas 21 | TemplateNonStaticMethodInvokerDelphi_COM.pas 22 | TemplateEventsDelphi_COM.pas 23 | 24 | 25 | TemplateConsoleAppFPC.pas 26 | TemplateConsoleAppFPCSingleton.pas 27 | TemplateStaticMethodInvokerFPC.pas 28 | TemplateNonStaticMethodInvokerFPC.pas 29 | TemplateEventsFPC.pas 30 | 31 | 32 | TemplateConsoleAppOxygen.pas 33 | TemplateConsoleAppOxygen.pas 34 | TemplateStaticMethodInvokerOxygen.pas 35 | TemplateNonStaticMethodInvokerOxygen.pas 36 | TemplateEventsOxygen.pas 37 | 38 | 39 | TemplateConsoleAppBorlandCPP.cpp 40 | TemplateConsoleAppBorlandCPP.cpp 41 | TemplateStaticMethodInvokerBorlandCPP.cpp 42 | TemplateNonStaticMethodInvokerBorlandCPP.cpp 43 | TemplateEventsBorlandCpp.cpp 44 | 45 | 46 | TemplateConsoleAppMicrosoftCPP.cpp 47 | TemplateConsoleAppMicrosoftCPP.cpp 48 | TemplateStaticMethodInvokerMicrosoftCPP.cpp 49 | TemplateNonStaticMethodInvokerMicrosoftCPP.cpp 50 | TemplateEventsMicrosoft.cpp 51 | 52 | 53 | TemplateConsoleAppCSharp.cs 54 | TemplateConsoleAppCSharp.cs 55 | TemplateStaticMethodInvokerCSharp.cs 56 | TemplateNonStaticMethodInvokerCSharp.cs 57 | TemplateEventsCSharp.cs 58 | 59 | -------------------------------------------------------------------------------- /Units/DefaultThemes.RES: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Units/DefaultThemes.RES -------------------------------------------------------------------------------- /Units/Misc/WDCC.ComboBox.pas: -------------------------------------------------------------------------------- 1 | // ************************************************************************************************** 2 | // 3 | // Unit WDCC.ComboBox 4 | // unit for the WMI Delphi Code Creator 5 | // https://github.com/RRUZ/wmi-delphi-code-creator 6 | // 7 | // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); 8 | // you may not use this file except in compliance with the License. You may obtain a copy of the 9 | // License at http://www.mozilla.org/MPL/ 10 | // 11 | // Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF 12 | // ANY KIND, either express or implied. See the License for the specific language governing rights 13 | // and limitations under the License. 14 | // 15 | // The Original Code is WDCC.ComboBox.pas. 16 | // 17 | // The Initial Developer of the Original Code is Rodrigo Ruz V. 18 | // Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2023 Rodrigo Ruz V. 19 | // All Rights Reserved. 20 | // 21 | // ************************************************************************************************** 22 | 23 | unit WDCC.ComboBox; 24 | 25 | interface 26 | 27 | uses 28 | Classes, 29 | StdCtrls; 30 | 31 | type 32 | TComboBox = class(StdCtrls.TComboBox) 33 | private 34 | FItemWidth: integer; 35 | FDropDownFixedWidth: integer; 36 | procedure SetDropDownFixedWidth(const Value: integer); 37 | function GetTextWidth(const AValue: string): integer; 38 | protected 39 | procedure DropDown; override; 40 | public 41 | constructor Create(AOwner: TComponent); override; 42 | property ItemWidth: integer Read FItemWidth Write FItemWidth; 43 | published 44 | property DropDownFixedWidth: integer Read FDropDownFixedWidth Write SetDropDownFixedWidth; 45 | end; 46 | 47 | implementation 48 | 49 | uses 50 | Forms, 51 | Messages, 52 | Windows; 53 | 54 | { TComboBox } 55 | 56 | constructor TComboBox.Create(AOwner: TComponent); 57 | begin 58 | inherited Create(AOwner); 59 | end; 60 | 61 | procedure TComboBox.DropDown; 62 | var 63 | LIndex: integer; 64 | begin 65 | inherited DropDown; 66 | ItemWidth := 0; 67 | if (FDropDownFixedWidth > 0) then 68 | Self.Perform(CB_SETDROPPEDWIDTH, FDropDownFixedWidth, 0) 69 | else 70 | begin 71 | for LIndex := 0 to Items.Count - 1 do 72 | if (GetTextWidth(Items[LIndex]) > ItemWidth) then 73 | ItemWidth := GetTextWidth(Items[LIndex]) + 8; 74 | Self.Perform(CB_SETDROPPEDWIDTH, ItemWidth, 0); 75 | end; 76 | end; 77 | 78 | function TComboBox.GetTextWidth(const AValue: string): integer; 79 | begin 80 | Result := TForm(Owner).Canvas.TextWidth(AValue); 81 | end; 82 | 83 | procedure TComboBox.SetDropDownFixedWidth(const Value: integer); 84 | begin 85 | FDropDownFixedWidth := Value; 86 | end; 87 | 88 | end. 89 | -------------------------------------------------------------------------------- /Units/Misc/WDCC.ListView.Helper.pas: -------------------------------------------------------------------------------- 1 | // ************************************************************************************************** 2 | // 3 | // Unit WDCC.ListView.Helper 4 | // unit for the WMI Delphi Code Creator 5 | // https://github.com/RRUZ/wmi-delphi-code-creator 6 | // 7 | // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); 8 | // you may not use this file except in compliance with the License. You may obtain a copy of the 9 | // License at http://www.mozilla.org/MPL/ 10 | // 11 | // Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF 12 | // ANY KIND, either express or implied. See the License for the specific language governing rights 13 | // and limitations under the License. 14 | // 15 | // The Original Code is WDCC.ListView.Helper.pas. 16 | // 17 | // The Initial Developer of the Original Code is Rodrigo Ruz V. 18 | // Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2023 Rodrigo Ruz V. 19 | // All Rights Reserved. 20 | // 21 | // ************************************************************************************************** 22 | 23 | unit WDCC.ListView.Helper; 24 | 25 | interface 26 | 27 | uses 28 | Winapi.CommCtrl, 29 | Vcl.ComCtrls; 30 | 31 | const 32 | LVSCW_AUTOSIZE_BESTFIT = -3; 33 | 34 | procedure AutoResizeColumn(const Column: TListColumn; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT); 35 | procedure AutoResizeColumns(const Columns: array of TListColumn; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT); 36 | procedure AutoResizeListView(const ListView: TListView; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT); 37 | 38 | implementation 39 | 40 | uses 41 | System.Classes, 42 | Winapi.Windows; 43 | 44 | procedure AutoResizeColumn(const Column: TListColumn; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT); 45 | var 46 | LWidth: integer; 47 | begin 48 | case Mode of 49 | LVSCW_AUTOSIZE_BESTFIT: 50 | begin 51 | Column.Width := LVSCW_AUTOSIZE; 52 | LWidth := Column.Width; 53 | Column.Width := LVSCW_AUTOSIZE_USEHEADER; 54 | if LWidth > Column.Width then 55 | Column.Width := LVSCW_AUTOSIZE; 56 | end; 57 | 58 | LVSCW_AUTOSIZE: 59 | Column.Width := LVSCW_AUTOSIZE; 60 | LVSCW_AUTOSIZE_USEHEADER: 61 | Column.Width := LVSCW_AUTOSIZE_USEHEADER; 62 | end; 63 | end; 64 | 65 | procedure AutoResizeColumns(const Columns: array of TListColumn; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT); 66 | var 67 | LIndex: integer; 68 | begin 69 | for LIndex := Low(Columns) to High(Columns) do 70 | AutoResizeColumn(Columns[LIndex], Mode); 71 | end; 72 | 73 | procedure AutoResizeListView(const ListView: TListView; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT); 74 | var 75 | LIndex: integer; 76 | begin 77 | for LIndex := 0 to ListView.Columns.Count - 1 do 78 | AutoResizeColumn(ListView.Columns[LIndex], Mode); 79 | end; 80 | 81 | end. 82 | -------------------------------------------------------------------------------- /Units/WDCC.About.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Units/WDCC.About.pas -------------------------------------------------------------------------------- /Units/WDCC.Borland.Cpp.IDE.pas: -------------------------------------------------------------------------------- 1 | // ************************************************************************************************** 2 | // 3 | // Unit WDCC.Borland.Cpp.IDE 4 | // unit for the WMI Delphi Code Creator 5 | // https://github.com/RRUZ/wmi-delphi-code-creator 6 | // 7 | // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); 8 | // you may not use this file except in compliance with the License. You may obtain a copy of the 9 | // License at http://www.mozilla.org/MPL/ 10 | // 11 | // Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF 12 | // ANY KIND, either express or implied. See the License for the specific language governing rights 13 | // and limitations under the License. 14 | // 15 | // The Original Code is WDCC.Borland.Cpp.IDE.pas. 16 | // 17 | // The Initial Developer of the Original Code is Rodrigo Ruz V. 18 | // Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2023 Rodrigo Ruz V. 19 | // All Rights Reserved. 20 | // 21 | // ************************************************************************************************** 22 | 23 | unit WDCC.Borland.Cpp.IDE; 24 | 25 | interface 26 | 27 | Uses 28 | Classes; 29 | 30 | function CreateBorlandCppiProject(const DestPath, SourcePath: string): boolean; 31 | procedure CompileAndRunBorlandCppCode(Console: TStrings; const CompilerName, ProjectFile: string; Run: boolean = True); 32 | procedure FormatBorlandCppCode(Console, DelphiCode: TStrings; const FormatterPath: string); 33 | 34 | implementation 35 | 36 | uses 37 | SysUtils, 38 | Windows, 39 | ShellApi, 40 | WDCC.Misc; 41 | 42 | procedure FormatBorlandCppCode(Console, DelphiCode: TStrings; const FormatterPath: string); 43 | var 44 | TempFile: string; 45 | begin 46 | Console.Add(''); 47 | if FileExists(FormatterPath) then 48 | begin 49 | TempFile := IncludeTrailingPathDelimiter(GetTempDirectory) + FormatDateTime('hhnnss.zzz', Now) + '.cpp'; 50 | DelphiCode.SaveToFile(TempFile); 51 | CaptureConsoleOutput(Format('"%s" -cpp "%s"', [FormatterPath, TempFile]), Console); 52 | DelphiCode.LoadFromFile(TempFile); 53 | end; 54 | end; 55 | 56 | procedure CompileAndRunBorlandCppCode(Console: TStrings; const CompilerName, ProjectFile: string; Run: boolean = True); 57 | var 58 | ExeFile: string; 59 | begin 60 | Console.Add(''); 61 | // CaptureConsoleOutput(Format('"%s" -B -CC -NSsystem;vcl;Winapi;System.Win "%s"', [CompilerName,ProjectFile]), Console); 62 | CaptureConsoleOutput(Format('"%s" -n"%s" "%s"', 63 | [CompilerName, ExcludeTrailingPathDelimiter(ExtractFilePath(ProjectFile)), ProjectFile]), Console); 64 | if Run then 65 | begin 66 | ExeFile := ChangeFileExt(ProjectFile, '.exe'); 67 | if FileExists(ExeFile) then 68 | ShellExecute(0, nil, PChar(Format('"%s"', [ExeFile])), nil, nil, SW_SHOWNORMAL) 69 | else 70 | MsgWarning(Format('Could not find %s', [ExeFile])); 71 | end; 72 | end; 73 | 74 | function CreateBorlandCppiProject(const DestPath, SourcePath: string): boolean; 75 | begin 76 | Result := CopyDir(IncludeTrailingPathDelimiter(SourcePath) + '*.*', DestPath); 77 | end; 78 | 79 | end. 80 | -------------------------------------------------------------------------------- /Units/WDCC.Delphi.IDE.pas: -------------------------------------------------------------------------------- 1 | // ************************************************************************************************** 2 | // 3 | // Unit WDCC.Delphi.IDE 4 | // unit for the WMI Delphi Code Creator 5 | // https://github.com/RRUZ/wmi-delphi-code-creator 6 | // 7 | // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); 8 | // you may not use this file except in compliance with the License. You may obtain a copy of the 9 | // License at http://www.mozilla.org/MPL/ 10 | // 11 | // Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF 12 | // ANY KIND, either express or implied. See the License for the specific language governing rights 13 | // and limitations under the License. 14 | // 15 | // The Original Code is WDCC.Delphi.IDE.pas. 16 | // 17 | // The Initial Developer of the Original Code is Rodrigo Ruz V. 18 | // Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2023 Rodrigo Ruz V. 19 | // All Rights Reserved. 20 | // 21 | // ************************************************************************************************** 22 | 23 | unit WDCC.Delphi.IDE; 24 | 25 | interface 26 | 27 | Uses 28 | System.Classes; 29 | 30 | function CreateDelphiProject(const DestPath, SourcePath: string): boolean; 31 | procedure CompileAndRunDelphiCode(Console: TStrings; const CompilerName, ProjectFile: string; Run: boolean = True); 32 | procedure FormatDelphiCode(Console, DelphiCode: TStrings; const FormatterPath: string); 33 | 34 | implementation 35 | 36 | uses 37 | System.SysUtils, 38 | WinApi.Windows, 39 | WinApi.ShellApi, 40 | WDCC.Misc; 41 | 42 | procedure CompileAndRunDelphiCode(Console: TStrings; const CompilerName, ProjectFile: string; Run: boolean = True); 43 | var 44 | ExeFile: string; 45 | begin 46 | Console.Add(''); 47 | CaptureConsoleOutput(Format('"%s" -B -CC -NSsystem;vcl;Winapi;System.Win "%s"', [CompilerName, ProjectFile]), 48 | Console); 49 | // CaptureConsoleOutput(Format('"%s" -B -CC "%s"', [CompilerName,ProjectFile]), Console); 50 | if Run then 51 | begin 52 | ExeFile := ChangeFileExt(ProjectFile, '.exe'); 53 | if FileExists(ExeFile) then 54 | ShellExecute(0, nil, PChar(Format('"%s"', [ExeFile])), nil, nil, SW_SHOWNORMAL) 55 | else 56 | MsgWarning(Format('Could not find %s', [ExeFile])); 57 | end; 58 | end; 59 | 60 | procedure FormatDelphiCode(Console, DelphiCode: TStrings; const FormatterPath: string); 61 | var 62 | TempFile: string; 63 | begin 64 | Console.Add(''); 65 | if FileExists(FormatterPath) then 66 | begin 67 | TempFile := IncludeTrailingPathDelimiter(GetTempDirectory) + FormatDateTime('hhnnss.zzz', Now) + '.pas'; 68 | DelphiCode.SaveToFile(TempFile); 69 | CaptureConsoleOutput(Format('"%s" -delphi "%s"', [FormatterPath, TempFile]), Console); 70 | DelphiCode.LoadFromFile(TempFile); 71 | end; 72 | end; 73 | 74 | function CreateDelphiProject(const DestPath, SourcePath: string): boolean; 75 | begin 76 | Result := CopyDir(IncludeTrailingPathDelimiter(SourcePath) + '*.*', DestPath); 77 | end; 78 | 79 | end. 80 | -------------------------------------------------------------------------------- /Units/WDCC.Delphi.Syntax.pas: -------------------------------------------------------------------------------- 1 | // ************************************************************************************************** 2 | // 3 | // Unit WDCC.Delphi.Syntax 4 | // unit for the WMI Delphi Code Creator 5 | // https://github.com/RRUZ/wmi-delphi-code-creator 6 | // 7 | // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); 8 | // you may not use this file except in compliance with the License. You may obtain a copy of the 9 | // License at http://www.mozilla.org/MPL/ 10 | // 11 | // Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF 12 | // ANY KIND, either express or implied. See the License for the specific language governing rights 13 | // and limitations under the License. 14 | // 15 | // The Original Code is WDCC.Delphi.Syntax.pas. 16 | // 17 | // The Initial Developer of the Original Code is Rodrigo Ruz V. 18 | // Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2023 Rodrigo Ruz V. 19 | // All Rights Reserved. 20 | // 21 | // ************************************************************************************************** 22 | 23 | unit WDCC.Delphi.Syntax; 24 | 25 | interface 26 | 27 | function EscapeDelphiReservedWord(const AWord: string): string; 28 | 29 | implementation 30 | 31 | uses 32 | SysUtils; 33 | 34 | const 35 | EscapeChr = '&'; 36 | NumReservedWords = 74; 37 | DelphiReservedWords: array [0 .. NumReservedWords - 1] of string = ('add', 'else', 'initialization', 'program', 38 | 'then', 'and', 'end', 'inline', 'property', 'Object', 'threadvar', 'array', 'except', 'interface', 'raise', 'to', 39 | 'as', 'exports', 'is', 'record', 'try', 'asm', 'file', 'label', 'remove', 'type', 'begin', 'final', 'library', 40 | 'repeat', 'unit', 'case', 'finalization', 'mod', 'resourcestring', 'unsafe', 'class', 'finally', 'nil', 'seled', 41 | 'until', 'const', 'for', 'not', 'set', 'uses', 'constructor', 'function', 'not', 'shl', 'var', 'destructor', 'goto', 42 | 'of', 'shr', 'while', 'dispinterface', 'if', 'or', 'static', 'with', 'div', 'implementation', 'out', 43 | 'strict private', 'xor', 'do', 'in', 'packed', 'strict protected', 'downto', 'inherited', 'procedure', 'string'); 44 | 45 | function EscapeDelphiReservedWord(const AWord: string): string; 46 | var 47 | LIndex: integer; 48 | begin 49 | Result := Trim(AWord); 50 | 51 | for LIndex := 0 to NumReservedWords - 1 do 52 | if CompareText(Result, DelphiReservedWords[LIndex]) = 0 then 53 | begin 54 | // Result:= EscapeChr+Result; 55 | // Result:=Format('{$IFDEF FPC}_%s{$ELSE}&%s{$ENDIF}',[Result,Result]); 56 | Result := Format('{$IFDEF OLD_DELPHI}_%s{$ELSE}&%s{$ENDIF}', [Result, Result]); 57 | break; 58 | end; 59 | end; 60 | 61 | end. 62 | -------------------------------------------------------------------------------- /Units/WDCC.DelphiPrism.Helper.pas: -------------------------------------------------------------------------------- 1 | // ************************************************************************************************** 2 | // 3 | // Unit WDCC.DelphiPrism.Helper 4 | // unit for the WMI Delphi Code Creator 5 | // https://github.com/RRUZ/wmi-delphi-code-creator 6 | // 7 | // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); 8 | // you may not use this file except in compliance with the License. You may obtain a copy of the 9 | // License at http://www.mozilla.org/MPL/ 10 | // 11 | // Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF 12 | // ANY KIND, either express or implied. See the License for the specific language governing rights 13 | // and limitations under the License. 14 | // 15 | // The Original Code is WDCC.DelphiPrism.Helper.pas. 16 | // 17 | // The Initial Developer of the Original Code is Rodrigo Ruz V. 18 | // Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2023 Rodrigo Ruz V. 19 | // All Rights Reserved. 20 | // 21 | // ************************************************************************************************** 22 | 23 | unit WDCC.DelphiPrism.Helper; 24 | 25 | interface 26 | 27 | function CreateOxygeneProject(const FileName, Path, ProjectTemplate: string; var NewFileName: string): boolean; 28 | 29 | implementation 30 | 31 | uses 32 | WDCC.Misc, 33 | SysUtils, 34 | Windows; 35 | 36 | function CreateOxygeneProject(const FileName, Path, ProjectTemplate: string; var NewFileName: string): boolean; 37 | var 38 | PathTemplate: string; 39 | DestFolder: string; 40 | begin 41 | NewFileName := ''; 42 | PathTemplate := ExtractFilePath(ProjectTemplate); 43 | DestFolder := IncludeTrailingPathDelimiter(Path) + FormatDateTime('YYYYMMDDHHNNSS', Now); 44 | ForceDirectories(DestFolder); 45 | Result := CopyDir(IncludeTrailingPathDelimiter(PathTemplate) + '*.*', DestFolder); 46 | if Result then 47 | begin 48 | NewFileName := IncludeTrailingPathDelimiter(DestFolder) + FileName; 49 | Result := CopyFile(PChar(IncludeTrailingPathDelimiter(Path) + FileName), PChar(NewFileName), False); 50 | NewFileName := ExtractFilePath(NewFileName) + 'GetWMI_Info.oxygene'; 51 | end; 52 | end; 53 | 54 | end. 55 | -------------------------------------------------------------------------------- /Units/WDCC.Log.dfm: -------------------------------------------------------------------------------- 1 | object FrmLog: TFrmLog 2 | Left = 631 3 | Top = 226 4 | BorderStyle = bsNone 5 | Caption = 'Log' 6 | ClientHeight = 503 7 | ClientWidth = 859 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | PixelsPerInch = 96 16 | TextHeight = 13 17 | object MemoLog: TMemo 18 | Left = 0 19 | Top = 0 20 | Width = 859 21 | Height = 503 22 | Align = alClient 23 | Color = clBlack 24 | Font.Charset = ANSI_CHARSET 25 | Font.Color = clWhite 26 | Font.Height = -12 27 | Font.Name = 'Consolas' 28 | Font.Style = [] 29 | ParentFont = False 30 | ScrollBars = ssBoth 31 | TabOrder = 0 32 | end 33 | end 34 | -------------------------------------------------------------------------------- /Units/WDCC.Log.pas: -------------------------------------------------------------------------------- 1 | // ************************************************************************************************** 2 | // 3 | // Unit WDCC.Log 4 | // unit for the WMI Delphi Code Creator 5 | // https://github.com/RRUZ/wmi-delphi-code-creator 6 | // 7 | // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); 8 | // you may not use this file except in compliance with the License. You may obtain a copy of the 9 | // License at http://www.mozilla.org/MPL/ 10 | // 11 | // Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF 12 | // ANY KIND, either express or implied. See the License for the specific language governing rights 13 | // and limitations under the License. 14 | // 15 | // The Original Code is WDCC.Log.pas. 16 | // 17 | // The Initial Developer of the Original Code is Rodrigo Ruz V. 18 | // Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2023 Rodrigo Ruz V. 19 | // All Rights Reserved. 20 | // 21 | // ************************************************************************************************** 22 | 23 | unit WDCC.Log; 24 | 25 | interface 26 | 27 | uses 28 | Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 29 | Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; 30 | 31 | type 32 | TFrmLog = class(TForm) 33 | MemoLog: TMemo; 34 | private 35 | { Private declarations } 36 | public 37 | { Public declarations } 38 | end; 39 | 40 | implementation 41 | 42 | {$R *.dfm} 43 | 44 | end. 45 | -------------------------------------------------------------------------------- /Units/WDCC.OnlineResources.dfm: -------------------------------------------------------------------------------- 1 | object FrmOnlineResources: TFrmOnlineResources 2 | Left = 826 3 | Top = 300 4 | Caption = 'Online Resources' 5 | ClientHeight = 300 6 | ClientWidth = 635 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | OnClose = FormClose 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object ListViewURL: TListView 19 | Left = 0 20 | Top = 41 21 | Width = 635 22 | Height = 259 23 | Align = alClient 24 | Columns = < 25 | item 26 | Caption = 'Title' 27 | Width = 200 28 | end 29 | item 30 | Caption = 'URL' 31 | Width = 200 32 | end 33 | item 34 | Caption = 'Description' 35 | Width = 200 36 | end> 37 | HideSelection = False 38 | ReadOnly = True 39 | RowSelect = True 40 | TabOrder = 0 41 | ViewStyle = vsReport 42 | OnDblClick = ListViewURLDblClick 43 | end 44 | object Panel1: TPanel 45 | Left = 0 46 | Top = 0 47 | Width = 635 48 | Height = 41 49 | Align = alTop 50 | TabOrder = 1 51 | object EditSearch: TEdit 52 | Left = 8 53 | Top = 14 54 | Width = 457 55 | Height = 21 56 | TabOrder = 0 57 | OnExit = EditSearchExit 58 | end 59 | object btnSearch: TButton 60 | Left = 471 61 | Top = 14 62 | Width = 75 63 | Height = 21 64 | Caption = 'Search' 65 | TabOrder = 1 66 | OnClick = btnSearchClick 67 | end 68 | end 69 | end 70 | -------------------------------------------------------------------------------- /Units/WDCC.PropValueList.dfm: -------------------------------------------------------------------------------- 1 | object FrmValueList: TFrmValueList 2 | Left = 634 3 | Top = 216 4 | Caption = 'Properties' 5 | ClientHeight = 524 6 | ClientWidth = 360 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | OnClose = FormClose 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object ValueList: TValueListEditor 19 | Left = 0 20 | Top = 0 21 | Width = 360 22 | Height = 524 23 | Align = alClient 24 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goRowSelect, goThumbTracking] 25 | TabOrder = 0 26 | TitleCaptions.Strings = ( 27 | 'Property' 28 | 'Value') 29 | OnDblClick = ValueListDblClick 30 | ColWidths = ( 31 | 150 32 | 204) 33 | RowHeights = ( 34 | 18 35 | 18) 36 | end 37 | end 38 | -------------------------------------------------------------------------------- /Units/WDCC.PropValueList.pas: -------------------------------------------------------------------------------- 1 | // ************************************************************************************************** 2 | // 3 | // Unit WDCC.PropValueList 4 | // unit for the WMI Delphi Code Creator 5 | // https://github.com/RRUZ/wmi-delphi-code-creator 6 | // 7 | // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); 8 | // you may not use this file except in compliance with the License. You may obtain a copy of the 9 | // License at http://www.mozilla.org/MPL/ 10 | // 11 | // Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF 12 | // ANY KIND, either express or implied. See the License for the specific language governing rights 13 | // and limitations under the License. 14 | // 15 | // The Original Code is WDCC.PropValueList.pas. 16 | // 17 | // The Initial Developer of the Original Code is Rodrigo Ruz V. 18 | // Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2023 Rodrigo Ruz V. 19 | // All Rights Reserved. 20 | // 21 | // ************************************************************************************************** 22 | 23 | unit WDCC.PropValueList; 24 | 25 | interface 26 | 27 | uses 28 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 29 | Dialogs, Grids, ValEdit; 30 | 31 | type 32 | TFrmValueList = class(TForm) 33 | ValueList: TValueListEditor; 34 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 35 | procedure ValueListDblClick(Sender: TObject); 36 | private 37 | FWMIProperties: TStrings; 38 | public 39 | property WMIProperties: TStrings Read FWMIProperties Write FWMIProperties; 40 | end; 41 | 42 | implementation 43 | 44 | {$R *.dfm} 45 | 46 | uses 47 | uWmi_Metadata, 48 | WDCC.WMI.PropertyValue; 49 | 50 | procedure TFrmValueList.FormClose(Sender: TObject; var Action: TCloseAction); 51 | begin 52 | Action := caFree; 53 | end; 54 | 55 | procedure TFrmValueList.ValueListDblClick(Sender: TObject); 56 | Var 57 | Key: string; 58 | Index: Integer; 59 | CimType: Integer; 60 | Frm: TFrmWMIPropValue; 61 | begin 62 | if FWMIProperties <> nil then 63 | begin 64 | Key := ValueList.Keys[ValueList.Row]; 65 | Index := FWMIProperties.IndexOf(Key); 66 | CimType := Integer(FWMIProperties.Objects[Index]); 67 | Frm := TFrmWMIPropValue.Create(nil); 68 | Frm.Caption := Format('%s Type %s', [Key, CIMTypeStr(CimType)]); 69 | Frm.MemoValue.Text := ValueList.Values[Key]; 70 | Frm.Show; 71 | end; 72 | end; 73 | 74 | end. 75 | -------------------------------------------------------------------------------- /Units/WDCC.SelectCompilerVersion.dfm: -------------------------------------------------------------------------------- 1 | object FrmSelCompilerVer: TFrmSelCompilerVer 2 | Left = 487 3 | Top = 403 4 | BorderStyle = bsToolWindow 5 | Caption = 'Select compiler' 6 | ClientHeight = 203 7 | ClientWidth = 443 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poScreenCenter 16 | OnActivate = FormActivate 17 | OnCreate = FormCreate 18 | PixelsPerInch = 96 19 | TextHeight = 13 20 | object LabelText: TLabel 21 | Left = 8 22 | Top = 8 23 | Width = 154 24 | Height = 13 25 | Caption = 'Object Pascal compilers installed' 26 | end 27 | object ButtonOk: TButton 28 | Left = 279 29 | Top = 175 30 | Width = 75 31 | Height = 25 32 | Caption = 'OK' 33 | Enabled = False 34 | ModalResult = 1 35 | TabOrder = 0 36 | end 37 | object ButtonCancel: TButton 38 | Left = 360 39 | Top = 175 40 | Width = 75 41 | Height = 25 42 | Caption = 'Cancel' 43 | ModalResult = 2 44 | TabOrder = 1 45 | end 46 | object ListViewIDEs: TListView 47 | Left = 8 48 | Top = 27 49 | Width = 427 50 | Height = 142 51 | Columns = < 52 | item 53 | Caption = 'Version' 54 | Width = 110 55 | end 56 | item 57 | Caption = 'Path' 58 | Width = 200 59 | end 60 | item 61 | Caption = 'Compiler' 62 | Width = 200 63 | end> 64 | HideSelection = False 65 | ReadOnly = True 66 | RowSelect = True 67 | SmallImages = ImageList1 68 | TabOrder = 2 69 | ViewStyle = vsReport 70 | OnDblClick = ListViewIDEsDblClick 71 | OnSelectItem = ListViewIDEsSelectItem 72 | end 73 | object ImageList1: TImageList 74 | Left = 88 75 | Top = 64 76 | end 77 | end 78 | -------------------------------------------------------------------------------- /Units/WDCC.SupportedIDEs.pas: -------------------------------------------------------------------------------- 1 | // ************************************************************************************************** 2 | // 3 | // Unit WDCC.SupportedIDEs 4 | // unit for the Delphi Dev Shell Tools 5 | // https://github.com/RRUZ/wmi-delphi-code-creator 6 | // 7 | // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); 8 | // you may not use this file except in compliance with the License. You may obtain a copy of the 9 | // License at http://www.mozilla.org/MPL/ 10 | // 11 | // Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF 12 | // ANY KIND, either express or implied. See the License for the specific language governing rights 13 | // and limitations under the License. 14 | // 15 | // The Original Code is WDCC.SupportedIDEs.pas. 16 | // 17 | // The Initial Developer of the Original Code is Rodrigo Ruz V. 18 | // Portions created by Rodrigo Ruz V. are Copyright (C) 2013-2019 Rodrigo Ruz V. 19 | // All Rights Reserved. 20 | // 21 | // ************************************************************************************************** 22 | 23 | unit WDCC.SupportedIDEs; 24 | 25 | interface 26 | 27 | type 28 | TSupportedIDEs = (DelphiIDE, LazarusIDE); 29 | 30 | const 31 | ListSupportedIDEs: array [TSupportedIDEs] of string = ('Delphi IDE', 'Lazarus IDE'); 32 | 33 | implementation 34 | 35 | end. 36 | -------------------------------------------------------------------------------- /Units/WDCC.WMI.Classes.Tree.dfm: -------------------------------------------------------------------------------- 1 | object FrmWmiClassTree: TFrmWmiClassTree 2 | Left = 576 3 | Top = 224 4 | BorderStyle = bsNone 5 | Caption = 'Wmi Classes Tree' 6 | ClientHeight = 507 7 | ClientWidth = 534 8 | Color = clBtnFace 9 | Font.Charset = DEFAULT_CHARSET 10 | Font.Color = clWindowText 11 | Font.Height = -11 12 | Font.Name = 'Tahoma' 13 | Font.Style = [] 14 | OldCreateOrder = False 15 | Position = poScreenCenter 16 | OnCreate = FormCreate 17 | OnShow = FormShow 18 | DesignSize = ( 19 | 534 20 | 507) 21 | PixelsPerInch = 96 22 | TextHeight = 13 23 | object Label1: TLabel 24 | Left = 8 25 | Top = 8 26 | Width = 55 27 | Height = 13 28 | Caption = 'Namespace' 29 | end 30 | object LabelStatus: TLabel 31 | Left = 8 32 | Top = 452 33 | Width = 56 34 | Height = 13 35 | Anchors = [akLeft, akBottom] 36 | Caption = 'LabelStatus' 37 | ExplicitTop = 575 38 | end 39 | object CbNamespaces: TComboBox 40 | Left = 8 41 | Top = 27 42 | Width = 313 43 | Height = 21 44 | Style = csDropDownList 45 | TabOrder = 0 46 | OnChange = BtnFillTreeClick 47 | end 48 | object TreeViewClasses: TTreeView 49 | Left = 8 50 | Top = 54 51 | Width = 516 52 | Height = 394 53 | Anchors = [akLeft, akTop, akRight, akBottom] 54 | Indent = 19 55 | ReadOnly = True 56 | RowSelect = True 57 | TabOrder = 1 58 | OnCustomDrawItem = TreeViewClassesCustomDrawItem 59 | end 60 | object BtnFillTree: TButton 61 | Left = 327 62 | Top = 23 63 | Width = 75 64 | Height = 25 65 | Caption = 'Fill Tree' 66 | TabOrder = 2 67 | OnClick = BtnFillTreeClick 68 | end 69 | object ProgressBar1: TProgressBar 70 | Left = 8 71 | Top = 471 72 | Width = 516 73 | Height = 17 74 | Anchors = [akLeft, akRight, akBottom] 75 | TabOrder = 3 76 | end 77 | end 78 | -------------------------------------------------------------------------------- /Units/WDCC.WMI.Classes.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Units/WDCC.WMI.Classes.pas -------------------------------------------------------------------------------- /Units/WDCC.WMI.Info.dfm: -------------------------------------------------------------------------------- 1 | object FrmWMIInfo: TFrmWMIInfo 2 | Left = 326 3 | Top = 122 4 | Caption = 'FrmWMIInfo' 5 | ClientHeight = 637 6 | ClientWidth = 1289 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | OnCreate = FormCreate 15 | OnShow = FormShow 16 | PixelsPerInch = 96 17 | TextHeight = 13 18 | object PageControl1: TPageControl 19 | Left = 0 20 | Top = 0 21 | Width = 1289 22 | Height = 637 23 | ActivePage = TabSheet1 24 | Align = alClient 25 | TabOrder = 0 26 | object TabSheet1: TTabSheet 27 | Caption = 'WMI Info' 28 | object ValueListEditorWMI: TValueListEditor 29 | Left = 0 30 | Top = 0 31 | Width = 1281 32 | Height = 609 33 | Align = alClient 34 | DisplayOptions = [doAutoColResize, doKeyColFixed] 35 | TabOrder = 0 36 | ColWidths = ( 37 | 426 38 | 849) 39 | RowHeights = ( 40 | 18) 41 | end 42 | end 43 | object TabSheet2: TTabSheet 44 | Caption = 'OS Info' 45 | ImageIndex = 1 46 | ExplicitLeft = 0 47 | ExplicitTop = 0 48 | ExplicitWidth = 281 49 | ExplicitHeight = 165 50 | object ValueListEditorOS: TValueListEditor 51 | Left = 0 52 | Top = 0 53 | Width = 1281 54 | Height = 609 55 | Align = alClient 56 | DisplayOptions = [doAutoColResize, doKeyColFixed] 57 | TabOrder = 0 58 | ExplicitWidth = 281 59 | ExplicitHeight = 165 60 | ColWidths = ( 61 | 426 62 | 849) 63 | RowHeights = ( 64 | 18) 65 | end 66 | end 67 | end 68 | end 69 | -------------------------------------------------------------------------------- /Units/WDCC.WMI.PropertyValue.dfm: -------------------------------------------------------------------------------- 1 | object FrmWMIPropValue: TFrmWMIPropValue 2 | Left = 0 3 | Top = 0 4 | Caption = 'WMI property Value' 5 | ClientHeight = 146 6 | ClientWidth = 447 7 | Color = clBtnFace 8 | Font.Charset = DEFAULT_CHARSET 9 | Font.Color = clWindowText 10 | Font.Height = -11 11 | Font.Name = 'Tahoma' 12 | Font.Style = [] 13 | OldCreateOrder = False 14 | Position = poScreenCenter 15 | OnClose = FormClose 16 | OnCreate = FormCreate 17 | PixelsPerInch = 96 18 | TextHeight = 13 19 | object MemoValue: TMemo 20 | Left = 0 21 | Top = 0 22 | Width = 447 23 | Height = 146 24 | Align = alClient 25 | PopupMenu = PopupActionBar1 26 | ScrollBars = ssBoth 27 | TabOrder = 0 28 | end 29 | object PopupActionBar1: TPopupActionBar 30 | Left = 168 31 | Top = 16 32 | end 33 | end 34 | -------------------------------------------------------------------------------- /Units/WDCC.WMI.PropertyValue.pas: -------------------------------------------------------------------------------- 1 | // ************************************************************************************************** 2 | // 3 | // Unit WDCC.WMI.PropertyValue 4 | // unit for the WMI Delphi Code Creator 5 | // https://github.com/RRUZ/wmi-delphi-code-creator 6 | // 7 | // The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); 8 | // you may not use this file except in compliance with the License. You may obtain a copy of the 9 | // License at http://www.mozilla.org/MPL/ 10 | // 11 | // Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF 12 | // ANY KIND, either express or implied. See the License for the specific language governing rights 13 | // and limitations under the License. 14 | // 15 | // The Original Code is WDCC.WMI.PropertyValue.pas. 16 | // 17 | // The Initial Developer of the Original Code is Rodrigo Ruz V. 18 | // Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2023 Rodrigo Ruz V. 19 | // All Rights Reserved. 20 | // 21 | // ************************************************************************************************** 22 | 23 | unit WDCC.WMI.PropertyValue; 24 | 25 | interface 26 | 27 | uses 28 | Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 29 | Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, 30 | Vcl.PlatformDefaultStyleActnCtrls, Vcl.Menus, Vcl.ActnPopup; 31 | 32 | type 33 | TFrmWMIPropValue = class(TForm) 34 | MemoValue: TMemo; 35 | PopupActionBar1: TPopupActionBar; 36 | procedure FormClose(Sender: TObject; var Action: TCloseAction); 37 | procedure FormCreate(Sender: TObject); 38 | private 39 | { Private declarations } 40 | public 41 | { Public declarations } 42 | end; 43 | 44 | implementation 45 | 46 | uses 47 | WDCC.StdActions.PopMenu; 48 | 49 | {$R *.dfm} 50 | 51 | procedure TFrmWMIPropValue.FormClose(Sender: TObject; var Action: TCloseAction); 52 | begin 53 | Action := caFree; 54 | end; 55 | 56 | procedure TFrmWMIPropValue.FormCreate(Sender: TObject); 57 | begin 58 | FillPopupActionBar(PopupActionBar1); 59 | AssignStdActionsPopUpMenu(Self, PopupActionBar1); 60 | end; 61 | 62 | end. 63 | -------------------------------------------------------------------------------- /Units/WDCC.WMI.Tree.pas: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Units/WDCC.WMI.Tree.pas -------------------------------------------------------------------------------- /Units/imgmsgbox.RES: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Units/imgmsgbox.RES -------------------------------------------------------------------------------- /Updater/DownloadInfo.xml: -------------------------------------------------------------------------------- 1 | 2 | -------------------------------------------------------------------------------- /Updater/Updater.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Updater/Updater.exe -------------------------------------------------------------------------------- /Updater/libeay32.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Updater/libeay32.dll -------------------------------------------------------------------------------- /Updater/ssleay32.dll: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/Updater/ssleay32.dll -------------------------------------------------------------------------------- /WDCC.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/WDCC.res -------------------------------------------------------------------------------- /WmiDelphiCodeCreator_Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/WmiDelphiCodeCreator_Icon.ico -------------------------------------------------------------------------------- /WmiDelphiCodeCreator_Icon1.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/WmiDelphiCodeCreator_Icon1.ico -------------------------------------------------------------------------------- /images/AllSmall.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/AllSmall.png -------------------------------------------------------------------------------- /images/BuiltWithRadStudio_s.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/BuiltWithRadStudio_s.png -------------------------------------------------------------------------------- /images/Delphi.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Delphi.png -------------------------------------------------------------------------------- /images/Explorer1.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Explorer1.png -------------------------------------------------------------------------------- /images/Icon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icon.ico -------------------------------------------------------------------------------- /images/Icons/binocular.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/binocular.png -------------------------------------------------------------------------------- /images/Icons/block.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/block.png -------------------------------------------------------------------------------- /images/Icons/cross-button.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/cross-button.png -------------------------------------------------------------------------------- /images/Icons/database--arrow.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/database--arrow.png -------------------------------------------------------------------------------- /images/Icons/database--exclamation.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/database--exclamation.png -------------------------------------------------------------------------------- /images/Icons/database-import.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/database-import.png -------------------------------------------------------------------------------- /images/Icons/database-medium.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/database-medium.png -------------------------------------------------------------------------------- /images/Icons/database-small.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/database-small.png -------------------------------------------------------------------------------- /images/Icons/database-sql.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/database-sql.png -------------------------------------------------------------------------------- /images/Icons/database.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/database.png -------------------------------------------------------------------------------- /images/Icons/gear.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/gear.png -------------------------------------------------------------------------------- /images/Icons/molecule.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/molecule.png -------------------------------------------------------------------------------- /images/Icons/open-share.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/open-share.png -------------------------------------------------------------------------------- /images/Icons/open-share_a.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/open-share_a.png -------------------------------------------------------------------------------- /images/Icons/open-share_b.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/open-share_b.png -------------------------------------------------------------------------------- /images/Icons/server--arrow.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/server--arrow.png -------------------------------------------------------------------------------- /images/Icons/server--exclamation.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/server--exclamation.png -------------------------------------------------------------------------------- /images/Icons/server--minus.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/server--minus.png -------------------------------------------------------------------------------- /images/Icons/server--plus.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/server--plus.png -------------------------------------------------------------------------------- /images/Icons/server-cloud.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/server-cloud.png -------------------------------------------------------------------------------- /images/Icons/server-network.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/server-network.png -------------------------------------------------------------------------------- /images/Icons/server-property.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/server-property.png -------------------------------------------------------------------------------- /images/Icons/server.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/server.png -------------------------------------------------------------------------------- /images/Icons/servers-network.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/servers-network.png -------------------------------------------------------------------------------- /images/Icons/share.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/share.png -------------------------------------------------------------------------------- /images/Icons/ui-tab--minus.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/ui-tab--minus.png -------------------------------------------------------------------------------- /images/Icons/ui-tab--plus.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/ui-tab--plus.png -------------------------------------------------------------------------------- /images/Icons/universal.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Icons/universal.png -------------------------------------------------------------------------------- /images/Logo.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Logo.png -------------------------------------------------------------------------------- /images/Logo_m.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Logo_m.png -------------------------------------------------------------------------------- /images/Logo_ms.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Logo_ms.png -------------------------------------------------------------------------------- /images/Logo_ms24.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Logo_ms24.png -------------------------------------------------------------------------------- /images/Logo_ms8.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Logo_ms8.png -------------------------------------------------------------------------------- /images/MonoDevelop.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/MonoDevelop.png -------------------------------------------------------------------------------- /images/Prism.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/Prism.png -------------------------------------------------------------------------------- /images/VS2010.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/VS2010.png -------------------------------------------------------------------------------- /images/WMDCC_SettingsGUI.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/WMDCC_SettingsGUI.png -------------------------------------------------------------------------------- /images/WMDCC_SettingsSyntaxHigh.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/WMDCC_SettingsSyntaxHigh.png -------------------------------------------------------------------------------- /images/WMIFinder.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/WMIFinder.png -------------------------------------------------------------------------------- /images/WMILinks.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/WMILinks.png -------------------------------------------------------------------------------- /images/WMIOnline.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/WMIOnline.png -------------------------------------------------------------------------------- /images/WMITree.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/WMITree.png -------------------------------------------------------------------------------- /images/WQL.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/WQL.png -------------------------------------------------------------------------------- /images/filter.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/filter.png -------------------------------------------------------------------------------- /images/logo-delphi.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/logo-delphi.png -------------------------------------------------------------------------------- /images/logo_s.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/logo_s.png -------------------------------------------------------------------------------- /images/monodevelop.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/monodevelop.jpg -------------------------------------------------------------------------------- /images/partner_Border.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/partner_Border.png -------------------------------------------------------------------------------- /images/platform.delphi.16.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/platform.delphi.16.png -------------------------------------------------------------------------------- /images/platform.dotnet.16.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/platform.dotnet.16.png -------------------------------------------------------------------------------- /images/vslogo168x95.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/RRUZ/wmi-delphi-code-creator/8589c395d66db321662e2e8e71d72256398afd71/images/vslogo168x95.png -------------------------------------------------------------------------------- /todo.txt: -------------------------------------------------------------------------------- 1 | //TODO 2 | { 3 | Add completion proposal to sql wmi 4 | save common WQL ? 5 | 6 | Add lock option (read only) 7 | 8 | Add metadata resolver (functions) to code 9 | delphi done 10 | fpc done 11 | oxygen 12 | C# 13 | c++ 14 | 15 | Add Arrays support 16 | delphi 17 | fpc 18 | oxygen 19 | C# 20 | C++ 21 | 22 | Add Remote hosts support - working 23 | SQL WMI done 24 | 25 | add splash or run update checks in secondary thread, 26 | 27 | add option to select prefered compiler 28 | add option to select prefered IDE 29 | create relation map between classes , properties and WinApi using 30 | 31 | Add detection of additional compilers 32 | Add option to edit templates 33 | 34 | disable run as admin requirement 35 | Fix disabled icons 36 | 37 | Improve source code 38 | Add automated tests 39 | Store cache x machine - done 40 | Create code based in plugins and interfaces 41 | 42 | plugin handler 43 | } 44 | --------------------------------------------------------------------------------