main.dfm

Delphi获取目录大小

object MainForm: TMainForm
  Left = 300
  Top = 247
  Width = 626
  Height = 492
  Caption = 'About Delphi Programming: Folder SIZE'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010100001000400280100001600000028000000100000002000
    0000010004000000000000000000000000000000000010000000000000006B94
    EB003150E40085A7F200F2F2F60099C1F8004E7BEC0096979B00C5D3F7002235
    E100C3C5D1006271E5005863C4004061E600263CE200263BE200FFFFFF00FFFF
    FFFFFFFFFFFFFFF32AC1BB669333FF71EDDDE88B6693F7DDDEEEDDE8B3333CDE
    EED8DDDE87FF9DDD1111DEEDEAFF0ED1CCC111DED13FBDCC5555C1DEDE7FBDC5
    00055C1DDD7F015222205CCDE13F91524442051DDAFF3A547742051E87FFF710
    77425CDE2FFFFF7A5205CDD2FFFFFFF34AC1C23FFFFFFFFFFFFFFFFFFFFF0000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 185
    Top = 53
    Height = 412
    ResizeStyle = rsUpdate
  end
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 618
    Height = 53
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvNone
    Color = clGray
    TabOrder = 0
    DesignSize = (
      618
      53)
    object ExitButton: TSpeedButton
      Left = 568
      Top = 8
      Width = 45
      Height = 37
      Anchors = [akTop, akRight]
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      Glyph.Data = {
        E6040000424DE604000000000000360000002800000014000000140000000100
        180000000000B0040000C30E0000C30E00000000000000000000C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5000000000000C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5000000C5C5C5000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C500000000000000000000000000000000000000
        0000C5C5C5C5C5C5000000000000000000000000000000000000000000000000
        000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000000000C5C5C5C5C5
        C5C5C5C5000000FFFFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5C5C5C5C5C5C5C5C5C5
        000000FFFFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5C5C5C5C5C5C5000000000000FF
        FFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5000000C5C5C5C5C5C5C5C5C5C5C5C5000000FFFFFFFFFF
        FF000000C5C5C5C5C5C50000FFC5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5000000C5C5C5C5C5C5C5C5C5C5C5C5000000FFFFFFFFFFFF000000
        C5C5C50000FFC5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5000000C5C5C5C5C5C5C5C5C5C5C5C5000000FFFFFFFFFFFF0000000000FF00
        00FF0000FF0000FF0000FFC5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000
        C5C5C5C5C5C5C5C5C5C5C5C5000000FFFFFFFFFFFF000000C5C5C50000FFC5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5C5
        C5C5C5C5C5000000FFFFFFFFFFFFFFFFFF000000C5C5C5C5C5C50000FFC5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5C5C5C50000
        00FFFFFFFFFFFFFFFFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5000000C5C5C5000000FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C50000000000000000000000000000000000000000000000
        00000000C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5
        C5C5C5C5C5C5C5C5C5C5}
      ParentFont = False
      OnClick = ExitButtonClick
    end
    object AboutButton: TSpeedButton
      Left = 516
      Top = 8
      Width = 45
      Height = 37
      Anchors = [akTop, akRight]
      Flat = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
        33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
        FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
        FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
        FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
        FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
        FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
        3333333773FFFF77333333333FBFBF3333333333377777333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = AboutButtonClick
    end
    object ledRootFolder: TLabeledEdit
      Left = 8
      Top = 24
      Width = 404
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      EditLabel.Width = 71
      EditLabel.Height = 13
      EditLabel.Caption = 'Root Folder:'
      EditLabel.Font.Charset = DEFAULT_CHARSET
      EditLabel.Font.Color = clWhite
      EditLabel.Font.Height = -11
      EditLabel.Font.Name = 'MS Sans Serif'
      EditLabel.Font.Style = [fsBold]
      EditLabel.ParentFont = False
      ReadOnly = True
      TabOrder = 0
      Text = 'C:\!Gajba\About'
    end
    object RefreshButton: TBitBtn
      Left = 422
      Top = 8
      Width = 89
      Height = 37
      Anchors = [akTop, akRight]
      Caption = 'Refresh'
      TabOrder = 1
      OnClick = RefreshButtonClick
      Glyph.Data = {
        76060000424D7606000000000000360400002800000018000000180000000100
        08000000000040020000000000000000000000010000000100000237F9000237
        F8000236F6000235F3000234F0000233E9000231E100022FD600022AC3000226
        AE00011E88000117690001104B00000D3B00000A2E0000082300000517000003
        0F00000209000001050000010300000102000001030001020400020306000304
        090005070C0007090F000A0B10000C0D12000E10140012131600171719001D1D
        1D001F1F1F002323230024242400252525002626260024242400232323002121
        2100202020001F1F1F001E1E1E001D1D1D001C1C1C001B1B1B001A1A1A001A1A
        1A00191919001919190019191900191919001A1A1A001A1A1A001B1B1B001C1C
        1C001E1E1E001F1F1F00212121002323230026262600282828002B2B2B002F2F
        2F0033333300373737003B3B3B00404040004646460047474700484848004949
        49004A4A4A004B4B4B004C4C4C004D4D4D004E4E4E004F4F4F00505050005151
        5100525252005353530054545400555555005656560057575700585858005959
        59005A5A5A005B5B5B005C5C5C005D5D5D005E5E5E005F5F5F00606060006161
        6100626262006363630064646400656565006666660067676700686868006969
        69006A6A6A006B6B6B006C6C6C006D6D6D006E6E6E006F6F6F00707070007171
        71007272720073737300747474007D6E7D0086678600A74CA700D128D100EC10
        EC00F904F900FD01FD00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
        FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
        FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
        FE00FE00FE00FE00FE00FF00FF00FE00FE00FE00FE00FE00FE00FE00FE00FE00
        FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
        FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
        FE00FE00FE00FE00FE00FE00FE00FE01FE00FB06FB00F318F300E43AE400CC71
        CC00BB9CBB00B7A8B700B4B4B400B5B5B500B6B6B600B7B7B700BBB8B500C0BA
        B300C4BBB100C9BCB000CCBDAE00D0BEAC00D3BFAB00D6C0A900DBC0A600E0C0
        A000E5C09B00EAC09400EEBF8F00F1BF8C00F2BF8A00F4BF8800F5BE8500F5BD
        8300F5BC8200F5BC8100F6BC7F00F5BA7C00F5B97A00F5B97900F5B87700F4B7
        7500F4B57200F3B36E00F1B06B00F0AE6700EFAB6400EEA96000ECA55B00EBA2
        5800E89E5100E6994700E3933E00E18E3700DF8B3200DF892F00DE892D00DE87
        2B00DD862A00DC842700DB822500D97F2100D77B1B00D5771600D3731000D06D
        0900CF6B0600CD690300CC670100CC670100CC670100CC670100CC670100CB66
        0100CA660100C6610200BF5B0300B6530400AA4706009E3C08009B3909009A38
        09009A3809009A3809009A3809009A3809009A3809009A380900949494EF9494
        94949494FCFCFCFCFCFCFC94949494949494949494EF949494949494FCCED5DA
        DDE4FC94949494949494949494EFEFEFEFEFF0F0FCC8D2D9DCE0FC9494949494
        9494949494EF949494949494FCFCFCFCFCFCFC94949494949494949494EF9494
        949494949494949494949494949494949494949494EF949494949494FCFCFCFC
        FCFCFC94949494949494949494EF949494949494FCC9D2D9DCE1FC9494949494
        9494949494EFEFEFEFEFEBF0FCC8D2D9DCE1FC94949494949494949494EF9494
        94949494FCFCFCFCFCFCFC94949494949494949494EF94949494949494949494
        94949494949494949494949494EF949494949494FCFCFCFCFCFCFC9494949494
        9494949494EF949494949494FCC9D2D9DCE1FC94949494949494949494EFEFEF
        EFEFEBF2FCC8D2D9DCE1FC94949494949494949494EF949494949494FCFCFCFC
        FCFCFC94949494949494949494EF949494949494949494949494949494949494
        9494FCFCFCFCFCFCFC9494949494949494151515151515949494FCC5D0D9DDE6
        FC9494949494949494159494009414949494FCC5CDD8DCE2FC94949494949494
        9415940000000F949494FCFCFCFCFCFCFC949494949494949415940094011594
        9494949494949494949494949494949494150094940000949494949494949494
        9494949494949494941594949494000094949494949494949494949494949494
        9415151515151500009494949494949494949494949494949494949494949494
        0094949494949494949494949494949494949494949494949400}
    end
  end
  object pnlFI: TPanel
    Left = 188
    Top = 53
    Width = 430
    Height = 412
    Align = alClient
    BevelOuter = bvNone
    Caption = 'pnlFI'
    TabOrder = 1
    object lblSelectedFolder: TStaticText
      Left = 0
      Top = 0
      Width = 430
      Height = 17
      Align = alTop
      Alignment = taCenter
      BevelOuter = bvRaised
      BorderStyle = sbsSunken
      Caption = 'Selected folder...'
      Color = clMaroon
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 1
    end
    object Chart: TChart
      Left = 0
      Top = 101
      Width = 430
      Height = 311
      BackWall.Brush.Color = clWhite
      Title.Text.Strings = (