sValue: String;
tmp:string;
begin
// Get namespace connections
objServicesCimv2 := GetObject('winmgmts:root\cimv2');
objServicesDefault := GetObject('winmgmts:root\default');

// Create a refresher object
objRefresher := CreateOleObject('WbemScripting.SWbemRefresher');

// Add a single object (SWbemObjectEx) to the refresher. The "@"
// is used because _CIMOMIdentification is a singleton class- only
// one instance exists. Note that the
// SWbemRefreshableItem.Object property must
// be specified or the SWbemRefresher.Refresh call will fail.

objRefreshableItem1 := objRefresher.Add(objServicesDefault, '__CIMOMIdentification=@').Object;

// Add an enumerator (SWbemObjectSet object)
// to the refresher. Note that the
// SWbemRefreshableItem.ObjectSet property
// must be specified or the SWbemRefresher.Refresh call will fail.
objRefreshableItem2 := objRefresher.AddEnum(objServicesCimv2, 'Win32_Process').ObjectSet;

// Display number of items in refresher and update the data.
ShowMessage('Number of items in refresher = ' +inttostr( objRefresher.Count));
objRefresher.Refresh;

// Iterate through the refresher. SWbemRefreshable
// Item.IsSet checks for whether the item is an enumerator.
for j := 1 to objRefresher.Count do
begin
RefreshableItem:=objRefresher.Item(j);
if RefreshableItem.IsSet then
begin
ShowMessage('Item with index ' + IntToStr(RefreshableItem.Index) +
' is an enumerator containing ' + IntToStr(RefreshableItem.ObjectSet.Count) + ' processes');
form1.ListBox1.Clear;
ObjectSet:=ISWbemObjectSet(IUnknown(RefreshableItem.ObjectSet));
Enum := (ObjectSet._NewEnum) as IEnumVariant;
try
i:=0;
while (Enum.Next(1, tempObj1, Value) = S_OK) do
try
tmp:='';
SObject := IUnknown(tempObj1) as SWBemObject;
try
propSet := SObject.Properties_;
propEnum := (propSet._NewEnum) as IEnumVariant;
try
while (propEnum.Next(1, tempObj2, Value) = S_OK) do
try
SProp := IUnknown(tempObj2) as SWBemProperty;
if (SProp.Name'Name') and (SProp.Name'ProcessId')
and (SProp.Name'ParentProcessId') and (SProp.Name'CreationDate') and (SProp.Name'ExecutablePath') then
continue;
// now get the value of the property
sValue := '';
spropvalue:=SProp.Get_Value;
try
if VarIsNull(spropvalue) then
sValue := ''
else
case SProp.CIMType of
wbemCimtypeSint8, wbemCimtypeUint8, wbemCimtypeSint16, wbemCimtypeUint16,
wbemCimtypeSint32, wbemCimtypeUint32, wbemCimtypeSint64:
sValue := IntToStr(spropvalue);
wbemCimtypeString, wbemCimtypeUint64:
if VarIsArray(spropvalue) then
begin
if VarArrayHighBound(spropvalue, 1) > 0 then
for Count := 1 to VarArrayHighBound(spropvalue, 1) do
sValue := sValue + ' ' + spropvalue[Count];
end
else
sValue := spropvalue;
wbemCimtypeDatetime:sValue:=spropvalue//DateTimeToStr(spropvalue)
else
Exception.Create('Unknown type');
end;
finally
spropvalue:=unassigned;
end;
case i of
0:tmp:=tmp+' [CreationDate='+sValue+']';
1:tmp:=tmp+' [Path='+sValue+']';
2:tmp:=sValue+tmp;
3:tmp:=tmp+' [Parent PID='+sValue+']';
4:tmp:=tmp+' [PID='+sValue+']';
end;