code.dfm

这个也不错

object Form1: TForm1
  Left = 184
  Top = 102
  Width = 627
  Height = 432
  Caption = '开门人               作者：邢益茂 '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    000001000200202002000000000030010000260000002020100000000000E802
    0000560100002800000020000000400000000100010000000000000100000000
    000000000000000000000000000000000000FFFFFF0007EE3BE01FEEBBF87FDD
    3DFEFFBA9DAB3F794E540EFC0CA001FDEE4001FEDD0001FEDE0001F9ED0001E6
    3600019FF900017FFD00007F3C00007FBC00007FBC0001E1A00001C0800001C0
    0000001FFF00007FFF8001FFFD4007FC02A00FE3F9400F9FF4A00F7FE940077F
    F200007FE800003F7000003EF000001CE00000000000F800001FE00000078000
    00010000000000000000C0000003F000000FFC00003FFC00007FFC00007FFC00
    007FFC00007FFC00007FFE0000FFFF0001FFFE0001FFFC0001FFFC0000FFF800
    00FFF800007FF800003FF800001FF000000FE000000FE000000FE000001FF000
    003FF80000FFFF8007FFFF8007FFFFC00FFFFFE31FFF28000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    08E8E8E6E86060E6707676800000000E8E8E8E868E6060E760676768E00008E8
    E8E8E868E86060E67606767E8E808E8E8E8E868E8606060E67076767E8E800E8
    E8E868E860606060067076768E0000008E868E8E86000000E760676700000000
    0008E8E8E6078870E676060000000000000E8E8E8E608F0E6767000000000000
    0008E8E8EF60770E7676000000000000000E8E8FF6688870E767000000000000
    0008EFF6688000770E76000000000000000EF668FFF888887067000000000000
    000F68FFFFF88778F70600000000000000000FFFFFF80078F700000000000000
    00000FFFFFFFF078870000000000000000000FF87777F0777700000000000000
    000F7F70000770700003000000000000000FF700000070000000000000000000
    000F7700000000000000000000000000000000078E8E8E8E8E87000000000000
    003008E8E8E8E8E8E8E8E00000000000000E8E8E8E8E8E8E8E67670000000000
    08E8E8E8E866600006767670000000008E8E8E86668E8E676067676000000000
    E8E8E668E8E8E8E676067670000000008E8E6E8E8E8E8E876707670000000000
    08E868E8E8E8E8E6707600000000000000000E8E8EFE66876000000000000000
    000000E8EF8606E600000000000000000000008EFE6066860000000000000000
    00000008E800686000000000000000000000000000000000000000000000F800
    001FE0000007800000010000000000000000C0000003F000000FFC00003FFC00
    007FFC00007FFC00007FFC00007FFC00007FFE0000FFFF0001FFFE0000FFFC00
    007FFC00007FF800007FF800007FF800003FF800001FF000000FE000000FE000
    000FE000001FF000003FF80000FFFF8007FFFF8007FFFFC00FFFFFE31FFF}
  Menu = MainMenu1
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 619
    Height = 89
    Bands = <
      item
        Break = False
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 45
        Text = ' '
        Width = 615
      end
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 38
        Text = ' '
        Width = 615
      end>
    object ToolBar1: TToolBar
      Tag = 9
      Left = 16
      Top = 0
      Width = 595
      Height = 45
      Align = alClient
      BorderWidth = 1
      ButtonHeight = 41
      ButtonWidth = 49
      Caption = 'ToolBar1'
      DisabledImages = ImageList1
      EdgeBorders = [ebLeft]
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      HotImages = ImageList1
      Images = ImageList1
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Hint = '添加主机'
        Caption = '连接主机'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 49
        Top = 0
        Hint = '断开主机'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 98
        Top = 0
        Hint = '扫描主机'
        DropdownMenu = PopupMenu1
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        Style = tbsDropDown
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 160
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 168
        Top = 0
        Hint = '查获屏幕'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 217
        Top = 0
        Hint = '屏幕控制'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 266
        Top = 0
        Hint = '数据信使'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton7Click
      end
      object ToolButton8: TToolButton
        Left = 315
        Top = 0
        Width = 8
        Caption = 'ToolButton8'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object ToolButton9: TToolButton
        Left = 323
        Top = 0
        Hint = '修改主机'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton10: TToolButton
        Left = 372
        Top = 0
        Hint = '最小化'
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton10Click
      end
      object ToolButton11: TToolButton
        Left = 421
        Top = 0
        Hint = '退出'
        Caption = 'ToolButton11'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton11Click
      end
      object ToolButton12: TToolButton
        Left = 470
        Top = 0
        Hint = '保存列表文件'
        Caption = '保存列表文件'
        ImageIndex = 0
        OnClick = ToolButton12Click
      end
    end
    object ToolBar2: TToolBar
      Left = 16
      Top = 47
      Width = 595
      Height = 38
      ButtonHeight = 20
      Caption = 'ToolBar2'
      TabOrder = 1
      object Label1: TLabel
        Left = 0
        Top = 2
        Width = 32
        Height = 20
        Caption = '主机'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object ComboBox1: TComboBox
        Left = 32
        Top = 2
        Width = 248
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 20
        ParentFont = False
        TabOrder = 0
        Text = '127.0.0.1'
        OnKeyPress = ComboBox1KeyPress
        Items.Strings = (
          '210.37.48.1')
      end
      object Label2: TLabel
        Left = 280
        Top = 2
        Width = 40
        Height = 20
        Caption = ' 端口 '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 320
        Top = 2
        Width = 88
        Height = 20
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Text = '10150'
      end
      object BitBtn6: TBitBtn
        Left = 408
        Top = 2
        Width = 97
        Height = 20
        Caption = '连接'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BitBtn6Click
        Kind = bkIgnore
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 367
    Width = 619
    Height = 19
    Panels = <
      item
        Style = psOwnerDraw
        Width = 200
      end
      item
        Width = 250
      end
      item
        Bevel = pbNone
        Text = '作者：邢益茂 '
        Width = 50
      end>
    SimplePanel = False
    OnDrawPanel = StatusBar1DrawPanel
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 89
    Width = 619
    Height = 278
    ActivePage = TabSheet2
    Align = alClient
    Images = ImageList2
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = '主机管理'
      ImageIndex = 2
      object Splitter1: TSplitter
        Left = 169
        Top = 0
        Width = 8
        Height = 249
        Cursor = crHSplit
      end
      object TreeView1: TTreeView
        Left = 0
        Top = 0
        Width = 169
        Height = 249
        Align = alLeft
        Images = ImageList2
        Indent = 35
        TabOrder = 0
        Items.Data = {
          0100000021000000020000000200000002000000FFFFFFFF0000000001000000
          08CED2B5C4B5E7C4D41B000000000000000000000000000000FFFFFFFF000000
          000000000002633A}
      end
      object ListView1: TListView
        Left = 177
        Top = 0
        Width = 434
        Height = 249
        Align = alClient
        Columns = <
          item
            Caption = '文件名'
            Width = 100
          end
          item
            Caption = '文件大小'
            Width = 100
          end
          item
            Caption = '建立时间'
            Width = 100
          end>
        Items.Data = {