unit1.~dfm

安装程序时或在打开数据文件时都需要打开文件夹的操作,本例提供创建和删除文件夹的操作

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 335
  Height = 211
  Caption = #21019#24314#21644#21024#38500#25991#20214#22841
  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 Label1: TLabel
    Left = 40
    Top = 28
    Width = 121
    Height = 13
    AutoSize = False
    Caption = #25991#20214#22841#36335#24452#65306
  end
  object SpeedButton1: TSpeedButton
    Left = 24
    Top = 106
    Width = 121
    Height = 41
    Caption = #21019#24314#25991#20214#22841
    Glyph.Data = {
      36080000424D3608000000000000360400002800000020000000200000000100
      08000000000000040000C40E0000C40E00000001000000010000FFFFFF00F0B0
      A200E9AFA200F0B3AB00F0A69A00F8ABA200F0AA9A00E9A29200E5BAB300FFE5
      E100E9AAA200F1A29200F0988A00E99E9200F6D9D200FEFBFF00FFF4F000E98F
      8100F8958100F0948100E1A39200E9CDC200FFFAF800E98F7900F08C7700E195
      8100E9B8AB00FFE4DA00FFF9F000FFFDF800F0ACA200EB847000E18F7900F0C3
      BA00FFEEE900FFEDE100FFE9E100FFF2E900DA846C00DA684E00F8D1C200FFDC
      D200F8DACB00FFD6CB00F8DDD200F8E2DA00DA725B00DA573A00E17F6E00F8BD
      AB00F8CCBA00F8C8BA00F8CDC200F8D6CB00FFE0DA00DEAC9E00E1684E00CE69
      5000F8BBA200F0BAAB00F0BFAB00F0C2B300F8C2B300F8C4BA00F0CCBA00FFE5
      D200CD826E00CF5F4900C25B4600F0B5A200F8B6AB00FFCABA00BD6A5B00DA75
      6800DE8A7900F0AF9A00F8B9AB00E9C2B300F0B7AB00F0A89200FAA88F00AB5D
      4E00D2776A00E9AC9A00DEC7BD00F0E2E100F8EDEE00F8E4E100F8E7E100EECF
      CB00E1998100E9978100AF614A00E9AD9200E9A79200E99B8A00EEF3F800F0ED
      F000E9E8E900F8F6F800F0F0F000E1D7CD00F09D810092554600E9A08A00E1EA
      EC00F8FAFF00E9EFF000FDF8FF00F1F4F000CFBCB900FFF0E100BF7D5F00DADA
      DA00F0F6F800EAEDE900E9C4BA00D2968100AE816E00A2765700E19A8A00E9A6
      9A00DACCCB00E9EBF000F8F6F000F0EBE900F6F0F800FFC1B3009A6257009A64
      4E00F08D8100E1DFE100BA856800CBA48A00A06A5D00CEA69E00DAE0E100E1DA
      DA00DAE4E900BC7D6C00DAA28100B38E7900B3848100CCCED200CBD4DA00D2DB
      DD00F8FDFF00CEA88E00D28E7900D2877900BA948400BEB5B300B8C3C800DA95
      8100926457009A5D4E00CB8E8100CB948A00DADCE100DAAF9200A2897D00D2AE
      9A00926F5F009F786A00D2775F00FFA79A00FFCFC200BAA69A00AB9A8F00F8AB
      9A00DD7F5C00DADADA00FFFFFF00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000040003000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000A3A800000000000000000000A7A08B77000000000000000000000000
      000000A2A5A6A7A80000000000A876421737A9AA960000000000000000000000
      0000A04875A14DA180A2A348A41707086E988F50A30000000000000000000000
      009A9B7048485C8B9C9D9D876E8F9E9188628A3E8B9F00000000000000000000
      93941495428B9697989890696B64636364626959999600000000000000000000
      8D8E8F908F8F90917189629200000F16637362714C7600000000000000000085
      861387888362630F64898363000000000F647B8A358B8C000000000000000081
      824A076E836B6A0F0F6183600F00000000636169557984000000000000007752
      4A784B797A7B7C0F0F0F7D620F000F0F000F7E62697F80000000000000705111
      2606045E3771720F000F6A73640F000000006A61697475767000000026671152
      5F065E5E6837696A000000636B6C00000F000F6D606E026F080000005C52304A
      065D5E040B5F54600F000F0F6162630F0F000F6465375B663A00000051175207
      530606064B065354555656220E081557582D59375A175B504800000048494A4B
      06010145453B4C451A4D40403D3E3E33333E4E4B4B4F50203900000043440401
      4545463B3C3E3E333333322835292929361B2424242247440000000038393A3B
      3B3C3D3E3F4032282835350E2C29411B2423222516164200000000002F303132
      32333333342828350E2929361B09242222101C1600372E000000000000272619
      022829292A2B2C2C2D1B1B242422251C161D1D002C2E0000000000000000001F
      1F200D211B222309242322251C161D16000F0F1C261F00000000000000000000
      00001813191A1B1C1D16161D1600000000000F1E1F0000000000000000000000
      000000001213111415160F0F0000000F00000E17000000000000000000000000
      000000000000000B0C0D030E000F0F0000101100000000000000000000000000
      00000000000000000000050607080900000A0700000000000000000000000000
      0000000000000000000000000000010203040000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000}
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 176
    Top = 106
    Width = 121
    Height = 41
    Caption = #21024#38500#25991#20214#22841
    Glyph.Data = {
      36080000424D3608000000000000360400002800000020000000200000000100
      08000000000000040000C40E0000C40E00000001000000010000FFFFFF009C83
      7C00FCFFFD00F8F4EC00F4F3F400FDFFF700FEF9FA00FAF8F800F9FFFB00F9FF
      F500FDF6EA00FEF2E800FEFAEE00FFFFF600FBFCF200FFFCFF00FDFDFC00F4FA
      F300FFFFF900FFF5ED00D7C4BC00B99A9100CBB8B000DACAC300FAF2E900FEC2
      3100F8C23F00FFFFFA00F9F1D700EDE5D500FFFFFD00FFEFE500F6DECA00FDDC
      C300FED3BB00D9A78700C6A18600C3B29C00FEF6DD00FEFAE900F7BE3500AE92
      7900E3D2CA00F8D36C00FEC63E00FCFAEF00FFFCF900D8D8CB00BEAFA500F8BA
      A100F8C5AB00E8C3AD00E1C4B400FAECDA00F0E4DA00F0BA3300FCD06100E7D5
      B900E1DBC300FEC23200FCC94F00FFFEF300FFFBF600FBFBEB00EEEEE000EEC9
      BD00DFB0A700C29C9100E4C9BD00FEFFF400E2D7CF001711080092722000F8BD
      3000FBC13700F8CD6300FEFFF300FFFDF200F6FEF800FFF5F200F1DED900FFEB
      EB00FFFAF1000F0A0900070200001911060098752300FBC03000E9C17400FFEE
      E700FDFFFE00090402001D150700A17C2400D9B37F00C5A79A00E5E0D900FCFE
      F8004A3D38000D08060023180A00AB842600E1B03F00F9DACA00FEFDEE00F2F2
      E9007C726B0068501D00D5A32E00513C140009030100DCAE9D00F5FFE800FEFE
      EA008D382A00F2CEC300FCF6DF00FDF6DE00D5BAAB00F1BC3600BD9128003D2F
      11001009060089736B00FBE5C900F0B5AE00F7D6CA009E361E00C3381500BA62
      4500FEE6DE00F6F6E400FAF5E000F7EDD900E2BCA900F8EEE500FCDDB300A781
      26002C200C005C514800C6A99800DFB29E00FCD6C300C5887C009F1F0E006C11
      0300F6F4E500FFF5E300F7CBB800C28B6F00D9CBC300DEBB5E00927224001E15
      070032272100A8837600DCA99600FAD6C800FEF1E000E8E5D000DDCCA900B795
      8000EEE8DE00E5B19500FBEEE600F0EDE5001D180B00160E0C00937A7500E6D1
      C700F4E5D500D8B9A600E6B7A500D8C59800CF96810097533E00B57A6B00FFDF
      CF00D2907900BF7A5D00FDFEF500F6F6F00016120F000A05030083817B00F9EF
      E700C9B5A900D5B3A500FCDBC900FEDEC900CFA19100AE705700FFE4DD00CC8C
      6B009D9C9700E5EBE700FBE5DC00EBC4B400CA937B00FFFEE200FCF1D400CB89
      7200CB816500D8B19A00E4CFB400D48A6D00CB866D00C1816800E9F6EE00F6E3
      D900F4D6C100E1997500E6A38700834A4900B24E3200A9846700EDD9B500FFFB
      D800EFDFC100BC654B00AD360F00D07B7400E0835600D3521B00AC471A00D78B
      7300FDFFFE00FFFFFF0000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000040003000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000D6D672CE000000000000000000000000000000000000000000000000
      000000D6E0E080DCE0CE00000000000000000000000000000000000000000000
      000000DCDFDFDF80DC81C6AC0000000000000000000000000000000000000000
      000000DEDFDFDFE081CDE1DDAE00000000000000000000000000000000000000
      000000D6DC80D6D331C6DDDDC9CFAE0000000000000000000000000000000000
      000000DB91917231D9D28DC695CFCECEB2000000000000000000000000000000
      000000D572D6D6AFD7D8D9DA23B2CDCDCACE2400000000000000000000000000
      00010101D0B4D1BEBFAFBF3293D2B0C1D3CAC1B3D40000000000000000000001
      0101122E4E0D4527B19CAF91B221CCA195CDCDCECECF00000000000000010152
      45C2C31B1BB40CC4C59CC6BF7FBFC7C824C6C9B2CACAC9CB0000000000010DB4
      B5B6B7B8B92ABA5FBBBCBDBEBF728FC0687CBE8FC1C1C1AE000000000001A461
      A5A65454A7A8A9AA1425ABACADAEAF72B02271B1A3B2B3950000000000010152
      9697989954549A9B9C9D9E9FA0207D729172A1A22621A3950000000000000187
      59881919898A54548B8C5F8D8E27618F90909130929394950000000000000101
      0C76771919197879547A7B7C7D17027E7F808182838485860000000000000001
      696A6B19191919196C6D6E6F2220707101727374262675000000000000000062
      63646519191919191919666742302F68010100000000000000000000005B545C
      5D1919191919191919195E5F1460610D17010000000000000000005354555657
      19191919191919191958590D5A06071E03010000000000000000004748491919
      191919194A1919194B4C4D4E2E4F505152010100000000000000003719191919
      191938393A3B193C3D3E3F404142434445460100000000000000000019191919
      28292A12112B2C2D2E2F30253132333435360100000000000000000000191A00
      0000011B021C1D071E1F20212223242526270101000000000000000000000000
      00000102020F1011121314151617180A02020201000000000000000000000000
      0000000106070208090A0B0C0D0E020201010101000000000000000000000000
      0000000104020202050502020101010100000000000000000000000000000000
      0000000001020202030101010100000000000000000000000000000000000000
      0000000001010101010000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000}
    OnClick = SpeedButton2Click
  end
  object Edit1: TEdit
    Left = 32
    Top = 60
    Width = 249
    Height = 21
    TabOrder = 0
    Text = 'C:\ww'
  end
end