u_ftptool.dfm

一个小的ftp程序

object Form1: TForm1
  Left = 13
  Top = 36
  Width = 798
  Height = 570
  Caption = #19978#20256#24037#20855
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 0
    Top = 383
    Width = 790
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object Splitter2: TSplitter
    Left = 278
    Top = 33
    Width = 7
    Height = 350
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 790
    Height = 33
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 5
      Top = 12
      Width = 27
      Height = 13
      AutoSize = False
      Caption = #20027#26426
    end
    object Label2: TLabel
      Left = 167
      Top = 12
      Width = 36
      Height = 12
      Caption = #29992#25143#21517
    end
    object Label3: TLabel
      Left = 336
      Top = 12
      Width = 24
      Height = 12
      Caption = #23494#30721
    end
    object Label4: TLabel
      Left = 496
      Top = 12
      Width = 24
      Height = 12
      Caption = #31471#21475
    end
    object HostEdit: TEdit
      Left = 32
      Top = 8
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      TabOrder = 0
    end
    object UserIDEdit: TEdit
      Left = 208
      Top = 8
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      TabOrder = 1
    end
    object PasswordEdit: TEdit
      Left = 368
      Top = 8
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      PasswordChar = '*'
      TabOrder = 2
      OnKeyPress = PasswordEditKeyPress
    end
    object PortEdit: TEdit
      Left = 527
      Top = 8
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      TabOrder = 3
      Text = '21'
    end
    object Button1: TButton
      Left = 656
      Top = 4
      Width = 57
      Height = 25
      Caption = #36830#25509
      TabOrder = 4
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 33
    Width = 278
    Height = 350
    Align = alLeft
    TabOrder = 1
    DesignSize = (
      278
      350)
    object ShellComboBox1: TShellComboBox
      Left = 8
      Top = 16
      Width = 233
      Height = 22
      Root = 'rfDesktop'
      ShellListView = ShellListView1
      UseShellImages = True
      DropDownCount = 8
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      TabOrder = 0
    end
    object ShellListView1: TShellListView
      Left = 8
      Top = 40
      Width = 233
      Height = 267
      ObjectTypes = [otFolders, otNonFolders]
      Root = 'rfDesktop'
      ShellComboBox = ShellComboBox1
      Sorted = True
      Anchors = [akLeft, akTop, akRight, akBottom]
      ReadOnly = False
      HideSelection = False
      TabOrder = 1
      ViewStyle = vsReport
    end
    object Button2: TButton
      Left = 188
      Top = 315
      Width = 75
      Height = 25
      Anchors = []
      Caption = #19978#20256
      Enabled = False
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object Panel3: TPanel
    Left = 285
    Top = 33
    Width = 505
    Height = 350
    Align = alClient
    Caption = 'Panel3'
    TabOrder = 2
    Visible = False
    DesignSize = (
      505
      350)
    object SpeedButton1: TSpeedButton
      Left = 180
      Top = 10
      Width = 23
      Height = 22
      Flat = True
      Glyph.Data = {
        42030000424D42030000000000003600000028000000110000000F0000000100
        1800000000000C030000C40E0000C40E00000000000000000000CED3D6CED3D6
        CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D600CED3D6000000000000000000000000000000
        000000000000000000000000000000000000000000000000000000000000CED3
        D600CED3D60065639CFFFF00CFFF00CFFF009ACE00CFFF009ACE00CFFF009ACE
        009ACE009ACE639A9C009ACE639A9C000000CED3D600CED3D60065639CFFFF00
        CFFF00CFFF00CFFF009ACE00CFFF009ACE00CFFF009ACE009ACE009ACE639A9C
        009ACE000000CED3D600CED3D60065639CFFFFFFFFFF00CFFF00CFFF31303131
        3031313031313031313031313031009ACE009ACE639A9C000000CED3D600CED3
        D60065639CFFFF00CFFFFFFFFF00CFFF31303100CFFF00CFFF00CFFF009ACE00
        CFFF009ACE009ACE009ACE000000CED3D600CED3D60065639CFFFFFFFFFF00CF
        FFFFFFFF31303100CFFF00CFFF00CFFF00CFFF009ACE00CFFF009ACE009ACE00
        0000CED3D600CED3D60065639CFFFF00CFFF3130313130313130313130313130
        3100CFFF00CFFF00CFFF00CFFF00CFFF009ACE000000CED3D600CED3D6006563
        9CFFFFFFFFFF00CFFF31303131303131303100CFFFFFFFFF00CFFF00CFFF00CF
        FF009ACE00CFFF000000CED3D600CED3D60065639CFFFF00CFFFFFFFFF00CFFF
        31303100CFFFFFFFFF00CFFFFFFFFF00CFFF00CFFF00CFFF009ACE000000CED3
        D600CED3D60065639CFFFF9CFFFF9CFFFF9CFFFF9CFFFF9CFFFF9CFFFF9CFFFF
        9CFFFF9CFFFF9CFFFF9CFFFF9CFFFF000000CED3D600CED3D600656300656300
        6563006563006563006563006563006563006563006563006563006563006563
        006563000000CED3D600CED3D6CED3D60065639CFFFF9CFFFF9CCFCE9CCFCE00
        9A9C000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D600CED3
        D6CED3D6CED3D6006563006563006563006563006563CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D600CED3D6CED3D6CED3D6CED3D6CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D600}
      OnClick = SpeedButton1Click
    end
    object Label5: TLabel
      Left = 8
      Top = 16
      Width = 48
      Height = 12
      AutoSize = False
      Caption = #24403#21069#30446#24405
    end
    object ListView1: TListView
      Left = 8
      Top = 40
      Width = 489
      Height = 299
      Anchors = [akLeft, akTop, akBottom]
      Columns = <
        item
          Caption = #21517#31216
          Width = 100
        end
        item
          Caption = #22823#23567
        end
        item
          Caption = #31867#22411
          Width = 80
        end
        item
          Caption = #26356#25913#26102#38388
          Width = 100
        end
        item
          Caption = #25152#26377#32773
        end>
      ReadOnly = True
      StateImages = ImageList2
      TabOrder = 0
      ViewStyle = vsReport
      OnDblClick = ListView1DblClick
    end
    object CurrentDirEdit: TEdit
      Left = 58
      Top = 12
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      ReadOnly = True
      TabOrder = 1
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 386
    Width = 790
    Height = 157
    Align = alBottom
    TabOrder = 3
    object ListBox1: TListBox
      Left = 1
      Top = 1
      Width = 788
      Height = 136
      Align = alClient
      ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
      ItemHeight = 12
      TabOrder = 0
    end
    object Panel5: TPanel
      Left = 1
      Top = 137
      Width = 788
      Height = 19
      Align = alBottom
      Caption = 'Panel5'
      TabOrder = 1
      object ProgressBar1: TProgressBar
        Left = 1
        Top = 2
        Width = 786
        Height = 16
        Align = alBottom
        Smooth = True
        Step = 1
        TabOrder = 0
      end
    end
  end
  object IdFTP1: TIdFTP
    MaxLineAction = maException
    ReadTimeout = 0