main.dfm

最好的局域网搜索软件

                Height = 1
                Cursor = crVSplit
                Align = alTop
                Color = clGray
                ParentColor = False
              end
              object IpTree: TTreeView
                Left = 0
                Top = 131
                Width = 241
                Height = 242
                Align = alClient
                BorderStyle = bsNone
                HideSelection = False
                HotTrack = True
                Images = ImageList1
                Indent = 19
                PopupMenu = LanTreePopupMenu
                ReadOnly = True
                RightClickSelect = True
                TabOrder = 0
                OnClick = IpTreeClick
                Items.Data = {
                  01000000250000000400000004000000FFFFFFFFFFFFFFFF0000000000000000
                  0CCBD1CBF74950B5D8D6B7B6CE}
              end
              object Panel2: TPanel
                Left = 0
                Top = 17
                Width = 241
                Height = 113
                Align = alTop
                BevelOuter = bvNone
                Color = clWhite
                Constraints.MaxHeight = 113
                Constraints.MinHeight = 20
                TabOrder = 1
                object Label2: TLabel
                  Left = 5
                  Top = 29
                  Width = 36
                  Height = 12
                  Caption = '起始：'
                end
                object Label3: TLabel
                  Left = 5
                  Top = 51
                  Width = 36
                  Height = 12
                  Caption = '终止：'
                end
                object Label6: TLabel
                  Left = 5
                  Top = 75
                  Width = 60
                  Height = 12
                  Caption = '扫描方式：'
                end
                object btnAddrUp: TSpeedButton
                  Left = 185
                  Top = 48
                  Width = 25
                  Height = 16
                  Hint = '上一网段'
                  Anchors = [akTop, akRight]
                  Glyph.Data = {
                    BE000000424DBE00000000000000760000002800000009000000090000000100
                    0400000000004800000000000000000000001000000000000000000000000000
                    8000008000000080800080000000800080008080000080808000C0C0C0000000
                    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
                    0000FFFFFFFFF00000000000000000000000F0000000F0000000FF00000FF000
                    0000FFF000FFF0000000FFFF0FFFF0000000FFFFFFFFF0000000FFFFFFFFF000
                    0000}
                  ParentShowHint = False
                  ShowHint = True
                  OnClick = btnAddrUpClick
                end
                object btnAddrDown: TSpeedButton
                  Left = 210
                  Top = 48
                  Width = 24
                  Height = 16
                  Hint = '下一网段'
                  Anchors = [akTop, akRight]
                  Glyph.Data = {
                    BE000000424DBE00000000000000760000002800000009000000090000000100
                    0400000000004800000000000000000000001000000000000000000000000000
                    8000008000000080800080000000800080008080000080808000C0C0C0000000
                    FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
                    0000FFFFFFFFF0000000FFFF0FFFF0000000FFF000FFF0000000FF00000FF000
                    0000F0000000F00000000000000000000000FFFFFFFFF0000000FFFFFFFFF000
                    0000}
                  ParentShowHint = False
                  ShowHint = True
                  OnClick = btnAddrDownClick
                end
                object edtIP1: TEdit
                  Left = 42
                  Top = 25
                  Width = 139
                  Height = 20
                  Anchors = [akLeft, akTop, akRight]
                  TabOrder = 0
                  Text = '255.255.255.255'
                end
                object edtIP2: TEdit
                  Left = 42
                  Top = 47
                  Width = 139
                  Height = 20
                  Anchors = [akLeft, akTop, akRight]
                  TabOrder = 1
                  Text = '255.255.255.255'
                end
                object ToolBar4: TToolBar
                  Left = 0
                  Top = 0
                  Width = 241
                  Height = 24
                  AutoSize = True
                  ButtonWidth = 57
                  Caption = 'ToolBar3'
                  Color = clWhite
                  EdgeBorders = [ebBottom]
                  Flat = True
                  Images = ImageList1
                  List = True
                  ParentColor = False
                  ShowCaptions = True
                  TabOrder = 2
                  object btnIP: TToolButton
                    Left = 0
                    Top = 0
                    AutoSize = True
                    Caption = '扫描'
                    ImageIndex = 4
                    OnClick = btnIPClick
                  end
                  object ToolBtnSearcIP: TToolButton
                    Left = 55
                    Top = 0
                    AutoSize = True
                    Caption = '搜索'
                    ImageIndex = 45
                    OnClick = ToolBtnSearcIPClick
                  end
                  object ToolBtnIpHelp: TToolButton
                    Left = 110
                    Top = 0
                    Caption = ' 帮助'
                    ImageIndex = 68
                    OnClick = ToolBtnIpHelpClick
                  end
                  object ToolBtnSave: TToolButton
                    Left = 167
                    Top = 0
                    Caption = '收藏'
                    ImageIndex = 33
                    OnClick = ToolBtnSaveClick
                  end
                end
                object cbScanMode: TComboBox
                  Left = 64
                  Top = 71
                  Width = 171
                  Height = 20
                  Style = csDropDownList
                  Anchors = [akLeft, akTop, akRight]
                  ItemHeight = 12
                  TabOrder = 3
                  Items.Strings = (
                    '采用 Nbtstat 扫描'
                    '采用 Ping 扫描'
                    '采用 TCP 139端口 扫描')
                end
                object cbNewRoot: TCheckBox
                  Left = 5
                  Top = 95
                  Width = 100
                  Height = 17
                  Caption = '添加新根节点'
                  TabOrder = 4
                end
                object btnSetAddr: TButton
                  Left = 185
                  Top = 26
                  Width = 49
                  Height = 18
                  Hint = '将扫描范围设置为本C类网的IP地址段'
                  Anchors = [akTop, akRight]
                  Caption = '本网段'
                  ParentShowHint = False
                  ShowHint = True
                  TabOrder = 5
                  OnClick = btnSetAddrClick
                end
              end
              object Panel7: TPanel
                Left = 0
                Top = 0
                Width = 241
                Height = 17
                Align = alTop
                BevelInner = bvRaised
                BevelOuter = bvNone
                Color = clMenu
                TabOrder = 2
                object Label7: TLabel
                  Left = 5
                  Top = 3
                  Width = 60
                  Height = 12
                  Caption = '搜索类型：'
                end
                object cbShare: TCheckBox
                  Left = 65
                  Top = 2
                  Width = 45
                  Height = 14
                  Caption = '共享'
                  Checked = True
                  State = cbChecked
                  TabOrder = 0
                end
                object cbFtp: TCheckBox
                  Left = 112
                  Top = 2
                  Width = 39
                  Height = 14
                  Caption = 'FTP'
                  TabOrder = 1
                  OnClick = cbFtpClick
                end
                object cbHttp: TCheckBox
                  Left = 153
                  Top = 2
                  Width = 44
                  Height = 14
                  Caption = 'HTTP'
                  TabOrder = 2
                  OnClick = cbHttpClick
                end
              end
            end
          end
        end
      end
      object FavoTabSheet: TTabSheet
        Caption = '收藏'
        ImageIndex = 33
        object FavoTree: TTreeView
          Left = 0
          Top = 0
          Width = 253
          Height = 409
          Align = alClient
          HideSelection = False
          HotTrack = True
          Images = ImageList1
          Indent = 19
          PopupMenu = LanTreePopupMenu
          ReadOnly = True
          RightClickSelect = True
          TabOrder = 0
          OnClick = FavoTreeClick
          Items.Data = {
            010000001D0000002100000021000000FFFFFFFFFFFFFFFF0000000000000000
            04CAD5B2D8}
        end
      end
      object SearchHostTabSheet: TTabSheet
        Caption = '查找'
        ImageIndex = 13
        object Panel1: TPanel
          Left = 0
          Top = 0
          Width = 253
          Height = 409
          Align = alClient
          BevelOuter = bvNone
          BorderStyle = bsSingle
          Caption = 'Panel1'
          TabOrder = 0
          object Splitter5: TSplitter
            Left = 0
            Top = 190
            Width = 249
            Height = 1
            Cursor = crVSplit
            Align = alTop
            Color = clGray
            ParentColor = False
          end
          object STPanel: TPanel
            Left = 0
            Top = 0
            Width = 249
            Height = 190
            Align = alTop
            BevelOuter = bvNone
            Color = clWindow
            Constraints.MaxHeight = 190
            Constraints.MinHeight = 68
            TabOrder = 0
            object Label1: TLabel
              Left = 5
              Top = 7
              Width = 60
              Height = 12
              Caption = '计算机名：'
            end
            object BtnFind: TSpeedButton
              Left = 182
              Top = 47
              Width = 60
              Height = 20
              Anchors = [akTop, akRight]
              Caption = '立即搜索'
              Transparent = False
              OnClick = BtnFindClick
            end
            object Edit1: TEdit
              Left = 5
              Top = 23