unit1.dfm

WorlGroupComputer 获取指定工作组内计算机名

object frmMain: TfrmMain
  Left = 217
  Top = 108
  Width = 257
  Height = 303
  Caption = #33719#21462#25351#23450#24037#20316#32452#20869#35745#31639#26426#21517
  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 GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 249
    Height = 49
    Caption = #24037#20316#32452#21517
    TabOrder = 0
    object Edit1: TEdit
      Left = 104
      Top = 18
      Width = 137
      Height = 21
      TabOrder = 0
      Text = 'Workgroup'
    end
    object StaticText1: TStaticText
      Left = 13
      Top = 22
      Width = 88
      Height = 17
      Caption = #35831#36755#20837#24037#20316#32452#21517
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 48
    Width = 249
    Height = 177
    Caption = #36820#22238#20449#24687
    TabOrder = 1
    object Memo1: TMemo
      Left = 2
      Top = 15
      Width = 245
      Height = 160
      Align = alClient
      Lines.Strings = (
        '')
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 224
    Width = 249
    Height = 49
    TabOrder = 2
    object btnRun: TButton
      Left = 25
      Top = 16
      Width = 73
      Height = 25
      Caption = #25191#34892
      TabOrder = 0
      OnClick = btnRunClick
    end
    object btnExit: TButton
      Left = 144
      Top = 16
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 1
      OnClick = btnExitClick
    end
  end
end