unitformcontrol.dfm

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

            18000000000000030000120B0000120B00000000000000000000FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFD6E9B70FFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFF6197654F8853FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFB493D59D74
            D19668CE9263CB8E5EC98A5BC7875666945B569D5E53995A2A712F266B2B2366
            274C723AC6D7C7FFFFFFD7A175F8F2EDF7F0EAF6EDE6F4EAE2F3E7DE529A5860
            A7688DCD978ACB9487CA9184C98E81C88C60A7684D8250C6D7C7D9A47AF9F3EE
            EBD2BEFFFFFFEBD3BFFFFFFFFFFFFF75B17B62A96A5DA46535803B317A365197
            5882C88D5BA1637AA27CDDA87EF9F3EFEBD0BAEBD0BBEBD0BBF4E6DAF4EFE7F9
            F1EC70AB72609F62F4E6D9F4E6D96197632D7533296F2E407C44DFAA82F9F3EF
            EACEB7FFFFFFEBD0BBFFFFFFFFFFFFFFFFFFF9F2EC82B886FFFFFFFFFFFFF7F0
            EBC88D5FFFFFFFFFFFFFE1AE87FAF4F0EACBB2EACCB3EACCB3F6E9DEF9F1EAF9
            F2EBF3E5D9F5E6DBF3E3D77CAC78F5EFE9C48654FFFFFFFFFFFFE3B18CFAF6F1
            EAC9AEFFFFFFEAC9B074C57E5DB8685AB3647CBB7DFFFFFFFFFFFF68AC6F6EAA
            72C58655F8FBF8FFFFFFE5B48FFAF6F2E9C6AAE9C6ACEAC7AC9ECF988ECF97AA
            D9B17AC38357AF6152A95C6FB7786BB37468924FFFFFFFFFFFFFE7B794FBF7F4
            E9C3A6FFFFFFE8C4A9D9F1DC84CF8D94D29CABDAB2A8D9AFA5D8ADA2D6AA9FD5
            A76CB4745FA566FFFFFFE9BA98FBF7F4E9C3A6E9C3A6E9C3A6EFD3BDD3E0C38B
            CF9063C06F60BC6B5DB76779C28275BE7E73A15CFFFFFFFFFFFFEBBD9BFBF7F4
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7AC58382C5
            89D1976AFFFFFFFFFFFFECBF9EFBF7F49CD5A598D3A194D09D90CE988BCB9387
            C98EA3D5A8B9DFBCCDE8CF7FC987F9F6F2D49B6FFFFFFFFFFFFFEFC6A8FBF7F4
            FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7
            F4D8A378FFFFFFFFFFFFF7E1D2F1C8ACEDC09FEBBE9DEBBC9AE9BA96E7B793E6
            B590E4B28CE2AF88E0AC84DDA980DCA57DE2B696FFFFFFFFFFFF}
          OnClick = BtnRefrescarInformacionClick
        end
      end
    end
    object TabProcesos: TTabSheet
      Caption = #36827#31243'(Process)'
      ImageIndex = 30
      object ListView4: TspSkinListView
        Left = 0
        Top = 0
        Width = 507
        Height = 354
        Align = alClient
        Columns = <
          item
            Caption = #36827#31243#21517
            Width = 100
          end
          item
            Caption = 'PID'
            Width = 40
          end
          item
            Caption = #32447#31243#25968
          end
          item
            Caption = #20248#20808#32423
          end
          item
            AutoSize = True
            Caption = #36827#31243#36335#24452
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = 14
        Font.Name = 'Arial'
        Font.Style = []
        GridLines = True
        ReadOnly = True
        RowSelect = True
        ParentFont = False
        PopupMenu = PopupProcess
        TabOrder = 0
        ViewStyle = vsReport
        HeaderSkinDataName = 'resizebutton'
        VScrollBar = processscroll
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        SkinData = FormMain.spSkinData1
        SkinDataName = 'listview'
        DefaultColor = clWindow
        UseSkinFont = True
      end
      object processscroll: TspSkinScrollBar
        Left = 507
        Top = 0
        Width = 19
        Height = 354
        TabOrder = 1
        Visible = False
        DrawDefault = True
        SkinDataName = 'vscrollbar'
        AlphaBlend = False
        AlphaBlendValue = 200
        UseSkinCursor = False
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 19
        DefaultHeight = 0
        Both = False
        BothMarkerWidth = 0
        BothSkinDataName = 'bothhscrollbar'
        CanFocused = False
        Align = alRight
        Kind = sbVertical
        PageSize = 13
        Min = 0
        Max = 100
        Position = 0
        SmallChange = 1
        LargeChange = 13
      end
      object Panel1: TPanel
        Left = 0
        Top = 354
        Width = 526
        Height = 41
        Align = alBottom
        TabOrder = 2
        DesignSize = (
          526
          41)
        object BtnRefrescarProcesos: TSpeedButton
          Left = 363
          Top = 11
          Width = 131
          Height = 22
          Cursor = crHandPoint
          Anchors = [akRight, akBottom]
          Caption = #21047#26032'(Refresh)'
          Flat = True
          Glyph.Data = {
            36030000424D3603000000000000360000002800000010000000100000000100
            18000000000000030000120B0000120B00000000000000000000FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFD6E9B70FFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFF6197654F8853FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFB493D59D74
            D19668CE9263CB8E5EC98A5BC7875666945B569D5E53995A2A712F266B2B2366
            274C723AC6D7C7FFFFFFD7A175F8F2EDF7F0EAF6EDE6F4EAE2F3E7DE529A5860
            A7688DCD978ACB9487CA9184C98E81C88C60A7684D8250C6D7C7D9A47AF9F3EE
            EBD2BEFFFFFFEBD3BFFFFFFFFFFFFF75B17B62A96A5DA46535803B317A365197
            5882C88D5BA1637AA27CDDA87EF9F3EFEBD0BAEBD0BBEBD0BBF4E6DAF4EFE7F9
            F1EC70AB72609F62F4E6D9F4E6D96197632D7533296F2E407C44DFAA82F9F3EF
            EACEB7FFFFFFEBD0BBFFFFFFFFFFFFFFFFFFF9F2EC82B886FFFFFFFFFFFFF7F0
            EBC88D5FFFFFFFFFFFFFE1AE87FAF4F0EACBB2EACCB3EACCB3F6E9DEF9F1EAF9
            F2EBF3E5D9F5E6DBF3E3D77CAC78F5EFE9C48654FFFFFFFFFFFFE3B18CFAF6F1
            EAC9AEFFFFFFEAC9B074C57E5DB8685AB3647CBB7DFFFFFFFFFFFF68AC6F6EAA
            72C58655F8FBF8FFFFFFE5B48FFAF6F2E9C6AAE9C6ACEAC7AC9ECF988ECF97AA
            D9B17AC38357AF6152A95C6FB7786BB37468924FFFFFFFFFFFFFE7B794FBF7F4
            E9C3A6FFFFFFE8C4A9D9F1DC84CF8D94D29CABDAB2A8D9AFA5D8ADA2D6AA9FD5
            A76CB4745FA566FFFFFFE9BA98FBF7F4E9C3A6E9C3A6E9C3A6EFD3BDD3E0C38B
            CF9063C06F60BC6B5DB76779C28275BE7E73A15CFFFFFFFFFFFFEBBD9BFBF7F4
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7AC58382C5
            89D1976AFFFFFFFFFFFFECBF9EFBF7F49CD5A598D3A194D09D90CE988BCB9387
            C98EA3D5A8B9DFBCCDE8CF7FC987F9F6F2D49B6FFFFFFFFFFFFFEFC6A8FBF7F4
            FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7
            F4D8A378FFFFFFFFFFFFF7E1D2F1C8ACEDC09FEBBE9DEBBC9AE9BA96E7B793E6
            B590E4B28CE2AF88E0AC84DDA980DCA57DE2B696FFFFFFFFFFFF}
          OnClick = BtnRefrescarProcesosClick
        end
      end
    end
    object TabVentanas: TTabSheet
      Caption = #31383#21475'(window)'
      ImageIndex = 29
      object ListViewVentanas: TListView
        Left = 0
        Top = 0
        Width = 526
        Height = 354
        Align = alClient
        BevelInner = bvNone
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        Columns = <
          item
            Caption = #26631#39064
            Width = 290
          end
          item
            Caption = #21477#26564
            Width = 150
          end>
        FlatScrollBars = True
        GridLines = True
        ReadOnly = True
        RowSelect = True
        PopupMenu = PopupWindows
        TabOrder = 0
        ViewStyle = vsReport
        OnColumnClick = ListViewProcesosColumnClick
        OnCompare = ListViewProcesosCompare
      end
      object Panel4: TPanel
        Left = 0
        Top = 354
        Width = 526
        Height = 41
        Align = alBottom
        TabOrder = 1
        DesignSize = (
          526
          41)
        object BtnRefrescarVentanas: TSpeedButton
          Left = 390
          Top = 11
          Width = 123
          Height = 22
          Cursor = crHandPoint
          Anchors = [akRight, akBottom]
          Caption = #21047#26032'(Refresh)'
          Flat = True
          Glyph.Data = {
            36030000424D3603000000000000360000002800000010000000100000000100
            18000000000000030000120B0000120B00000000000000000000FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCFDFD6E9B70FFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFF6197654F8853FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFB493D59D74
            D19668CE9263CB8E5EC98A5BC7875666945B569D5E53995A2A712F266B2B2366
            274C723AC6D7C7FFFFFFD7A175F8F2EDF7F0EAF6EDE6F4EAE2F3E7DE529A5860
            A7688DCD978ACB9487CA9184C98E81C88C60A7684D8250C6D7C7D9A47AF9F3EE
            EBD2BEFFFFFFEBD3BFFFFFFFFFFFFF75B17B62A96A5DA46535803B317A365197
            5882C88D5BA1637AA27CDDA87EF9F3EFEBD0BAEBD0BBEBD0BBF4E6DAF4EFE7F9
            F1EC70AB72609F62F4E6D9F4E6D96197632D7533296F2E407C44DFAA82F9F3EF
            EACEB7FFFFFFEBD0BBFFFFFFFFFFFFFFFFFFF9F2EC82B886FFFFFFFFFFFFF7F0
            EBC88D5FFFFFFFFFFFFFE1AE87FAF4F0EACBB2EACCB3EACCB3F6E9DEF9F1EAF9
            F2EBF3E5D9F5E6DBF3E3D77CAC78F5EFE9C48654FFFFFFFFFFFFE3B18CFAF6F1
            EAC9AEFFFFFFEAC9B074C57E5DB8685AB3647CBB7DFFFFFFFFFFFF68AC6F6EAA
            72C58655F8FBF8FFFFFFE5B48FFAF6F2E9C6AAE9C6ACEAC7AC9ECF988ECF97AA
            D9B17AC38357AF6152A95C6FB7786BB37468924FFFFFFFFFFFFFE7B794FBF7F4
            E9C3A6FFFFFFE8C4A9D9F1DC84CF8D94D29CABDAB2A8D9AFA5D8ADA2D6AA9FD5
            A76CB4745FA566FFFFFFE9BA98FBF7F4E9C3A6E9C3A6E9C3A6EFD3BDD3E0C38B
            CF9063C06F60BC6B5DB76779C28275BE7E73A15CFFFFFFFFFFFFEBBD9BFBF7F4
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7AC58382C5
            89D1976AFFFFFFFFFFFFECBF9EFBF7F49CD5A598D3A194D09D90CE988BCB9387
            C98EA3D5A8B9DFBCCDE8CF7FC987F9F6F2D49B6FFFFFFFFFFFFFEFC6A8FBF7F4
            FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7F4FBF7
            F4D8A378FFFFFFFFFFFFF7E1D2F1C8ACEDC09FEBBE9DEBBC9AE9BA96E7B793E6
            B590E4B28CE2AF88E0AC84DDA980DCA57DE2B696FFFFFFFFFFFF}
          OnClick = BtnRefrescarVentanasClick
        end
      end
    end
    object TabRegistro: TTabSheet
      Caption = #27880#20876#34920'(Registry)'
      ImageIndex = 32
      DesignSize = (
        526
        395)
      object LabelPathRegistro: TLabel
        Left = 7
        Top = -775
        Width = 23
        Height = 13
        Anchors = [akLeft, akRight, akBottom]
        Caption = 'Ruta'
      end
      object TreeViewRegedit: TTreeView
        Left = 0
        Top = 0
        Width = 185
        Height = 354
        Align = alLeft
        BevelInner = bvNone
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        Images = IconsArchivos
        Indent = 19
        ParentShowHint = False
        PopupMenu = PopupRegistro
        RightClickSelect = True
        RowSelect = True
        ShowHint = False
        TabOrder = 0
        OnChange = TreeViewRegeditChange
        OnContextPopup = TreeViewRegeditContextPopup
        OnDblClick = TreeViewRegeditDblClick
        Items.Data = {
          050000002A0000000100000000000000FFFFFFFFFFFFFFFF0000000000000000
          11484B45595F434C41535345535F524F4F542A0000000100000000000000FFFF
          FFFFFFFFFFFF000000000000000011484B45595F43555252454E545F55534552
          2B0000000100000000000000FFFFFFFFFFFFFFFF000000000000000012484B45
          595F4C4F43414C5F4D414348494E45230000000100000000000000FFFFFFFFFF
          FFFFFF00000000000000000A484B45595F55534552532C000000010000000000