end;
    with CntList.Items.Add do begin
      Caption:='Read Transfer Count';
      SubItems.Add(Format('%d',[FPI.IOCounters.ReadTransferCount.QuadPart]));
      SubItems.Add('-');
    end;
    with CntList.Items.Add do begin
      Caption:='Write Transfer Count';
      SubItems.Add(Format('%d',[FPI.IOCounters.WriteTransferCount.QuadPart]));
      SubItems.Add('-');
    end;
    with CntList.Items.Add do begin
      Caption:='Other Transfer Count';
      SubItems.Add(Format('%d',[FPI.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',[FPI.VMCounters.PageFaultCount]));
      SubItems.Add('-');
    end;
    with CntList.Items.Add do begin
      Caption:='Virtual Size';
      SubItems.Add(Format('%d B',[FPI.VMCounters.VirtualSize]));
      SubItems.Add(Format('%d B',[FPI.VMCounters.PeakVirtualSize]));
    end;
    with CntList.Items.Add do begin
      Caption:='Working Set Size';
      SubItems.Add(Format('%d B',[FPI.VMCounters.WorkingSetSize]));
      SubItems.Add(Format('%d B',[FPI.VMCounters.PeakWorkingSetSize]));
    end;
    with CntList.Items.Add do begin
      Caption:='Quota Peak Paged Pool Usage';
      SubItems.Add(Format('%d B',[FPI.VMCounters.QuotaPagedPoolUsage]));
      SubItems.Add(Format('%d B',[FPI.VMCounters.QuotaPeakPagedPoolUsage]));
    end;
    with CntList.Items.Add do begin
      Caption:='Quota Peak Non Paged Pool Usage';
      SubItems.Add(Format('%d B',[FPI.VMCounters.QuotaNonPagedPoolUsage]));
      SubItems.Add(Format('%d B',[FPI.VMCounters.QuotaPeakNonPagedPoolUsage]));
    end;
    with CntList.Items.Add do begin
      Caption:='Pagefile Usage';
      SubItems.Add(Format('%d B',[FPI.VMCounters.PagefileUsage]));
      SubItems.Add(Format('%d B',[FPI.VMCounters.PeakPagefileUsage]));
    end;

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

  HList.Items.Clear;
  for i:=0 to FPL.HandleCount-1 do
    if FPL.Handles[i].PID=FPI.PID then
      with HList.Items.Add do begin
        Caption:=Format('0x%x',[FPL.Handles[i].Handle]);
        //SubItems.Add(cSystemHandleType[TSystemHandleType(FPL.Handles[i].Typ)]
        SubItems.Add(FPL.Handles[i].TypeName);
        SubItems.Add(Format('0x%x',[FPL.Handles[i].Access]));
        SubItems.Add(FPL.Handles[i].Name);
      end;
  TabSheet6.Caption:=Format(' Handles (%d) ',[HList.Items.Count]);

  WinTree.Items.Clear;
  for i:=0 to FPL.WindowCount-1 do begin
    if FPL.Windows[i].Process<>FPI.PID then
      Continue;
    r:=nil;
    for j:=0 to WinTree.Items.Count-1 do
      if PInteger(WinTree.Items[j].Data)^=FPL.Windows[i].ParentWin then begin
        r:=WinTree.Items[j];
        Break;
      end;
    n:=WinTree.Items.AddChild(r,Format('(0x%x) "%s": %s',[FPL.Windows[i].Handle,FPL.Windows[i].Text,FPL.Windows[i].ClassName]));
    n.ImageIndex:=Integer(FPL.Windows[i].Visible);
    n.Data:=Allocmem(SizeOf(Integer));
    n.SelectedIndex:=n.ImageIndex;
    PInteger(n.Data)^:=FPL.Windows[i].Handle;
  end;
  if WinTree.Items.Count>0 then begin
    WinTree.FullExpand;
    WinTree.Items[0].MakeVisible;
  end;
  TabSheet7.Caption:=Format(' Windows (%d) ',[WinTree.Items.Count]);
end;

procedure Tdlg_PrcDetails.ListAdvancedCustomDrawItem(
  Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
  Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
  if ListView_SortColumn=0 then
    Sender.Canvas.Brush.Color:=clInfoBk
  else
    Sender.Canvas.Brush.Color:=clWhite
end;

procedure Tdlg_PrcDetails.ListAdvancedCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
  if ListView_SortColumn=SubItem then
    Sender.Canvas.Brush.Color:=clInfoBk
  else
    Sender.Canvas.Brush.Color:=clWhite
end;

procedure Tdlg_PrcDetails.ListColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  TListView(Sender).SortType:=stNone;
  if Column.Index<>ListView_SortColumn then begin
    ListView_SortColumn:=Column.Index;
    ListView_SortDescending:=False;
  end else
    ListView_SortDescending:=not ListView_SortDescending;
  TListView(Sender).SortType:=stText;
end;

procedure Tdlg_PrcDetails.ListCompare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
begin
  Compare:=ListView_CustomSort(Item1,Item2,ListView_SortColumn);
  if ListView_SortDescending then
    Compare:=-Compare;
end;

procedure Tdlg_PrcDetails.GenListAdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
  DefaultDraw:=True;
  with TListView(Sender) do begin
    Canvas.Font.Style:=[];
    if Item.ImageIndex=-3 then
      Canvas.Font.Style:=[fsBold];
    Canvas.Font.Color:=clBlack;
    if cdsHot in State then 
      Canvas.Font.Style:=Canvas.Font.Style+[fsUnderline]
    else
      Canvas.Font.Style:=Canvas.Font.Style-[fsUnderline];
    if Item.ImageIndex=-2 then
      ListView_DrawLine(Sender,Item,State,DefaultDraw,clGray);
  end;
end;

procedure Tdlg_PrcDetails.GenListAdvancedCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
  with TListView(Sender) do begin
    Canvas.Font.Style:=[];
    if Item.ImageIndex=-3 then
      Canvas.Font.Style:=[fsBold];
    Canvas.Font.Color:=clBlack;
    if Item.ImageIndex=-4 then
      ListView_DrawCheckBox(Sender,Item,SubItem,State,DefaultDraw,'1')
    else
      Canvas.Brush.Color:=Color;
    if cdsHot in State then
      Canvas.Font.Style:=Canvas.Font.Style+[fsUnderline]
    else
      Canvas.Font.Style:=Canvas.Font.Style-[fsUnderline];
  end;
end;

procedure Tdlg_PrcDetails.GenListDblClick(Sender: TObject);
var
  idx: Integer;
begin
  idx:=FPL.FindProcess(FPL.Processes[FIndex].ParentPID);
  if idx>=0 then begin
    FIndex:=idx;
    RefreshData;
  end;
end;

procedure Tdlg_PrcDetails.CPListDblClick(Sender: TObject);
var
  idx: Integer;
begin
  if Assigned(CPList.Selected) then begin
    try
      idx:=FPL.FindProcess(StrToInt(CPList.Selected.Caption));
    except
      idx:=FPL.FindProcess(StrToInt('$'+CPList.Selected.Caption));
    end;
    if idx>=0 then begin
      FIndex:=idx;
      RefreshData;
      pc.ActivePage:=TabSheet1;
    end;
  end;
end;

procedure Tdlg_PrcDetails.ModListDblClick(Sender: TObject);
begin
  if Assigned(ModList.Selected) then
    ShellPropDlg(Handle,ModList.Selected.SubItems[3]);
end;

procedure Tdlg_PrcDetails.Button4Click(Sender: TObject);
begin
  if FPL.Processes[FIndex].PID>9 then
    ShellPropDlg(Handle,FPL.Processes[FIndex].ImageName);
end;

procedure Tdlg_PrcDetails.bRefreshClick(Sender: TObject);
var
  PID: DWORD;
  idx: Integer;
begin
  Screen.Cursor:=crHourglass;
  try
    PID:=FPL.Processes[FIndex].PID;
    FPL.RefreshData;
    idx:=FPL.FindProcess(PID);
    if idx>=0 then begin
      FIndex:=idx;
      RefreshData;
    end else
      Close;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure Tdlg_PrcDetails.FormCreate(Sender: TObject);
begin
  pc.ActivePage:=TabSheet1;
end;

procedure Tdlg_PrcDetails.WinTreeDeletion(Sender: TObject; Node: TTreeNode);
begin
  Dispose(PInteger(Node.Data));
end;

procedure Tdlg_PrcDetails.cmWinDetails(Sender: TObject);
var
  idx: Integer;
begin
  if Assigned(WinTree.Selected) then begin
    idx:=FPL.FindWindow(PInteger(WinTree.Selected.Data)^);
    if idx>=0 then
      ShowWinDetails(FPL.Windows[idx]);
  end;
end;

end.