Easily Browse Your Windows Devices From Your Delphi App With Powerful Components

Sometimes developers want to list down or identify the Devices in a Windows machine programmatically. How do enumerate the devices and resources quickly? Don’t know how to do it? Don’t worry. MiTec’s System Information Management Suite’s component helps to do that effectively, and we will learn how to retrieve devices similar to Windows device manager.

Platforms: Windows.

Installation Steps:

You can easily install this Component Suite from GetIt Package Manager. The steps are as follows.

Navigate In RAD Studio IDE->Tools->GetIt Package Manager->select Components in Categories->Components->Trail -MiTec system Information Component Suite 14.3 and click Install Button.
Read the license and Click Agree All. An Information dialog saying ‘Requires a restart of RAD studio at the end of the process. Do you want to proceed? click yes and continue.
It will download the plugin and installs it. Once installed Click Restart now.

How to run the Demo app:

Navigate to the System Information Management Suite trails setup, Demos folder which is installed during Get It installation e.g) C:UsersDocumentsEmbarcaderoStudio21.0CatalogRepositoryMiTeC-14.3DemosDelphi13
Open the DeviceBrowser project in RAD studio 10.4.1 compile and Run the application.
This Demo App shows how to list down the known windows devices, device resources, enumerate among them and access its properties.

Components used in MSIC DeviceBrowser Demo App:

TMiTeC_Devices Enumerates all known devices and their properties. (It does the same as Windows Device Manager)
2 TTabsheet’s one for viewing Devices list in TTreeView and other for viewing Resources in TListView.
TButton to view the details, resources of the device in a new child form.

Implementation Details:

An instance Devices of TMiTeC_Devices Call RefreshData where list of Windows devices was added to the tree node by a loop through DeviceCount property. A list of resources was added to the listview items from the GetResourceList procedure.

procedure Twnd_db_Main.RefreshData;
var
  i,c,ii: integer;
  r,n: TTreeNode;
  lcn,cn,dn: string;
  pi: PInteger;
  RL: TResourceList;
  ilh: THandle;
  g: TGUID;
begin
  Devices.RefreshData;
  lcn:='';
  with Devices, Tree,Items do begin
    c:=DeviceCount-1;
    BeginUpdate;
    while Count>0 do begin
      if Assigned(Items[Count-1].Data) then
        FreeMem(Items[Count-1].Data);
      Delete(Items[Count-1]);
    end;
    r:=Add(nil,GetMachine);
    r.ImageIndex:=0;
    r.SelectedIndex:=r.ImageIndex;
    n:=nil;
    for i:=0 to c do begin
      if (Trim(Devices[i].ClassDesc)<>'') then
        cn:=Devices[i].ClassDesc
      else
        cn:=Devices[i].ClassName;
      if not Assigned(n) or not SameText(Devices[i].ClassName,lcn) then begin
        lcn:=Devices[i].ClassName;
        n:=AddChild(r,cn);
        g:=Devices[i].ClassGUID;
        SetupDiGetClassImageIndex(spid,g,ii);
        n.ImageIndex:=ii;
        n.SelectedIndex:=n.ImageIndex;
      end;
      dn:=Devices[i].Name;
      with AddChild(n,dn) do begin
        ImageIndex:=n.ImageIndex;
        SelectedIndex:=ImageIndex;
        new(pi);
        pi^:=i;
        Data:=pi;
      end;
      n.AlphaSort;
    end;
    r.AlphaSort;
    r.Expand(False);
    EndUpdate;
  end;


  tsDevRes.TabVisible:=Devices.LiveData;
  bRes.Visible:=Devices.LiveData;
  if Devices.LiveData then
  with Devices, ResList, Items do begin
    GetResourceList(RL);
    BeginUpdate;
    try
      Clear;
      for i:=0 to High(RL) do
        with Add do begin
          Caption:=RL[i].Resource;
          SubItems.Add(ResourceShareStr(RL[i].Share));
          SubItems.Add(RL[i].Device);
          g:=RL[i].DeviceClassGUID;
          SetupDiGetClassImageIndex(spid,g,ii);
          ImageIndex:=ii;
        end;
    finally
      EndUpdate;
    end;
  end;
end;

procedure Twnd_db_Main.RefreshData;

var

i,c,ii: integer;

r,n: TTreeNode;

lcn,cn,dn: string;

pi: PInteger;

RL: TResourceList;

ilh: THandle;

g: TGUID;

begin

Devices.RefreshData;

lcn:='';

with Devices, Tree,Items do begin

c:=DeviceCount-1;

BeginUpdate;

while Count>0 do begin

if Assigned(Items[Count-1].Data) then

FreeMem(Items[Count-1].Data);

Delete(Items[Count-1]);

end;

r:=Add(nil,GetMachine);

r.ImageIndex:=0;

r.SelectedIndex:=r.ImageIndex;

n:=nil;

for i:=0 to c do begin

if (Trim(Devices[i].ClassDesc)<>'') then

cn:=Devices[i].ClassDesc

else

cn:=Devices[i].ClassName;

if not Assigned(n) or not SameText(Devices[i].ClassName,lcn) then begin

lcn:=Devices[i].ClassName;

n:=AddChild(r,cn);

g:=Devices[i].ClassGUID;

SetupDiGetClassImageIndex(spid,g,ii);

n.ImageIndex:=ii;

n.SelectedIndex:=n.ImageIndex;

end;

dn:=Devices[i].Name;

with AddChild(n,dn) do begin

ImageIndex:=n.ImageIndex;

SelectedIndex:=ImageIndex;

new(pi);

pi^:=i;

Data:=pi;

end;

n.AlphaSort;

end;

r.AlphaSort;

r.Expand(False);

EndUpdate;

end;

tsDevRes.TabVisible:=Devices.LiveData;

bRes.Visible:=Devices.LiveData;

if Devices.LiveData then

with Devices, ResList, Items do begin

GetResourceList(RL);

BeginUpdate;

try

Clear;

for i:=0 to High(RL) do

with Add do begin

Caption:=RL[i].Resource;

SubItems.Add(ResourceShareStr(RL[i].Share));

SubItems.Add(RL[i].Device);

g:=RL[i].DeviceClassGUID;

SetupDiGetClassImageIndex(spid,g,ii);

ImageIndex:=ii;

end;

finally

EndUpdate;

end;

devices 5565399 — <strong>MiTeC DeviceBrowser Demo<strong>

On clicking the Properties button for the selected tree node item, its properties such as Class Description, GUID, Manufacturer, Hardware ID etc were displayed in a child form.

procedure Twnd_db_Main.cmProps(Sender: TObject);
var
  dr: TDevice;
  i,ii: integer;
  h: HICON;
  g: TGUID;
begin
  if Assigned(Tree.Selected) and (Tree.Selected.Level=2) then
    with Tdlg_db_Detail.Create(self) do begin
      lv.items.clear;
      i:=PInteger(Tree.Selected.Data)^;
      dr:=Devices.Devices[i];
      g:=dr.ClassGUID;
      SetupDiLoadClassIcon(g,h,ii);
      Icon.Picture.Icon.Handle:=h;
      eName.Text:=dr.Name;
      with lv.Items.Add do begin
        Caption:='Class Name';
        Subitems.Add(dr.ClassName);
        ImageIndex:=-3;
      end;
      with lv.Items.Add do begin
        Caption:='Class Description';
        Subitems.Add(dr.ClassDesc);
      end;
      with lv.Items.Add do begin
        Caption:='Class GUID';
        Subitems.Add(dr.GUID);
      end;
      with lv.Items.Add do begin
        Caption:='Registry Key';
        Subitems.Add(dr.RegKey);
      end;
      with lv.Items.Add do begin
        Caption:='Manufacturer';
        Subitems.Add(dr.Manufacturer);
      end;
      with lv.Items.Add do begin
        Caption:='Hardware ID';
        Subitems.Add(dr.HardwareID);
      end;
      with lv.Items.Add do begin
        Caption:='SymbolicLink';
        Subitems.Add(dr.SymbolicLink);
      end;
      with lv.Items.Add do begin
        Caption:='Location';
        Subitems.Add(Format('%s',[dr.Location]));
      end;
      with lv.Items.Add do begin
        Caption:='PCI Number';
        Subitems.Add(Format('%d',[dr.PCINumber]));
      end;
      with lv.Items.Add do begin
        Caption:='Device Number';
        Subitems.Add(Format('%d',[dr.DeviceNumber]));
      end;
      with lv.Items.Add do begin
        Caption:='Function Number';
        Subitems.Add(Format('%d',[dr.FunctionNumber]));
      end;
      with lv.Items.Add do begin
        Caption:='Vendor ID';
        Subitems.Add(Format('%4.4x',[dr.VendorID]));
      end;
      with lv.Items.Add do begin
        Caption:='Device ID';
        Subitems.Add(Format('%4.4x',[dr.DeviceID]));
      end;
      with lv.Items.Add do begin
        Caption:='SubSystem';
        Subitems.Add(Format('%8.8x',[dr.SubSysID]));
      end;
      with lv.Items.Add do begin
        Caption:='Revision';
        Subitems.Add(Format('%2.2x',[dr.Revision]));
      end;
      with lv.Items.Add do begin
        Caption:='';
        ImageIndex:=-2;
      end;
      with lv.Items.Add do begin
        Caption:='Driver Description';
        SubItems.Add(dr.Driver);
        ImageIndex:=-3;
      end;
      with lv.Items.Add do begin
        Caption:='Driver Version';
        SubItems.Add(dr.DriverVersion);
      end;
      with lv.Items.Add do begin
        Caption:='Driver Date';
        SubItems.Add(dr.DriverDate);
      end;
      with lv.Items.Add do begin
        Caption:='Driver Provider';
        SubItems.Add(dr.DriverProvider);
      end;
      with lv.Items.Add do begin
        Caption:='Driver GUID';
        SubItems.Add(dr.DriverKey);
      end;
      with lv.Items.Add do begin
        Caption:='Image Path';
        SubItems.Add(dr.ImagePath);
      end;
      with lv.Items.Add do begin
        Caption:='';
        ImageIndex:=-2;
      end;
      with lv.Items.Add do begin
        Caption:='Service Name';
        if dr.ServiceName='' then
          SubItems.Add(dr.Service)
        else
          SubItems.Add(dr.ServiceName);
        ImageIndex:=-3;
      end;
      with lv.Items.Add do begin
        Caption:='Service Group';
        SubItems.Add(dr.ServiceGroup);
      end;
      with lv.Items.Add do begin
        Caption:='';
        ImageIndex:=-2;
      end;
      with lv.Items.Add do begin
        Caption:='Install ID';
        SubItems.Add(dr.InstallID);
        ImageIndex:=-3;
      end;
      with lv.Items.Add do begin
        Caption:='Install Date';
        SubItems.Add(DateTimeToStrDef(dr.InstallDate));
      end;
      with lv.Items.Add do begin
        Caption:='First Install Date';
        SubItems.Add(DateTimeToStrDef(dr.FirstInstallDate));
      end;
      with lv.Items.Add do begin
        Caption:='Last Arrival Date';
        SubItems.Add(DateTimeToStrDef(dr.LastArrivalDate));
      end;
      with lv.Items.Add do begin
        Caption:='Last Removal Date';
        SubItems.Add(DateTimeToStrDef(dr.LastRemovalDate));
      end;
      showmodal;
      DestroyIcon(h);
      free;
    end;
end;

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

procedure Twnd_db_Main.cmProps(Sender: TObject);

var

dr: TDevice;

i,ii: integer;

h: HICON;

g: TGUID;

begin

if Assigned(Tree.Selected) and (Tree.Selected.Level=2) then

with Tdlg_db_Detail.Create(self) do begin

lv.items.clear;

i:=PInteger(Tree.Selected.Data)^;

dr:=Devices.Devices[i];

g:=dr.ClassGUID;

SetupDiLoadClassIcon(g,h,ii);

Icon.Picture.Icon.Handle:=h;

eName.Text:=dr.Name;

with lv.Items.Add do begin

Caption:='Class Name';

Subitems.Add(dr.ClassName);

ImageIndex:=-3;

end;

with lv.Items.Add do begin

Caption:='Class Description';

Subitems.Add(dr.ClassDesc);

end;

with lv.Items.Add do begin

Caption:='Class GUID';

Subitems.Add(dr.GUID);

end;

with lv.Items.Add do begin

Caption:='Registry Key';

Subitems.Add(dr.RegKey);

end;

with lv.Items.Add do begin

Caption:='Manufacturer';

Subitems.Add(dr.Manufacturer);

end;

with lv.Items.Add do begin

Caption:='Hardware ID';

Subitems.Add(dr.HardwareID);

end;

with lv.Items.Add do begin

Caption:='SymbolicLink';

Subitems.Add(dr.SymbolicLink);

end;

with lv.Items.Add do begin

Caption:='Location';

Subitems.Add(Format('%s',[dr.Location]));

end;

with lv.Items.Add do begin

Caption:='PCI Number';

Subitems.Add(Format('%d',[dr.PCINumber]));

end;

with lv.Items.Add do begin

Caption:='Device Number';

Subitems.Add(Format('%d',[dr.DeviceNumber]));

end;

with lv.Items.Add do begin

Caption:='Function Number';

Subitems.Add(Format('%d',[dr.FunctionNumber]));

end;

with lv.Items.Add do begin

Caption:='Vendor ID';

Subitems.Add(Format('%4.4x',[dr.VendorID]));

end;

with lv.Items.Add do begin

Caption:='Device ID';

Subitems.Add(Format('%4.4x',[dr.DeviceID]));

end;

with lv.Items.Add do begin

Caption:='SubSystem';

Subitems.Add(Format('%8.8x',[dr.SubSysID]));

end;

with lv.Items.Add do begin

Caption:='Revision';

Subitems.Add(Format('%2.2x',[dr.Revision]));

end;

with lv.Items.Add do begin

Caption:='';

ImageIndex:=-2;

end;

with lv.Items.Add do begin

Caption:='Driver Description';

SubItems.Add(dr.Driver);

ImageIndex:=-3;

end;

with lv.Items.Add do begin

Caption:='Driver Version';

SubItems.Add(dr.DriverVersion);

end;

with lv.Items.Add do begin

Caption:='Driver Date';

SubItems.Add(dr.DriverDate);

end;

with lv.Items.Add do begin

Caption:='Driver Provider';

SubItems.Add(dr.DriverProvider);

end;

with lv.Items.Add do begin

Caption:='Driver GUID';

SubItems.Add(dr.DriverKey);

end;

with lv.Items.Add do begin

Caption:='Image Path';

SubItems.Add(dr.ImagePath);

end;

with lv.Items.Add do begin

Caption:='';

ImageIndex:=-2;

end;

with lv.Items.Add do begin

Caption:='Service Name';

if dr.ServiceName='' then

SubItems.Add(dr.Service)

else

SubItems.Add(dr.ServiceName);

ImageIndex:=-3;

end;

with lv.Items.Add do begin

Caption:='Service Group';

SubItems.Add(dr.ServiceGroup);

end;

with lv.Items.Add do begin

Caption:='';

ImageIndex:=-2;

end;

with lv.Items.Add do begin

Caption:='Install ID';

SubItems.Add(dr.InstallID);

ImageIndex:=-3;

end;

with lv.Items.Add do begin

Caption:='Install Date';

SubItems.Add(DateTimeToStrDef(dr.InstallDate));

end;

with lv.Items.Add do begin

Caption:='First Install Date';

SubItems.Add(DateTimeToStrDef(dr.FirstInstallDate));

end;

with lv.Items.Add do begin

Caption:='Last Arrival Date';

SubItems.Add(DateTimeToStrDef(dr.LastArrivalDate));

end;

with lv.Items.Add do begin

Caption:='Last Removal Date';

SubItems.Add(DateTimeToStrDef(dr.LastRemovalDate));

end;

showmodal;

DestroyIcon(h);

free;

end;

deviceproperties 7284581 — <strong>Device Properties<strong>

Similarly, On Clicking Resources , the selected tree node TDeviceResources properties were shown.

resources details 7713745 — <strong>Resources<strong>

These simple steps is sufficient to retrieve Devices and its properties in your application. Use this MiTeC component suite and get the job done quickly.

Head over and check out the full MiTec System Information Management Suite for Access System Information for Windows in Delphi Applications

With the use of Windows tools for developers, you can easily browse your Windows devices from your Delphi app with various powerful components. 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

Cookie	Duration	Description
cookielawinfo-checkbox-analytics	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Analytics".
cookielawinfo-checkbox-functional	11 months	The cookie is set by GDPR cookie consent to record the user consent for the cookies in the category "Functional".
cookielawinfo-checkbox-necessary	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookies is used to store the user consent for the cookies in the category "Necessary".
cookielawinfo-checkbox-others	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Other.
cookielawinfo-checkbox-performance	11 months	This cookie is set by GDPR Cookie Consent plugin. The cookie is used to store the user consent for the cookies in the category "Performance".
viewed_cookie_policy	11 months	The cookie is set by the GDPR Cookie Consent plugin and is used to store whether or not user has consented to the use of cookies. It does not store any personal data.

Easily Browse Your Windows Devices From Your Delphi App With Powerful Components

Leave a ReplyCancel reply

Search

Something Fresh

What Are The Container Adapters in Modern C++?

Delphi App For Go-Kart Racing Tops Both App Stores!

RAD Studio 12.1 Athens Patch 1 Available

Popular Posts

RAD Studio 12.1 Athens Patch 1 Available

Announcing the Availability of RAD Studio 12.1 Athens

Is Delphi A Memory Safe Language?

GetIt Update: RAD Studio 11 GetIt Online Installation along with Delphi and C++Builder Community Edition Are Now Available

GetIt Update: RAD Studio 12 GetIt Online Installation Is Now Available

Categories

Unknown Feed

Unknown Feed

Categories

Useful Links

Follow us

Easily Browse Your Windows Devices From Your Delphi App With Powerful Components

Leave a ReplyCancel reply

Join Our Global Developer Community

Search

Something Fresh

Popular Posts

Categories

Categories

Useful Links

Follow us