prcdetails.dfm

一个很不错的系统信息控件

      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000FFFFFFFF
      FFFFFFFFFF1FFFFFFE09FFFFF000FFFFE0007FFFE0001FFFE00007FFC00001FF
      C000007FE000001FF0000007F0000003F8000001FE000001FE000003FE000003
      FC000007FC000007F800000FF800000FF000001FF000001FE000003FE000003F
      C000007FC000007F800000FF800000FFC00001FFFFFFFFFFFFFFFFFF}
  end
  object bClose: TButton
    Left = 385
    Top = 489
    Width = 75
    Height = 25
    Cursor = crHandPoint
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Close'
    Default = True
    ModalResult = 1
    TabOrder = 0
  end
  object pc: TPageControl
    Left = 12
    Top = 52
    Width = 448
    Height = 409
    Cursor = crHandPoint
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight, akBottom]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MultiLine = True
    ParentFont = False
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = ' General '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      object GenList: TListView
        Left = 11
        Top = 14
        Width = 417
        Height = 314
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clBtnFace
        Columns = <
          item
            Width = 125
          end
          item
            Width = 270
          end>
        ColumnClick = False
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        ParentShowHint = False
        ShowColumnHeaders = False
        ShowHint = True
        TabOrder = 0
        ViewStyle = vsReport
        OnAdvancedCustomDrawItem = GenListAdvancedCustomDrawItem
        OnAdvancedCustomDrawSubItem = GenListAdvancedCustomDrawSubItem
      end
      object Button3: TButton
        Left = 12
        Top = 340
        Width = 125
        Height = 25
        Cursor = crHandPoint
        Anchors = [akLeft, akBottom]
        Caption = 'Go to parent process'
        TabOrder = 1
        OnClick = GenListDblClick
      end
      object Button4: TButton
        Left = 353
        Top = 340
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Anchors = [akRight, akBottom]
        Caption = 'Properties...'
        TabOrder = 2
        OnClick = Button4Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = ' Performance '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 3
      ParentFont = False
      object CntList: TListView
        Left = 12
        Top = 12
        Width = 417
        Height = 355
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clBtnFace
        Columns = <
          item
            Caption = 'Name'
            Width = 200
          end
          item
            Alignment = taRightJustify
            Caption = 'Current'
            Width = 100
          end
          item
            Alignment = taRightJustify
            Caption = 'Peak'
            Width = 100
          end>
        ColumnClick = False
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        ViewStyle = vsReport
        OnAdvancedCustomDrawItem = GenListAdvancedCustomDrawItem
        OnAdvancedCustomDrawSubItem = GenListAdvancedCustomDrawSubItem
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Modules'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object ModList: TListView
        Left = 11
        Top = 12
        Width = 417
        Height = 314
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Caption = 'Name'
            Width = 125
          end
          item
            Alignment = taRightJustify
            Caption = 'Size [B]'
            Width = 75
          end
          item
            Caption = 'Base Address'
            Width = 80
          end
          item
            Caption = 'Entry Point'
            Width = 80
          end
          item
            Caption = 'Location'
            Width = 270
          end>
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        ViewStyle = vsReport
        OnAdvancedCustomDrawItem = ListAdvancedCustomDrawItem
        OnAdvancedCustomDrawSubItem = ListAdvancedCustomDrawSubItem
        OnColumnClick = ListColumnClick
        OnCompare = ListCompare
        OnDblClick = ModListDblClick
      end
      object Button2: TButton
        Left = 353
        Top = 340
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Anchors = [akRight, akBottom]
        Caption = 'Properties...'
        TabOrder = 1
        OnClick = ModListDblClick
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'Threads'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 4
      ParentFont = False
      object ThdList: TListView
        Left = 11
        Top = 12
        Width = 417
        Height = 355
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Caption = 'ID'
          end
          item
            Caption = 'Start Address'
            Width = 80
          end
          item
            Alignment = taRightJustify
            Caption = 'Base Pri'
            Width = 55
          end
          item
            Alignment = taRightJustify
            Caption = 'Dyn Pri'
          end
          item
            Caption = 'State'
            Width = 100
          end
          item
            Alignment = taRightJustify
            Caption = 'CntxSwitch Cnt'
            Width = 85
          end
          item
            Caption = 'Kernel Time'
            Width = 70
          end
          item
            Caption = 'User Time'
            Width = 70
          end>
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        ViewStyle = vsReport
        OnAdvancedCustomDrawItem = ListAdvancedCustomDrawItem
        OnAdvancedCustomDrawSubItem = ListAdvancedCustomDrawSubItem
        OnColumnClick = ListColumnClick
        OnCompare = ListCompare
      end
    end
    object TabSheet6: TTabSheet
      Caption = ' Handles '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 5
      ParentFont = False
      TabVisible = False
      object HList: TListView
        Left = 12
        Top = 12
        Width = 417
        Height = 355
        Anchors = [akLeft, akTop, akRight, akBottom]
        Columns = <
          item
            Caption = 'Handle'
          end
          item
            Caption = 'Type'
            Width = 75
          end
          item
            Caption = 'Access'
            Width = 80
          end
          item
            Caption = 'Name'