main.dfm

把IP地址转化成电脑名称 在D7 中 windows xp下通过

object Form1: TForm1
  Left = 329
  Top = 198
  Width = 253
  Height = 124
  Caption = 'LAN Tool'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000000000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000080000000000000000088880000000F780800000000000000080008800000
    00F78080000000000000809100880880000F7808000000000008091097080088
    0007780800000000008091097108070880877808000000000809109719000F80
    08777808000000008091097190000F78877778088000000809109719000000F7
    7777FF8088000080910971900000000FFFFFF778088000091097190000000000
    00007F77808800910971900000000000000007F7780880109719000000000000
    0000007F77800009719000000000000000000007F70910071900000000000000
    000000007F709100000000000000000000000000078009108000000000000000
    00000000080700908800000000000000000000008070F7080880000000000000
    0000000807007F77808800000000000000000080700007F77808800000000000
    000008070000007F77808800000000000000807000000007F778088000000000
    00080700000000007F77808888000000008070000000000007F7F80000800000
    0807000000000000007FF788880800008070000000000000000F777777800080
    08000000000000000000778000F0080880000000000000000000780800000077
    80000000000000000000F8080000077700000000000000000000F70880000770
    000000000000000000000F70800000000000000000000000000000000000F07F
    FFC3F03FFF81F81FFF009C0FFE000C0FFC00000FF801000FF0030007E0078003
    C00FC001C01FE000803FFF00007FFF8000FFFFC001FFFFE003FFFFF007FFFFF8
    03FFFFF001FFFFE000FFFFC3007FFF87803FFF0FC01FFE1FE003FC3FF001F87F
    F800F0FFFC00C1FFFE0083FFFE0C83FFFE0E07FFFE070FFFFF079FFFFF8F}
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 11
    Top = 16
    Width = 13
    Height = 13
    Alignment = taRightJustify
    Caption = 'IP:'
  end
  object laHostName: TLabel
    Left = 32
    Top = 40
    Width = 58
    Height = 13
    Caption = 'laHostName'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object edIP: TMaskEdit
    Left = 32
    Top = 16
    Width = 193
    Height = 21
    TabOrder = 0
    OnKeyDown = edIPKeyDown
  end
  object btnIP: TBitBtn
    Left = 32
    Top = 56
    Width = 75
    Height = 25
    Caption = 'OK'
    TabOrder = 1
    OnClick = btnIPClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object btnClose: TBitBtn
    Left = 136
    Top = 56
    Width = 75
    Height = 25
    TabOrder = 2
    OnClick = btnCloseClick
    Kind = bkClose
  end
end