unit1.~dfm

将某个目录下的子目录结构转换为excle文件中

object Form1: TForm1
  Left = 260
  Top = 163
  Width = 394
  Height = 311
  Caption = #30446#24405#25171#21360
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 386
    Height = 243
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object DirectoryListBox1: TDirectoryListBox
      Left = 1
      Top = 28
      Width = 177
      Height = 214
      Align = alLeft
      FileList = FileListBox1
      ImeMode = imDisable
      ItemHeight = 16
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 384
      Height = 27
      Align = alTop
      Color = 15132390
      TabOrder = 1
      object DriveComboBox1: TDriveComboBox
        Left = 3
        Top = 4
        Width = 182
        Height = 19
        DirList = DirectoryListBox1
        TabOrder = 0
      end
      object CheckBox1: TCheckBox
        Left = 194
        Top = 5
        Width = 216
        Height = 17
        Caption = #21253#21547#30446#24405#20013#30340#25991#20214
        Font.Charset = EASTEUROPE_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
      end
    end
    object FileListBox1: TFileListBox
      Left = 186
      Top = 28
      Width = 199
      Height = 214
      Align = alClient
      ItemHeight = 13
      TabOrder = 2
    end
    object cxSplitter1: TcxSplitter
      Left = 178
      Top = 28
      Width = 8
      Height = 214
      HotZoneClassName = 'TcxMediaPlayer9Style'
      Control = FileListBox1
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 243
    Width = 386
    Height = 41
    Align = alBottom
    TabOrder = 1
    object Button1: TButton
      Left = 144
      Top = 8
      Width = 75
      Height = 25
      Caption = #25171#21360
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object ListBox1: TListBox
    Left = 256
    Top = 32
    Width = 89
    Height = 105
    ItemHeight = 13
    TabOrder = 2
    Visible = False
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = True
    Active = True
    ControlUseTrueXPStyle = True
    BtnRoundArc = 5
    BtnOutLineBorderColor = 7552000
    BtnInnerBorderMoveColor = 3257087
    BtnInnerBorderFocusColor = 15183500
    BtnSurfaceNormalColor = 16251903
    BtnSurfaceDownColor = 14608359
    BtnSurfaceBottomLineColor = 14608359
    BtnSurfaceDownBottomLineColor = 15199215
    RdoChkControlChkColor = 41472
    ComboBoxChkColor = 9201994
    ComboboxSurfaceMoveColor = 16771030
    ControlDisabledBorderColor = 11913158
    Left = 136
    Top = 48
  end
end