Has anyone used PSActiveProcessList in Delphi?

Here is a few things

List of processes and other info

********************FORM CODE********************

object Form1: TForm1
  Left = 216
  Top = 203
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object lvMsg: TListView
    Left = 16
    Top = 80
    Width = 648
    Height = 349
    BorderStyle = bsNone
    Columns = <
      item
        Caption = 'Name'
        Width = 200
      end
      item
        Caption = 'Threads'
      end
      item
        Caption = 'Creation'
      end
      item
        Caption = 'Base Priority'
      end
      item
        Caption = 'Process ID'
      end
      item
        Caption = 'Parent ID'
      end
      item
        Caption = 'Handles'
      end
      item
        Caption = 'VM Peak Bytes'
      end
      item
        Caption = 'VM Bytes'
      end
      item
        Caption = 'Page Faults'
      end
      item
        Caption = 'Mem Peak'
      end
      item
        Caption = 'Mem'
      end
      item
        Caption = 'Paged'
      end
      item
        Caption = 'Non Paged'
      end
      item
        Caption = 'Page Bytes'
      end
      item
        Caption = 'Peak Page Bytes'
      end
      item
        Caption = 'Private Bytes'
      end>
    ColumnClick = False
    Constraints.MinHeight = 100
    GridLines = True
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
  end
  object Button1: TButton
    Left = 40
    Top = 28
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
end

*****************************UNIT CODE*****************************
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls;

type
 PBA = ^TBA;
 TBA = array[0..1000000] of byte;

 PThreadInfo = ^TThreadInfo;
 TThreadInfo = record
  ftCreationTime : TFileTime;
  dwUnknown1 : dword;
  dwStartAddress : dword;
  dwOwningPID : dword;
  dwThreadID : dword;
  dwCurrentPriority : dword;
  dwBasePriority : dword;
  dwContextSwitches : dword;
  dwThreadState : dword;
  dwUnknown2 : dword;
  dwUnknown3 : dword;
  dwUnknown4 : dword;
  dwUnknown5 : dword;
  dwUnknown6 : dword;
  dwUnknown : dword;
 end;
 PProcessInfo = ^TProcessInfo;
 TProcessInfo=record
  dwOffset            : dword; // an ofset to the next Process structure
  dwThreadCount       : dword;
  dwUnkown1           : array[0..5] of dword;
  ftCreationTime      : TFileTime;
  dwUnkown2           : dword;
  dwUnkown3           : dword;
  dwUnkown4           : dword;
  dwUnkown5           : dword;
  dwUnkown6           : dword;
  pszProcessName      : PWideChar;
  dwBasePriority      : dword;
  dwProcessID         : dword;
  dwParentProcessID   : dword;
  dwHandleCount       : dword;
  dwUnkown7           : dword;
  dwUnkown8           : dword;
  dwVirtualBytesPeak  : dword;
  dwVirtualBytes      : dword;
  dwPageFaults        : dword;
  dwWorkingSetPeak    : dword;
  dwWorkingSet        : dword;
  dwUnkown9           : dword;
  dwPagedPool         : dword; // kbytes
  dwUnkown10          : dword;
  dwNonPagedPool      : dword; // kbytes
  dwPageFileBytes                  : dword;
  dwPageFileBytesPeak : dword;
  dwPrivateBytes      : dword;
  dwUnkown11          : dword;
  dwUnkown12          : dword;
  dwUnkown13          : dword;
  dwUnkown14          : dword;
  ThreadInfo : PThreadInfo; // Thread list
 end;
  TForm1 = class(TForm)
    lvMsg: TListView;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

function NtQuerySystemInformation(dt : dword;
  buf : pointer;
  bufsize : dword;
  retlen : pointer) : dword; stdcall;external 'ntdll.dll';

  {$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
 i,rl,cp : dword;
 pinfo : PProcessInfo;
 buf : PBA;
 Item: TListItem;
  ModifiedTime: TFileTime;
  SystemTime: TSystemTime;
begin
 GetMem(buf,$10000);
 rl:=0;
 i:=NtQuerySystemInformation(5,buf,$10000,@rl);
 lvMsg.Items.Clear;
 if i=0 then begin
  cp:=0;
  repeat
   pinfo:=PProcessInfo(@buf[cp]);
   cp:=cp+pinfo.dwOffset;
   begin
     with pinfo^ do begin
     Item:=lvMsg.Items.Add;
      if pszProcessName<>nil then
       Item.Caption:=WideCharToString(pszProcessName)
      else
       Item.Caption:='System Idle';
      Item.SubItems.Add(IntToStr(dwThreadCount));
      Item.SubItems.Add(IntToStr(dwThreadCount));
          FileTimeToSystemTime(ftCreationTime, SystemTime);
      Item.SubItems.Add(FormatDateTime('dd/mm/yy hh:mm:ss',SystemTimeToDateTime(SystemTime)));
      Item.SubItems.Add(IntToStr(dwBasePriority));
      Item.SubItems.Add(IntToStr(dwProcessID));
      Item.SubItems.Add(IntToStr(dwParentProcessID));
      Item.SubItems.Add(IntToStr(dwHandleCount));
      Item.SubItems.Add(IntToStr(dwVirtualBytesPeak));
      Item.SubItems.Add(IntToStr(dwVirtualBytes));
      Item.SubItems.Add(IntToStr(dwPageFaults));
      Item.SubItems.Add(IntToStr(dwWorkingSetPeak));
      Item.SubItems.Add(IntToStr(dwWorkingSet));
      Item.SubItems.Add(IntToStr(dwPagedPool));
      Item.SubItems.Add(IntToStr(dwNonPagedPool));
      Item.SubItems.Add(IntToStr(dwPageFileBytes));
      Item.SubItems.Add(IntToStr(dwPageFileBytesPeak));
      Item.SubItems.Add(IntToStr(dwPrivateBytes));
     end;
   end;
  until pinfo.dwOffset=0;
 end;
 FreeMem(buf);
end;

end.