main.dfm

Delphi获取目录大小

        'TChart')
      Legend.Alignment = laTop
      Legend.TextStyle = ltsLeftPercent
      View3DOptions.Elevation = 315
      View3DOptions.Orthogonal = False
      View3DOptions.Perspective = 0
      View3DOptions.Rotation = 360
      Align = alClient
      BorderStyle = bsSingle
      TabOrder = 0
    end
    object pnlInfo: TPanel
      Left = 0
      Top = 17
      Width = 430
      Height = 84
      Align = alTop
      BevelOuter = bvLowered
      Color = clMedGray
      TabOrder = 2
      DesignSize = (
        430
        84)
      object RunExplorerButton: TSpeedButton
        Left = 4
        Top = 5
        Width = 20
        Height = 20
        Hint = 'Open in Explorer'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550000000005
          555555777777777FF5555500000000805555557777777777FF555550BBBBB008
          05555557F5FFF7777FF55550B000B030805555F7F777F7F777F550000000B033
          005557777777F7F5775550BBBBB00033055557F5FFF777F57F5550B000B08033
          055557F77757F7F57F5550BBBBB08033055557F55557F7F57F5550BBBBB00033
          055557FFFFF777F57F5550000000703305555777777757F57F555550FFF77033
          05555557FFFFF7FF7F55550000000003055555777777777F7F55550777777700
          05555575FF5555777F55555003B3B3B00555555775FF55577FF55555500B3B3B
          005555555775FFFF77F555555570000000555555555777777755}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = RunExplorerButtonClick
      end
      object ledSizeBytes: TLabeledEdit
        Left = 124
        Top = 8
        Width = 297
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BevelEdges = [beRight, beBottom]
        BevelInner = bvLowered
        BevelKind = bkSoft
        BevelOuter = bvRaised
        BorderStyle = bsNone
        EditLabel.Width = 23
        EditLabel.Height = 13
        EditLabel.Caption = 'Size:'
        LabelPosition = lpLeft
        ReadOnly = True
        TabOrder = 0
      end
      object ledFiles: TLabeledEdit
        Left = 124
        Top = 32
        Width = 297
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BevelEdges = [beRight, beBottom]
        BevelInner = bvLowered
        BevelKind = bkSoft
        BevelOuter = bvRaised
        BorderStyle = bsNone
        EditLabel.Width = 98
        EditLabel.Height = 13
        EditLabel.Caption = 'Total number of files:'
        LabelPosition = lpLeft
        ReadOnly = True
        TabOrder = 1
      end
      object ledFolders: TLabeledEdit
        Left = 124
        Top = 56
        Width = 297
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        BevelEdges = [beRight, beBottom]
        BevelInner = bvLowered
        BevelKind = bkSoft
        BevelOuter = bvRaised
        BorderStyle = bsNone
        EditLabel.Width = 111
        EditLabel.Height = 13
        EditLabel.Caption = 'Total number of folders:'
        LabelPosition = lpLeft
        ReadOnly = True
        TabOrder = 2
      end
    end
  end
  object pnlTree: TPanel
    Left = 0
    Top = 53
    Width = 185
    Height = 412
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 2
    object FolderTree: TTreeView
      Left = 0
      Top = 29
      Width = 185
      Height = 383
      Cursor = crHandPoint
      Align = alClient
      Color = clCream
      Indent = 19
      ReadOnly = True
      TabOrder = 0
      OnClick = FolderTreeClick
    end
    object pnlTreeTop: TPanel
      Left = 0
      Top = 0
      Width = 185
      Height = 29
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 1
      DesignSize = (
        185
        29)
      object Label1: TLabel
        Left = 4
        Top = 12
        Width = 53
        Height = 13
        Caption = 'Folder tree:'
      end
      object sbtnCollapse: TSpeedButton
        Left = 136
        Top = 5
        Width = 20
        Height = 20
        Anchors = [akTop, akRight]
        Flat = True
        Glyph.Data = {
          36050000424D3605000000000000360400002800000010000000100000000100
          08000000000000010000740C0000740C00000001000000000000000000008400
          0000FF000000008400008484000000FF0000FFFF000000008400840084000084
          840084848400BDBDBD00C6C6C6000000FF00FF00FF0000FFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000B0C0B0B0B0B
          0C0B0B0C0B0B0B0B0C0B0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B
          0B0B00000000000000000C0B0C0B0B0B0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B
          0B0B0C0B0B00000000000B0B0B0B010B0B0B0B0B0B0B0B0B0B0C0C0B0B0B0101
          0B0B0B0B0B00000000000B0B01010101010B0B0C0B0B0B0B0B0B0B010B0B0101
          0B0B0B0B0B00000000000B010B0B010B0B0B0B0B0B0B0B0B0B0B0B010B0B0B0B
          0B0B00000000000000000B010B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B01010101
          0101010B0B0C0B0B0B0B0B0B0B0B0B0B0C0B0B0B0B0B0B0B0C0B0B0C0B0B0B0B
          0B0B0B0B0B0C0B0B0B0B0B0B0B0B0C0B0B0B0C0B0B0B0B0B0B0B}
        OnClick = sbtnCollapseClick
      end
      object sbtnExpand: TSpeedButton
        Left = 160
        Top = 5
        Width = 20
        Height = 20
        Anchors = [akTop, akRight]
        Flat = True
        Glyph.Data = {
          36050000424D3605000000000000360400002800000010000000100000000100
          08000000000000010000740C0000740C00000001000000000000000000008400
          0000FF000000008400008484000000FF0000FFFF000000008400840084000084
          840084848400BDBDBD00C6C6C6000000FF00FF00FF0000FFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000B0B0B0B0B0B
          0B0B0B0B0B0C0B0B0B0B0B0B0B0B0B010B0B0B0B0B0B0B0B0C0B0B0C0B0B0B01
          010B0B0B0C0B0B0B0B0B0B0B0B01010101010B0B0B0B0B0C0B0B0C0B010B0B01
          010B0B0B0B0B0B0B0B0B0B0B010B0B010B0B0C000000000000000B0B010B0B0C
          0B0B0B0B0C0B0B0B0B0B0B0B010B0B0B0B0C0B0B0B00000000000C0B010B0B0B
          0B0B0B0B0B0B0B0B0B0B0B0B010B0B0C0B0B0B0C0B00000000000B0B010B0B0B
          0B0C0B0B0B0B0B0B0B0B0B0B010B0B0C0B0B0B0B0B00000000000B0B010B0B0B
          0B0B0B0B0B0B0B0B0B0B0B0B010B0B0B0B0B0B000000000000000C0B010B0B0B
          0B0B0B0C0B0B0B0B0B0B0B0B0B01010101010B0B0B0B0B0B0B0C}
        OnClick = sbtnExpandClick
      end
    end
  end
end