Efficient Way To Build Your Own Windows Process Viewer In Delphi With Excellent Component Suite

Sometimes developers want to list down or identify the process running on a machine programmatically. How do enumerate the running processes and services quickly? Don’t know what to do? Don’t worry. MiTec’s System Information Management Suite’s component helps to do that effectively, and we will learn how to use the threads TSysProcMonThread and TSvcListMonThread to demonstrate the processes and services, respectively.

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 install 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.3DemosDelphi6
Open the PV project in RAD studio 10.4.1 compile and Run the application.
This Demo App shows how to list down the running Process and Services in your machine, enumerate among them and access its properties.

Components used in MSIC PV Demo App:

TSysProcMonThread: Monitors system and provides running processes, CPU, memory and disk monitoring and provides system information.
TSvcListMonThread: Monitors installed services and drivers in real-time and provides their properties.
2 TTabsheet’s one for viewing Process list in TListView and other for viewing Services in TListView .
TButton to view the details of the process or service accordingly in a new child form.

Implementation Details:

An instance SPM of TSysProcMonThread and SLM of TSvcListMonThread were created. And in regular interval of each thread the Process list and service list is refreshed and updated to the screen using the OnInterval Event handlers

On each interval, the Process List( using TProcessRecord ) and Service List (using TServiceRecord) is added to the list view by clearing the existing list.

procedure Twnd_Main.RefreshProcList(Sender: TSysProcMonThread);
var
  i: Integer;
  r: TProcessRecord;
begin
  PrcList.Items.BeginUpdate;
  try
    PrcList.Items.Clear;
    for i:=0 to Sender.RecordCount-1 do begin
      Sender.GetRecord(i,r);
      with PrcList.Items.Add do begin
        Caption:=r.Name;
        if Is64 and (r.Platform<>64) then
          Caption:=Caption+'*32';
        SubItems.Add(Format('%d',[r.PID]));
        SubItems.Add(FormatTicks(r.UserTime+r.KernelTime,False));
        SubItems.Add(Format('%d KB',[r.VMCounters.WorkingSetSize div 1024]));
        SubItems.Add(Format('%s',[r.CommandLine]));
      end;
    end;
    if PrcList.Tag<>0 then
      PrcList.AlphaSort;
  finally
    PrcList.Items.EndUpdate;
  end;
end;

procedure Twnd_Main.RefreshSvcList(Sender: TSvcListMonThread);
var
  i: Integer;
  r: TServiceRecord;
begin
  SvcList.Items.BeginUpdate;
  try
    SvcList.Items.Clear;
    for i:=0 to Sender.RecordCount-1 do begin
      Sender.GetRecord(i,r);
      with SvcList.Items.Add do begin
        Caption:=r.DisplayName;
        if r.Typ=svcUnknown then
          SubItems.Add(Format('%s (%d)',[cSvcType[r.Typ],r._Typ]))
        else
          SubItems.Add(cSvcType[r.Typ]);
        SubItems.Add(cSvcStatus[r.Status]);
        SubItems.Add(cSvcStartup[r.StartUp]);
        SubItems.Add(r.ObjectName);
        SubItems.Add(r.Name);
      end;
    end;
    if SvcList.Tag<>0 then
      SvcList.AlphaSort;
  finally
    SvcList.Items.EndUpdate;
  end;
end;

procedure Twnd_Main.RefreshProcList(Sender: TSysProcMonThread);

var

i: Integer;

r: TProcessRecord;

begin

PrcList.Items.BeginUpdate;

try

PrcList.Items.Clear;

for i:=0 to Sender.RecordCount-1 do begin

Sender.GetRecord(i,r);

with PrcList.Items.Add do begin

Caption:=r.Name;

if Is64 and (r.Platform<>64) then

Caption:=Caption+'*32';

SubItems.Add(Format('%d',[r.PID]));

SubItems.Add(FormatTicks(r.UserTime+r.KernelTime,False));

SubItems.Add(Format('%d KB',[r.VMCounters.WorkingSetSize div 1024]));

SubItems.Add(Format('%s',[r.CommandLine]));

end;

if PrcList.Tag<>0 then

PrcList.AlphaSort;

finally

PrcList.Items.EndUpdate;

end;

procedure Twnd_Main.RefreshSvcList(Sender: TSvcListMonThread);

var

i: Integer;

r: TServiceRecord;

begin

SvcList.Items.BeginUpdate;

try

SvcList.Items.Clear;

for i:=0 to Sender.RecordCount-1 do begin

Sender.GetRecord(i,r);

with SvcList.Items.Add do begin

Caption:=r.DisplayName;

if r.Typ=svcUnknown then

SubItems.Add(Format('%s (%d)',[cSvcType[r.Typ],r._Typ]))

else

SubItems.Add(cSvcType[r.Typ]);

SubItems.Add(cSvcStatus[r.Status]);

SubItems.Add(cSvcStartup[r.StartUp]);

SubItems.Add(r.ObjectName);

SubItems.Add(r.Name);

end;

if SvcList.Tag<>0 then

SvcList.AlphaSort;

finally

SvcList.Items.EndUpdate;

end;

Upon Clicking Details for the selected process in the list a new child form is created and data is added to different tab sheets.

procedure Tdlg_PrcDetails.RefreshData;
var
  i,j,c: Integer;
  r,n: TTreeNode;
  VersionInfo: TVersionInfo;
  m: TModuleRecord;
  h: THandleRecord;
  t: TThreadRecord;
  w: TWindowRecord;
begin
  eName.Text:=FRecord.Name;
  imgIcon.Picture.Icon.Handle:=GetFileIcon(FRecord.ImageName);
  GetFileVerInfo(FRecord.ImageName,VersionInfo);

  GenList.Items.Clear;
  with GenList.Items.Add do begin
    Caption:='Description';
    SubItems.Add(VersionInfo.Description);
    ImageIndex:=-3;
  end;
  with GenList.Items.Add do begin
    Caption:='Version';
    SubItems.Add(VersionInfo.FileVersion);
  end;
  with GenList.Items.Add do begin
    Caption:='Product Name';
    SubItems.Add(VersionInfo.ProductName);
  end;
  with GenList.Items.Add do begin
    Caption:='Company Name';
    SubItems.Add(VersionInfo.CompanyName);
  end;
  with GenList.Items.Add do begin
    Caption:='';
    ImageIndex:=-2;
  end;
  with GenList.Items.Add do begin
    Caption:='PID';
    SubItems.Add(Format('%d',[FRecord.PID]));
    ImageIndex:=-3;
  end;
  with GenList.Items.Add do begin
    Caption:='Parent PID';
    SubItems.Add(Format('%d',[FRecord.ParentPID]))
  end;
  with GenList.Items.Add do begin
    Caption:='Image name';
    SubItems.Add(FRecord.ImageName);
  end;
  with GenList.Items.Add do begin
    Caption:='Command line';
    SubItems.Add(FRecord.CommandLine);
  end;
  with GenList.Items.Add do begin
    Caption:='';
    ImageIndex:=-2;
  end;
  if Win32Platform=VER_PLATFORM_WIN32_NT then
    with GenList.Items.Add do begin
      Caption:='User Name';
      SubItems.Add(FRecord.UserName);
      ImageIndex:=-3;
    end;
  with GenList.Items.Add do begin
    Caption:='Priority';
    SubItems.Add(Format('%d',[FRecord.Priority]));
    ImageIndex:=-3;
  end;
  with GenList.Items.Add do begin
    Caption:='Thread Count';
    SubItems.Add(Format('%d',[FRecord.ThreadCount]));
  end;
  with GenList.Items.Add do begin
    Caption:='Handle Count';
    SubItems.Add(Format('%d',[FRecord.HandleCount]));
  end;

  c:=FML.Count;
  TabSheet2.Caption:=Format(' Modules (%d) ',[c]);
  ModList.Items.Clear;
  for i:=0 to c-1 do begin
    m:=PModuleRecord(FML[i])^;
    with ModList.Items.Add do begin
      Caption:=m.Name;
      SubItems.Add(Format('%d',[m.ImageSize]));
      SubItems.Add(Format('0x%x',[m.BaseAddress]));
      SubItems.Add(m.VersionInfo.Description);
    end;
  end;

  c:=FTL.Count;
  TabSheet5.Caption:=Format(' Threads (%d) ',[c]);
  ThdList.Items.Clear;
  for i:=0 to c-1 do begin
    t:=PThreadRecord(FTL[i])^;
    with ThdList.Items.Add do begin
      Caption:=Format('%d',[t.ID]);
      Subitems.Add(Format('0x%x',[t.StartAddress]));
      Subitems.Add(Format('%d',[t.BasePriority]));
      Subitems.Add(Format('%d',[t.Priority]));
      if TThreadState(t.State)<>StateWait then
        SubItems.Add(cThreadState[TThreadState(t.State)])
      else
        SubItems.Add(Format('%s:%s',[cThreadState[TThreadState(t.State)],cKWaitReason[TKWaitReason(t.WaitReason)]]));
      Subitems.Add(Format('%d',[t.ContextSwitchCount]));
      SubItems.Add(FormatTicks(t.KernelTime));
      SubItems.Add(FormatTicks(t.UserTime));
    end;
  end;

  TabSheet3.Caption:=Format(' Child Procs (%d) ',[FCP.Count]);
  CPList.Items.Clear;
  for i:=0 to FCP.Count-1 do
    with CPList.Items.Add do begin
      Caption:=FCP.Names[i];
      SubItems.Add(FCP.ValueFromIndex[i]);
    end;

  CntList.Items.Clear;
  with CntList.Items.Add do begin
    Caption:='CPU Times';
    ImageIndex:=-3;
  end;
  with CntList.Items.Add do begin
    Caption:='Kernel Time';
    SubItems.Add(FormatTicks(FRecord.KernelTime));
    SubItems.Add('-');
  end;
  with CntList.Items.Add do begin
    Caption:='User Time';
    SubItems.Add(FormatTicks(FRecord.UserTime));
    SubItems.Add('-');
  end;
  with CntList.Items.Add do begin
    Caption:='Total Time';
    SubItems.Add(FormatTicks(FRecord.UserTime+FRecord.KernelTime));
    SubItems.Add('-');
  end;
  with CntList.Items.Add do begin
    Caption:='';
    ImageIndex:=-2;
  end;
  with CntList.Items.Add do begin
    Caption:='I/O Counters';
    ImageIndex:=-3;
  end;
  with CntList.Items.Add do begin
    Caption:='Read Operation Count';
    SubItems.Add(Format('%d',[FRecord.IOCounters.ReadOperationCount.QuadPart]));
    SubItems.Add('-');
  end;
  with CntList.Items.Add do begin
    Caption:='Write Operation Count';
    SubItems.Add(Format('%d',[FRecord.IOCounters.WriteOperationCount.QuadPart]));
    SubItems.Add('-');
  end;
  with CntList.Items.Add do begin
    Caption:='Other Operation Count';
    SubItems.Add(Format('%d',[FRecord.IOCounters.OtherOperationCount.QuadPart]));
    SubItems.Add('-');
  end;
  with CntList.Items.Add do begin
    Caption:='Read Transfer Count';
    SubItems.Add(Format('%d',[FRecord.IOCounters.ReadTransferCount.QuadPart]));
    SubItems.Add('-');
  end;
  with CntList.Items.Add do begin
    Caption:='Write Transfer Count';
    SubItems.Add(Format('%d',[FRecord.IOCounters.WriteTransferCount.QuadPart]));
    SubItems.Add('-');
  end;
  with CntList.Items.Add do begin
    Caption:='Other Transfer Count';
    SubItems.Add(Format('%d',[FRecord.IOCounters.OtherTransferCount.QuadPart]));
    SubItems.Add('-');
  end;
  with CntList.Items.Add do begin
    Caption:='';
    ImageIndex:=-2;
  end;
  with CntList.Items.Add do begin
    Caption:='Virtual Memory Counters';
    ImageIndex:=-3;
  end;
  with CntList.Items.Add do begin
    Caption:='Page Fault Count';
    SubItems.Add(Format('%d',[FRecord.VMCounters.PageFaultCount]));
    SubItems.Add('-');
  end;
  with CntList.Items.Add do begin
    Caption:='Virtual Size';
    SubItems.Add(Format('%d B',[FRecord.VMCounters.VirtualSize]));
    SubItems.Add(Format('%d B',[FRecord.VMCounters.PeakVirtualSize]));
  end;
  with CntList.Items.Add do begin
    Caption:='Working Set Size';
    SubItems.Add(Format('%d B',[FRecord.VMCounters.WorkingSetSize]));
    SubItems.Add(Format('%d B',[FRecord.VMCounters.PeakWorkingSetSize]));
  end;
  with CntList.Items.Add do begin
    Caption:='Quota Peak Paged Pool Usage';
    SubItems.Add(Format('%d B',[FRecord.VMCounters.QuotaPagedPoolUsage]));
    SubItems.Add(Format('%d B',[FRecord.VMCounters.QuotaPeakPagedPoolUsage]));
  end;
  with CntList.Items.Add do begin
    Caption:='Quota Peak Non Paged Pool Usage';
    SubItems.Add(Format('%d B',[FRecord.VMCounters.QuotaNonPagedPoolUsage]));
    SubItems.Add(Format('%d B',[FRecord.VMCounters.QuotaPeakNonPagedPoolUsage]));
  end;
  with CntList.Items.Add do begin
    Caption:='Pagefile Usage';
    SubItems.Add(Format('%d B',[FRecord.VMCounters.PagefileUsage]));
    SubItems.Add(Format('%d B',[FRecord.VMCounters.PeakPagefileUsage]));
  end;

  SecList.Items.Clear;
  with SecList.Items.Add do begin
    Caption:='Groups';
    ImageIndex:=-3;
  end;
  for i:=0 to High(FRecord.Groups) do
    with SecList.Items.Add do begin
      if FRecord.Groups[i].Name='' then
        Caption:=FRecord.Groups[i].SID
      else
        if FRecord.Groups[i].Domain<>'' then
          Caption:=Format('%s%s',[FRecord.Groups[i].Domain,FRecord.Groups[i].Name])
        else
          Caption:=FRecord.Groups[i].Name;
      SubItems.Add(Format('0x%x',[FRecord.Groups[i].Flags]));
    end;
  with SecList.Items.Add do begin
   Caption:='';
   ImageIndex:=-2;
  end;
  with SecList.Items.Add do begin
    Caption:='Privileges';
    ImageIndex:=-3;
  end;
  for i:=0 to High(FRecord.Privileges) do
    with SecList.Items.Add do begin
      Caption:=FRecord.Privileges[i].Name;
      SubItems.Add(IntToStr(Integer(FRecord.Privileges[i].Flags and SE_PRIVILEGE_ENABLED=SE_PRIVILEGE_ENABLED)));
      ImageIndex:=-4;
    end;

  c:=FHL.Count;
  TabSheet6.Caption:=Format(' Handles (%d) ',[c]);
  HList.Items.Clear;
  for i:=0 to c-1 do begin
    h:=PHandleRecord(FHL[i])^;
    with HList.Items.Add do begin
      Caption:=Format('0x%x',[h.Handle]);
      SubItems.Add(h.TypeName);
      SubItems.Add(Format('0x%x',[h.Access]));
      SubItems.Add(h.Name);
    end;
  end;

  r:=nil;
  c:=FWL.Count;
  TabSheet7.Caption:=Format(' Windows (%d) ',[c]);
  WinTree.Items.Clear;
  for i:=0 to c-1 do begin
    w:=PWindowRecord(FWL[i])^;
    for j:=0 to WinTree.Items.Count-1 do
      if PHandle(WinTree.Items[j].Data)^=w.ParentWin then begin
        r:=WinTree.Items[j];
        Break;
      end;
    n:=WinTree.Items.AddChild(r,Format('(0x%x) "%s": %s',[w.Handle,w.Text,w.ClassName]));
    n.ImageIndex:=Integer(w.Visible);
    n.Data:=Allocmem(SizeOf(THandle));
    n.SelectedIndex:=n.ImageIndex;
    PHandle(n.Data)^:=w.Handle;
  end;
  if WinTree.Items.Count>0 then begin
    WinTree.FullExpand;
    WinTree.Items[0].MakeVisible;
  end;

  EnvBox.Items.Text:=FRecord.Environment;
  tsEnv.Caption:=Format('Environment (%d)',[EnvBox.Items.Count]);

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

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

procedure Tdlg_PrcDetails.RefreshData;

var

i,j,c: Integer;

r,n: TTreeNode;

VersionInfo: TVersionInfo;

m: TModuleRecord;

h: THandleRecord;

t: TThreadRecord;

w: TWindowRecord;

begin

eName.Text:=FRecord.Name;

imgIcon.Picture.Icon.Handle:=GetFileIcon(FRecord.ImageName);

GetFileVerInfo(FRecord.ImageName,VersionInfo);

GenList.Items.Clear;

with GenList.Items.Add do begin

Caption:='Description';

SubItems.Add(VersionInfo.Description);

ImageIndex:=-3;

end;

with GenList.Items.Add do begin

Caption:='Version';

SubItems.Add(VersionInfo.FileVersion);

end;

with GenList.Items.Add do begin

Caption:='Product Name';

SubItems.Add(VersionInfo.ProductName);

end;

with GenList.Items.Add do begin

Caption:='Company Name';

SubItems.Add(VersionInfo.CompanyName);

end;

with GenList.Items.Add do begin

Caption:='';

ImageIndex:=-2;

end;

with GenList.Items.Add do begin

Caption:='PID';

SubItems.Add(Format('%d',[FRecord.PID]));

ImageIndex:=-3;

end;

with GenList.Items.Add do begin

Caption:='Parent PID';

SubItems.Add(Format('%d',[FRecord.ParentPID]))

end;

with GenList.Items.Add do begin

Caption:='Image name';

SubItems.Add(FRecord.ImageName);

end;

with GenList.Items.Add do begin

Caption:='Command line';

SubItems.Add(FRecord.CommandLine);

end;

with GenList.Items.Add do begin

Caption:='';

ImageIndex:=-2;

end;

if Win32Platform=VER_PLATFORM_WIN32_NT then

with GenList.Items.Add do begin

Caption:='User Name';

SubItems.Add(FRecord.UserName);

ImageIndex:=-3;

end;

with GenList.Items.Add do begin

Caption:='Priority';

SubItems.Add(Format('%d',[FRecord.Priority]));

ImageIndex:=-3;

end;

with GenList.Items.Add do begin

Caption:='Thread Count';

SubItems.Add(Format('%d',[FRecord.ThreadCount]));

end;

with GenList.Items.Add do begin

Caption:='Handle Count';

SubItems.Add(Format('%d',[FRecord.HandleCount]));

end;

c:=FML.Count;

TabSheet2.Caption:=Format(' Modules (%d) ',[c]);

ModList.Items.Clear;

for i:=0 to c-1 do begin

m:=PModuleRecord(FML[i])^;

with ModList.Items.Add do begin

Caption:=m.Name;

SubItems.Add(Format('%d',[m.ImageSize]));

SubItems.Add(Format('0x%x',[m.BaseAddress]));

SubItems.Add(m.VersionInfo.Description);

end;

c:=FTL.Count;

TabSheet5.Caption:=Format(' Threads (%d) ',[c]);

ThdList.Items.Clear;

for i:=0 to c-1 do begin

t:=PThreadRecord(FTL[i])^;

with ThdList.Items.Add do begin

Caption:=Format('%d',[t.ID]);

Subitems.Add(Format('0x%x',[t.StartAddress]));

Subitems.Add(Format('%d',[t.BasePriority]));

Subitems.Add(Format('%d',[t.Priority]));

if TThreadState(t.State)<>StateWait then

SubItems.Add(cThreadState[TThreadState(t.State)])

else

SubItems.Add(Format('%s:%s',[cThreadState[TThreadState(t.State)],cKWaitReason[TKWaitReason(t.WaitReason)]]));

Subitems.Add(Format('%d',[t.ContextSwitchCount]));

SubItems.Add(FormatTicks(t.KernelTime));

SubItems.Add(FormatTicks(t.UserTime));

end;

TabSheet3.Caption:=Format(' Child Procs (%d) ',[FCP.Count]);

CPList.Items.Clear;

for i:=0 to FCP.Count-1 do

with CPList.Items.Add do begin

Caption:=FCP.Names[i];

SubItems.Add(FCP.ValueFromIndex[i]);

end;

CntList.Items.Clear;

with CntList.Items.Add do begin

Caption:='CPU Times';

ImageIndex:=-3;

end;

with CntList.Items.Add do begin

Caption:='Kernel Time';

SubItems.Add(FormatTicks(FRecord.KernelTime));

SubItems.Add('-');

end;

with CntList.Items.Add do begin

Caption:='User Time';

SubItems.Add(FormatTicks(FRecord.UserTime));

SubItems.Add('-');

end;

with CntList.Items.Add do begin

Caption:='Total Time';

SubItems.Add(FormatTicks(FRecord.UserTime+FRecord.KernelTime));

SubItems.Add('-');

end;

with CntList.Items.Add do begin

Caption:='';

ImageIndex:=-2;

end;

with CntList.Items.Add do begin

Caption:='I/O Counters';

ImageIndex:=-3;

end;

with CntList.Items.Add do begin

Caption:='Read Operation Count';

SubItems.Add(Format('%d',[FRecord.IOCounters.ReadOperationCount.QuadPart]));

SubItems.Add('-');

end;

with CntList.Items.Add do begin

Caption:='Write Operation Count';

SubItems.Add(Format('%d',[FRecord.IOCounters.WriteOperationCount.QuadPart]));

SubItems.Add('-');

end;

with CntList.Items.Add do begin

Caption:='Other Operation Count';

SubItems.Add(Format('%d',[FRecord.IOCounters.OtherOperationCount.QuadPart]));

SubItems.Add('-');

end;

with CntList.Items.Add do begin

Caption:='Read Transfer Count';

SubItems.Add(Format('%d',[FRecord.IOCounters.ReadTransferCount.QuadPart]));

SubItems.Add('-');

end;

with CntList.Items.Add do begin

Caption:='Write Transfer Count';

SubItems.Add(Format('%d',[FRecord.IOCounters.WriteTransferCount.QuadPart]));

SubItems.Add('-');

end;

with CntList.Items.Add do begin

Caption:='Other Transfer Count';

SubItems.Add(Format('%d',[FRecord.IOCounters.OtherTransferCount.QuadPart]));

SubItems.Add('-');

end;

with CntList.Items.Add do begin

Caption:='';

ImageIndex:=-2;

end;

with CntList.Items.Add do begin

Caption:='Virtual Memory Counters';

ImageIndex:=-3;

end;

with CntList.Items.Add do begin

Caption:='Page Fault Count';

SubItems.Add(Format('%d',[FRecord.VMCounters.PageFaultCount]));

SubItems.Add('-');

end;

with CntList.Items.Add do begin

Caption:='Virtual Size';

SubItems.Add(Format('%d B',[FRecord.VMCounters.VirtualSize]));

SubItems.Add(Format('%d B',[FRecord.VMCounters.PeakVirtualSize]));

end;

with CntList.Items.Add do begin

Caption:='Working Set Size';

SubItems.Add(Format('%d B',[FRecord.VMCounters.WorkingSetSize]));

SubItems.Add(Format('%d B',[FRecord.VMCounters.PeakWorkingSetSize]));

end;

with CntList.Items.Add do begin

Caption:='Quota Peak Paged Pool Usage';

SubItems.Add(Format('%d B',[FRecord.VMCounters.QuotaPagedPoolUsage]));

SubItems.Add(Format('%d B',[FRecord.VMCounters.QuotaPeakPagedPoolUsage]));

end;

with CntList.Items.Add do begin

Caption:='Quota Peak Non Paged Pool Usage';

SubItems.Add(Format('%d B',[FRecord.VMCounters.QuotaNonPagedPoolUsage]));

SubItems.Add(Format('%d B',[FRecord.VMCounters.QuotaPeakNonPagedPoolUsage]));

end;

with CntList.Items.Add do begin

Caption:='Pagefile Usage';

SubItems.Add(Format('%d B',[FRecord.VMCounters.PagefileUsage]));

SubItems.Add(Format('%d B',[FRecord.VMCounters.PeakPagefileUsage]));

end;

SecList.Items.Clear;

with SecList.Items.Add do begin

Caption:='Groups';

ImageIndex:=-3;

end;

for i:=0 to High(FRecord.Groups) do

with SecList.Items.Add do begin

if FRecord.Groups[i].Name='' then

Caption:=FRecord.Groups[i].SID

else

if FRecord.Groups[i].Domain<>'' then

Caption:=Format('%s%s',[FRecord.Groups[i].Domain,FRecord.Groups[i].Name])

else

Caption:=FRecord.Groups[i].Name;

SubItems.Add(Format('0x%x',[FRecord.Groups[i].Flags]));

end;

with SecList.Items.Add do begin

Caption:='';

ImageIndex:=-2;

end;

with SecList.Items.Add do begin

Caption:='Privileges';

ImageIndex:=-3;

end;

for i:=0 to High(FRecord.Privileges) do

with SecList.Items.Add do begin

Caption:=FRecord.Privileges[i].Name;

SubItems.Add(IntToStr(Integer(FRecord.Privileges[i].Flags and SE_PRIVILEGE_ENABLED=SE_PRIVILEGE_ENABLED)));

ImageIndex:=-4;

end;

c:=FHL.Count;

TabSheet6.Caption:=Format(' Handles (%d) ',[c]);

HList.Items.Clear;

for i:=0 to c-1 do begin

h:=PHandleRecord(FHL[i])^;

with HList.Items.Add do begin

Caption:=Format('0x%x',[h.Handle]);

SubItems.Add(h.TypeName);

SubItems.Add(Format('0x%x',[h.Access]));

SubItems.Add(h.Name);

end;

r:=nil;

c:=FWL.Count;

TabSheet7.Caption:=Format(' Windows (%d) ',[c]);

WinTree.Items.Clear;

for i:=0 to c-1 do begin

w:=PWindowRecord(FWL[i])^;

for j:=0 to WinTree.Items.Count-1 do

if PHandle(WinTree.Items[j].Data)^=w.ParentWin then begin

r:=WinTree.Items[j];

Break;

end;

n:=WinTree.Items.AddChild(r,Format('(0x%x) "%s": %s',[w.Handle,w.Text,w.ClassName]));

n.ImageIndex:=Integer(w.Visible);

n.Data:=Allocmem(SizeOf(THandle));

n.SelectedIndex:=n.ImageIndex;

PHandle(n.Data)^:=w.Handle;

end;

if WinTree.Items.Count>0 then begin

WinTree.FullExpand;

WinTree.Items[0].MakeVisible;

end;

EnvBox.Items.Text:=FRecord.Environment;

tsEnv.Caption:=Format('Environment (%d)',[EnvBox.Items.Count]);

end;

processdetails 7450443 — **MiTeC PV Process Details Demo**

Upon Clicking Details for the selected Service in the list a new child form is created and data is added to different tab sheets.

procedure Tdlg_SvcDetails.RefreshData;
var
  i: Integer;
  n: TTreeNode;
  r: TServiceRecord;
begin
  eName.Text:=FRecord.DisplayName;

  GenList.Items.Clear;
  imgIcon.Picture.Icon.Handle:=GetFileIcon(FRecord.ImageName);

  GenList.Items.Clear;
  with GenList.Items.Add do begin
    Caption:='Description';
    SubItems.Add(FRecord.VersionInfo.Description);
    ImageIndex:=-3;
  end;
  with GenList.Items.Add do begin
    Caption:='Version';
    SubItems.Add(FRecord.VersionInfo.FileVersion);
  end;
  with GenList.Items.Add do begin
    Caption:='Product Name';
    SubItems.Add(FRecord.VersionInfo.ProductName);
  end;
  with GenList.Items.Add do begin
    Caption:='Company Name';
    SubItems.Add(FRecord.VersionInfo.CompanyName);
  end;
  with GenList.Items.Add do begin
    Caption:='';
    ImageIndex:=-2;
  end;

  with GenList.Items.Add do begin
    Caption:='Service Name';
    SubItems.Add(FRecord.Name);
    ImageIndex:=-3;
  end;
  with GenList.Items.Add do begin
    Caption:='Command line';
    SubItems.Add(FRecord.CmdLine);
  end;
  with GenList.Items.Add do begin
    Caption:='Log On As ';
    SubItems.Add(FRecord.ObjectName);
  end;
  with GenList.Items.Add do begin
    Caption:='Load Order Group';
    SubItems.Add(FRecord.Group);
  end;
  with GenList.Items.Add do begin
    Caption:='Type';
    SubItems.Add(cSvcType[FRecord.Typ]);
  end;
  with GenList.Items.Add do begin
    Caption:='';
    ImageIndex:=-2;
  end;
  with GenList.Items.Add do begin
    Caption:='Status';
    SubItems.Add(cSvcStatus[FRecord.Status]);
    ImageIndex:=-3;
  end;
  with GenList.Items.Add do begin
    Caption:='Startup Mode';
    SubItems.Add(cSvcStartup[FRecord.Startup]);
  end;
  with GenList.Items.Add do begin
    Caption:='Error Control';
    SubItems.Add(cSvcErrorControl[FRecord.ErrCtrl]);
  end;

  Dep1Tree.Items.Clear;
  sl.CommaText:=FRecord.DependOnService;
  for i:=0 to sl.Count-1 do begin
    SLM.GetRecordByName(sl[i],r);
    if r.Name<>'' then begin
      n:=Dep1Tree.Items.AddChild(nil,r.DisplayName);
      n.ImageIndex:=0;
      n.HasChildren:=True;
    end;
  end;
  Dep1Tree.AlphaSort;

  Dep2Tree.Items.Clear;
  SLM.GetServiceDependants(FRecord.Name,sl);
  for i:=0 to sl.Count-1 do begin
    n:=Dep2Tree.Items.AddChild(nil,sl.ValueFromIndex[i]);
    n.ImageIndex:=0;
    n.HasChildren:=True;
  end;
  Dep2Tree.AlphaSort;
end;

procedure Tdlg_SvcDetails.RefreshData;

var

i: Integer;

n: TTreeNode;

r: TServiceRecord;

begin

eName.Text:=FRecord.DisplayName;

GenList.Items.Clear;

imgIcon.Picture.Icon.Handle:=GetFileIcon(FRecord.ImageName);

GenList.Items.Clear;

with GenList.Items.Add do begin

Caption:='Description';

SubItems.Add(FRecord.VersionInfo.Description);

ImageIndex:=-3;

end;

with GenList.Items.Add do begin

Caption:='Version';

SubItems.Add(FRecord.VersionInfo.FileVersion);

end;

with GenList.Items.Add do begin

Caption:='Product Name';

SubItems.Add(FRecord.VersionInfo.ProductName);

end;

with GenList.Items.Add do begin

Caption:='Company Name';

SubItems.Add(FRecord.VersionInfo.CompanyName);

end;

with GenList.Items.Add do begin

Caption:='';

ImageIndex:=-2;

end;

with GenList.Items.Add do begin

Caption:='Service Name';

SubItems.Add(FRecord.Name);

ImageIndex:=-3;

end;

with GenList.Items.Add do begin

Caption:='Command line';

SubItems.Add(FRecord.CmdLine);

end;

with GenList.Items.Add do begin

Caption:='Log On As ';

SubItems.Add(FRecord.ObjectName);

end;

with GenList.Items.Add do begin

Caption:='Load Order Group';

SubItems.Add(FRecord.Group);

end;

with GenList.Items.Add do begin

Caption:='Type';

SubItems.Add(cSvcType[FRecord.Typ]);

end;

with GenList.Items.Add do begin

Caption:='';

ImageIndex:=-2;

end;

with GenList.Items.Add do begin

Caption:='Status';

SubItems.Add(cSvcStatus[FRecord.Status]);

ImageIndex:=-3;

end;

with GenList.Items.Add do begin

Caption:='Startup Mode';

SubItems.Add(cSvcStartup[FRecord.Startup]);

end;

with GenList.Items.Add do begin

Caption:='Error Control';

SubItems.Add(cSvcErrorControl[FRecord.ErrCtrl]);

end;

Dep1Tree.Items.Clear;

sl.CommaText:=FRecord.DependOnService;

for i:=0 to sl.Count-1 do begin

SLM.GetRecordByName(sl[i],r);

if r.Name<>'' then begin

n:=Dep1Tree.Items.AddChild(nil,r.DisplayName);

n.ImageIndex:=0;

n.HasChildren:=True;

end;

Dep1Tree.AlphaSort;

Dep2Tree.Items.Clear;

SLM.GetServiceDependants(FRecord.Name,sl);

for i:=0 to sl.Count-1 do begin

n:=Dep2Tree.Items.AddChild(nil,sl.ValueFromIndex[i]);

n.ImageIndex:=0;

n.HasChildren:=True;

end;

Dep2Tree.AlphaSort;

end;

servicesdetaials 5503588 — **MiTeC PV Services Details Demo**

Apart from these, stopping, starting, pausing, and resuming the services were implemented in the sample.

It’s that simple to enumerate the Process List and Service List running in your machine and view the details of the process. Use this MiTeC component suite and get the job done quickly.

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

With the use of Windows IDE, you can build your own windows process viewer when developing in Delphi or C++ environments. 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

Efficient Way To Build Your Own Windows Process Viewer In Delphi With Excellent Component Suite

Leave a ReplyCancel reply

Search

Something Fresh

Charles "Charlie" Calvert, Developer, Educator, And A Thoroughly Decent Man

Who Uses Delphi? The Silent Success Behind Astronauts, Theme Parks, Satellites, And A Multi-billion Ultimate Payday!

Instruction Sets in C++Builder 12.3!

Popular Posts

RAD Studio 12.2 Athens Inline Patch 1 Available

Announcing the Availability of RAD Studio 12.2 Athens

New in 12.3: Scripts for Migration from InterBase Express to FireDAC

AI-Powered Smart CodeInsight in RAD Studio 12.3

Announcing the Availability of RAD Studio 12.3 Athens

RAD Studio 12.2 Athens Inline Patch 1 Available

Announcing the Availability of RAD Studio 12.2 Athens

New in 12.3: Scripts for Migration from InterBase Express to FireDAC

AI-Powered Smart CodeInsight in RAD Studio 12.3

Categories

Popular From News

New in 10.3.2: C++17 for Win64 - target all Windows with the C++17 Clang compiler

Delphi 12 And C++Builder 12 Community Editions Released!

We've Updated The HUGE Delphi Anniversary “Innovation Timeline” Infographic. Grab it Now!

Embarcadero InterBase 2020 Update 6 Released!

3 x 12 VCL Enhancements in Delphi 12

C++Builder @ stackoverflow

Delphi @ stackoverflow

InterBase @ stackoverflow

Categories

Useful Links

Follow us

Efficient Way To Build Your Own Windows Process Viewer In Delphi With Excellent Component Suite

Leave a ReplyCancel reply

Join Our Global Developer Community

Search

Something Fresh

Popular Posts

Categories

Popular From News

Categories

Useful Links

Follow us