unit1.~dfm

可以检查网络欲行状态

object frmMain: TfrmMain
  Left = 281
  Top = 104
  Width = 297
  Height = 269
  Caption = #33719#21462#24037#20316#32452
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 289
    Height = 193
    Caption = 'Panel1'
    TabOrder = 0
    object memResult: TMemo
      Left = 1
      Top = 1
      Width = 287
      Height = 191
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 192
    Width = 289
    Height = 49
    TabOrder = 1
    object btnRun: TButton
      Left = 40
      Top = 16
      Width = 75
      Height = 25
      Caption = #25191#34892
      TabOrder = 0
      OnClick = btnRunClick
    end
    object btnExit: TButton
      Left = 174
      Top = 16
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 1
      OnClick = btnExitClick
    end
  end
end