client.dfm

控制局域网的机器远程关机的程序,自己用了几次,感觉还可以 不知道你们用的感觉如何

object Form1: TForm1
  Left = 68
  Top = 111
  BorderStyle = bsDialog
  Caption = 'Form1'
  ClientHeight = 404
  ClientWidth = 715
  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 GroupBox2: TGroupBox
    Left = 0
    Top = 0
    Width = 714
    Height = 403
    Align = alCustom
    Color = clSkyBlue
    ParentColor = False
    TabOrder = 0
    object Label1: TLabel
      Left = 196
      Top = 9
      Width = 133
      Height = 21
      AutoSize = False
      Caption = #36830' '#25509' '#29366' '#24577
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 9
      Top = 381
      Width = 106
      Height = 20
      AutoSize = False
      Caption = #24050#36830#19978#23458#25143#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 107
      Top = 379
      Width = 46
      Height = 20
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Panel1: TPanel
      Left = 2
      Top = 32
      Width = 514
      Height = 344
      Align = alCustom
      BevelInner = bvLowered
      BevelOuter = bvNone
      Caption = 'Panel1'
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 0
      object StringGrid1: TStringGrid
        Left = 1
        Top = 1
        Width = 512
        Height = 342
        Align = alClient
        Color = clGradientActiveCaption
        DefaultRowHeight = 16
        FixedColor = clActiveBorder
        FixedCols = 0
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        GridLineWidth = 2
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing]
        ParentFont = False
        TabOrder = 0
      end
    end
    object GroupBox1: TGroupBox
      Left = 518
      Top = 27
      Width = 191
      Height = 349
      Caption = #25511#21046#35774#32622
      Color = clSkyBlue
      Ctl3D = True
      ParentColor = False
      ParentCtl3D = False
      TabOrder = 1
      object Label2: TLabel
        Left = 6
        Top = 76
        Width = 81
        Height = 16
        AutoSize = False
        Caption = #25191' '#34892' '#23545' '#35937
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object RadioButton2: TRadioButton
        Left = 89
        Top = 20
        Width = 81
        Height = 17
        Caption = #37325'   '#21551
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = RadioButton2Click
      end
      object RadioButton3: TRadioButton
        Left = 9
        Top = 50
        Width = 89
        Height = 17
        Caption = #27880'   '#38144
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = RadioButton3Click
      end
      object CheckBox1: TCheckBox
        Left = 88
        Top = 45
        Width = 100
        Height = 25
        Caption = #20840' '#20307' '#25191' '#34892
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object RadioButton1: TRadioButton
        Left = 8
        Top = 21
        Width = 81
        Height = 17
        Caption = #20851'   '#26426
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object ListBox1: TListBox
        Left = 3
        Top = 98
        Width = 185
        Height = 245
        Color = clGradientActiveCaption
        ItemHeight = 13
        Items.Strings = (
          'empty')
        MultiSelect = True
        TabOrder = 4
      end
      object BitBtn2: TBitBtn
        Left = 115
        Top = 72
        Width = 67
        Height = 24
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #40657#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
        OnClick = BitBtn2Click
        Kind = bkOK
      end
    end
  end
  object ServerSocket1: TServerSocket
    Active = True
    Port = 95
    ServerType = stNonBlocking
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientError = ServerSocket1ClientError
    Left = 128
    Top = 240
  end
end