Developers may often require to collect system info such as computer, processor, devices, networks, etc. for various purposes in your Delphi application. Accessing that information is no longer a tough task. MiTec’s System Information Management Suite is the right choice for easy use in your applications. In this blog post, how to use the TMiTec_SystemInfo component to access system information with the sample application.
Platforms: Windows.
Installation Steps:
- Download the System Information Management Suite trails setup from here.
- Unzip it and navigate to the respective Delphi version in your system e.g C:UsersDownloadsMSICS_TrialRAD21.
- Using Delphi, do a file/open and choose MiTeC_Common_xxx.dpk which is a runtime package containing commonly used routines. Click compile button.
- Open MSICS_xxx_Rtl.dpk (runtime source for all components) and then click on the Compile button.
- Open DesignTime package MSICS_xxx_Dsgn.dpk and then click on the Install button.
- You should see the “MSIC Suite” tab on the component palette.
How to run the Demo app:
- Navigate to the Unzipped System Information Management Suite trails setup folder mentioned in installation steps 2. e.g) C:UsersDownloadsMSICS_TrialDemosDelphi1.
- Open the project Demo in RAD studio 10.4.1 or the existing version. Include the search path of the common folder and C:UsersDownloadsMSICS_TrialRAD21Common and C:UsersDownloadsMSICS_TrialRAD21MSICS compile and Run the application.
- This Demo App shows how to access the system information like Computer, OperatingSystem, CPU, Memory, Storage, USB, Graphics, Monitor, Audio, Network, Printers, etc.
Components used in MSIC Demo App:
- TMiTeC_SystemInfo: This component encapsulates most of MSICS components into one interface. Key properties are shown below. Using those properties we can easily get the respective component properties. e.g consider CPU property has its own properties such as CPU architecture, Brand, CPU count, etc. Using this simple component you can access the entire system information quickly. Alternatively, we can access these components individually.
- TOpenDialog, and TSaveDialog, TButton to open and save the system information to file.
- TTreeView, to poulated the collected system information in a tree view.
Implementation Details:
- An instance is created SI of TMiTeC_SystemInfo. Using SI properties CPU, OS, USB, Printers the respective values were added to the tree node. The below code snippet collect the system information and added to the tree view.
|
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 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 |
procedure TForm1.RefreshData; var i,j: Integer; r,n,c: TTreeNode; di: TDiskInfo; s: string; begin Screen.Cursor:=crHourglass; Tree.Items.BeginUpdate; Update; try Tree.Items.Clear; r:=Tree.Items.AddChild(nil,'Computer'); n:=Tree.Items.AddChild(r,Format('%s - %s',[SI.Machine.MachineName,SI.Machine.User])); c:=Tree.Items.AddChild(n,Format('System: %s',[SI.Machine.Computer])); c:=Tree.Items.AddChild(n,Format('Model: %s',[Trim(Format('%s %s',[Trim(SI.Machine.SMBIOS.SystemManufacturer), Trim(SI.Machine.SMBIOS.SystemModel)]))])); r:=Tree.Items.AddChild(nil,'Operating system'); s:=Format('%s %s',[SI.OS.OSName,SI.OS.OSEdition]); n:=Tree.Items.AddChild(r,s); r:=Tree.Items.AddChild(nil,'CPU'); for i:=0 to SI.CPU.CPUPhysicalCount-1 do begin n:=Tree.Items.AddChild(r,Format('%s %s - %d MHz',[cVendorNames[SI.CPU.Vendor].Prefix,SI.CPU.CPUName,SI.CPU.Frequency])); with SI.CPU.Cache do c:=Tree.Items.AddChild(n,Format('Cache: %d x %d KB L1 + %d x %d KB L2 + %d x %d KB L3', [Level1.Code.SharedWays,Level1.Code.Size+Level1.Data.Size,Level2.SharedWays,Level2.Size,Level3.SharedWays,Level3.Size])); c:=Tree.Items.AddChild(n,Format('Core number: %d',[SI.CPU.CoreCount])); c:=Tree.Items.AddChild(n,Format('Thread number: %d',[SI.CPU.ThreadCount])); c:=Tree.Items.AddChild(n,Format('Instructions: %s',[SI.CPU.Features.Instructions])); end; r:=Tree.Items.AddChild(nil,'Memory'); n:=Tree.Items.AddChild(r,Format('%d MB',[SI.Memory.PhysicalTotal shr 20])); r:=Tree.Items.AddChild(nil,'Storage'); for i:=0 to SI.Storage.PhysicalCount-1 do begin n:=Tree.Items.AddChild(r,Format('%s - %d MB',[SI.Storage.Physical[i].Model,SI.Storage.Physical[i].Size shr 20])); for j:=0 to SI.Storage.LogicalCount-1 do if SI.Storage.Logical[j].PhysicalIndex=i then begin di:=GetDiskInfo(SI.Storage.Logical[j].Drive+':'); c:=Tree.Items.AddChild(n,Format('%s: [%s] - %s (%d MB)',[SI.Storage.Logical[j].Drive,di.Volumelabel,di.FileSystem,di.Capacity shr 20])); end; end; r:=Tree.Items.AddChild(nil,'USB'); for i:=0 to SI.USB.USBNodeCount-1 do begin if (SI.USB.USBNodes[i].USBDevice.ConnectionStatus=1) and not(SI.USB.USBNodes[i].USBClass in [usbHostController,usbHub,usbExternalHub]) then begin n:=Tree.Items.AddChild(r,Trim(Format('%s %s (%d.%d) - %s (Port %d)',[SI.USB.USBNodes[i].USBDevice.Manufacturer, SI.USB.USBNodes[i].USBDevice.Product, SI.USB.USBNodes[i].USBDevice.MajorVersion, SI.USB.USBNodes[i].USBDevice.MinorVersion, ClassNames[Integer(SI.USB.USBNodes[i].USBClass)], SI.USB.USBNodes[i].USBDevice.Port]))); end; end; r:=Tree.Items.AddChild(nil,'Graphics'); for i:=0 to SI.Display.AdapterCount-1 do begin n:=Tree.Items.AddChild(r,Format('%s - %d MB',[SI.Display.Adapter[i].Name,SI.Display.Adapter[i].Memory shr 20])); end; r:=Tree.Items.AddChild(nil,'Monitor'); for i:=0 to SI.Monitor.Count-1 do begin s:=SI.Monitor.Monitors[i].EDID.Name; if s='' then s:=SI.Monitor.Monitors[i].DeviceDescription; n:=Tree.Items.AddChild(r,Format('%s',[s])); c:=Tree.Items.AddChild(n,Format('(%dx%d)cm',[SI.Monitor.Monitors[i].EDID.Width,SI.Monitor.Monitors[i].EDID.Height])); end; r:=Tree.Items.AddChild(nil,'Audio'); if SI.Media.SoundCardName<>'' then n:=Tree.Items.AddChild(r,SI.Media.SoundCardName) else with SI.Media do if (WAVEOut.Count>0) then n:=Tree.Items.AddChild(r,WaveOut[0]); r:=Tree.Items.AddChild(nil,'Network'); if SI.Network.TCPIP.AdapterCount>0 then for i:=0 to SI.Network.TCPIP.AdapterCount-1 do begin n:=Tree.Items.AddChild(r,Format('%s - %s (%s)',[SI.Network.TCPIP.Adapter[i].Name,SI.Network.TCPIP.Adapter[i].Address,SI.Network.TCPIP.Adapter[i].IPAddress.CommaText])); end else for i:=0 to SI.Network.PhysicalAdapters.Count-1 do begin n:=Tree.Items.AddChild(r,Format('%s - %s (%s)',[SI.Network.PhysicalAdapters[i],SI.Network.MACAddresses[i],SI.Network.IPAddresses[i]])); end; r:=Tree.Items.AddChild(nil,'Printers'); for i:=0 to SI.Printers.PrinterCount-1 do begin n:=Tree.Items.AddChild(r,Format('%s - %s',[SI.Printers.Driver[i],SI.Printers.Port[i]])); end; Tree.FullExpand; Tree.Items.GetFirstNode.MakeVisible; finally Tree.Items.EndUpdate; Tree.Show; Screen.Cursor:=crdefault; end; end; |
Developers are not required to spend many hours identifying and using the low-level system APIs to collect system information. Use this MiTeC component suite and get the job done quickly.
With the use of a Windows IDE, you can easily access windows system info in your Delphi application with a component suite. Try your Free Trial here.
Reduce development time and get to market faster with RAD Studio, Delphi, or C++Builder.
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
