u_frmsearchnetip.dfm

一个扫描局域网内的IP地址和MAC物理地址之间的对应表。根据上述功能做成了远程开启计算机。

        object TabSheet1: TTabSheet
          Caption = '局域网信息'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          object SgDispNetIP: TStringGrid
            Left = 0
            Top = 0
            Width = 509
            Height = 221
            Align = alClient
            DefaultColWidth = 100
            FixedCols = 0
            RowCount = 2
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
            ParentFont = False
            TabOrder = 0
            OnDblClick = SgDispNetIPDblClick
            OnSelectCell = SgDispNetIPSelectCell
            ColWidths = (
              116
              100
              108
              100
              164)
          end
        end
        object TabSheet2: TTabSheet
          Caption = '网络信息'
          ImageIndex = 1
          object RxRedDispinf: TRxRichEdit
            Left = 0
            Top = 0
            Width = 509
            Height = 221
            Align = alClient
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -19
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
          end
        end
        object TabSheet3: TTabSheet
          Caption = '信息'
          ImageIndex = 2
          object RxRichEdit1: TRxRichEdit
            Left = 0
            Top = 0
            Width = 509
            Height = 221
            Align = alClient
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -19
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            TabOrder = 0
            WordWrap = False
          end
        end
      end
    end
    object Panel5: TPanel
      Left = 517
      Top = 0
      Width = 132
      Height = 253
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object LabIP: TLabel
        Left = 0
        Top = 25
        Width = 80
        Height = 16
        Caption = '当前IP地址'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object LabStartTime: TLabel
        Left = 0
        Top = 49
        Width = 70
        Height = 14
        Caption = '开始时间：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object LabEndTime: TLabel
        Left = 0
        Top = 73
        Width = 70
        Height = 14
        Caption = '结束时间：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object LabTime: TLabel
        Left = 0
        Top = 97
        Width = 70
        Height = 14
        Caption = '扫描用时：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Label4: TLabel
        Left = 0
        Top = 121
        Width = 56
        Height = 14
        Caption = 'IP个数：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object Panel6: TPanel
        Left = 0
        Top = 148
        Width = 132
        Height = 105
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 0
        object SBrnScanNetIP: TSpeedButton
          Left = 24
          Top = 9
          Width = 81
          Height = 38
          Caption = '扫描'
          Glyph.Data = {
            36020000424D3602000000000000360000002800000010000000100000000100
            10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEE39F6458D35
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C467AAB51574A
            8D351F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEA7E467AAB51
            574A8D351F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CEA7E467A
            AB51574A8D351F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0B7F
            467AAB51574A1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            EA7E467AAC358D355846363EF539584A92318D351F7C1F7C1F7C1F7C1F7C1F7C
            1F7CCC7AD65A163E7F53DF67FF67FF6BFF6B56428D351F7C1F7C1F7C1F7C1F7C
            1F7C1F7C56465F53DF5FFF67FF6BFF73FF7FFF7F363E8D351F7C1F7C1F7C1F7C
            1F7C1F7C1C4FDF5FBF5BFF67FF6FFF77FF7FFF7BFF6B93351F7C1F7C1F7C1F7C
            1F7C994A9F5B7F539F5BFF67FF6FFF73FF77FF73FF6B93351F7C1F7C1F7C1F7C
            1F7C994ADF635F4F7F57DF5FFF67FF6FFF6FFF6BFF6792311F7C1F7C1F7C1F7C
            1F7C1F7CBF5BDF6B7F579F57DF5FFF63FF67DF63BF63933D1F7C1F7C1F7C1F7C
            1F7C1F7C994AFF7FFF7F7F5BBF5F9F579F57FF631C4F1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C7D5FFF7FDF6B7F579F5BFF673F4BF5391F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C1F7C163E5D579F577F579A461F7C1F7C1F7C1F7C}
          OnClick = SBrnScanNetIPClick
        end
        object SBtnStopScan: TSpeedButton
          Left = 24
          Top = 57
          Width = 81
          Height = 40
          Caption = '停止'
          Glyph.Data = {
            36020000424D3602000000000000360000002800000010000000100000000100
            10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7C00380040003C003C003C003C00181F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            0044004000440044004400400040003C003C1F7C1F7C1F7C1F7C1F7C1F7C0044
            00480048004C004C004C004C00480040004000401F7C1F7C1F7C1F7C004C004C
            8454FF7F00500054005400540859FF7F00440040003C1F7C1F7C845800500054
            3853FF7FFF7F005400580859FF7BFF7F1056004C004400041F7C00500058005C
            0058F752FF7FFF7F4969FF7BFF7FAC4900580050004800341F7C005800600064
            0064005C5A5BFF7FFF7FFF7F10560060005C00580050004C1F7C215C2064216C
            006800640861FF7FFF7FFF7B0060006000600060005400581F7C4164426C4170
            006CE764FF7BFF7FFF77FF7FFF7F006000680064005800541F7C42686274637C
            2971FF77FF7FCE4900683853FF7FFF7F00702168215C00441F7CC670A57CA57C
            5A5BFF7FAC49007000700068F74AFF7FCD5D426C41646B351F7C1F7CA57C287D
            2979AC3D417C007C0074217C62742949847C637421641F7C1F7C1F7C1F7C087D
            AD7DEF7DCE7D4A7D087D297D4A7D087DC67C63781F7C1F7C1F7C1F7C1F7C1F7C
            297DEF7D937E947E727EEF7D8C7D287D847C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7CE77C8C7DEF7DEF7D8B7DE77CAD751F7C1F7C1F7C1F7C1F7C}
          OnClick = SBtnStopScanClick
        end
      end
    end
  end
end