frm_tempfile.dfm

范例宝典例168,在编程时我们有时会需要开辟若干个临时文件夹作为缓存,这里提供了如何建立临时文件夹的过程

object FrmTemp: TFrmTemp
  Left = 275
  Top = 235
  BorderStyle = bsSingle
  Caption = #24314#31435#20020#26102#25991#20214
  ClientHeight = 224
  ClientWidth = 337
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    0000010008000000000080040000000000000000000000010000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C000C0DC
    C000F0CAA600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CC
    FF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399
    FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33
    FF00CC33FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600
    FF003300FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FF
    CC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99
    CC009999CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666
    CC003366CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033
    CC00FF00CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF
    990099FF990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC
    990033CC990000CC9900FF999900CC9999009999990066999900339999000099
    9900FF669900CC66990099669900666699003366990000669900FF339900CC33
    990099339900663399003333990000339900FF009900CC009900990099006600
    99003300990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF
    6600FFCC6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC99
    660099996600669966003399660000996600FF666600CC666600996666006666
    66003366660000666600FF336600CC3366009933660066336600333366000033
    6600FF006600CC00660099006600660066003300660000006600FFFF3300CCFF
    330099FF330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC
    330033CC330000CC3300FF993300CC9933009999330066993300339933000099
    3300FF663300CC66330099663300666633003366330000663300FF333300CC33
    330099333300663333003333330000333300FF003300CC003300990033006600
    33003300330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC
    000099CC000066CC000033CC000000CC0000FF990000CC990000999900006699
    00003399000000990000FF660000CC6600009966000066660000006600003366
    0000FF330000CC33000099330000663300003333000000330000CC0000009900
    000066000000330000000000DD000000BB000000AA0000008800000077000000
    5500000044000000220000DD000000BB000000AA000000880000007700000055
    00000044000000220000DDDDDD00555555007777770077777700444444002222
    22001111110077000000550000004400000022000000F0FBFF00A4A0A0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00009696969696969696969696969696969696969696969600000000000000C8
    D0009672727272727272727272727272727272727272729696000000000000C8
    C8D096724848484848487272D0C87272484848484848729648960000000000C8
    C1C89672484848484872D0D0D0D0D0D07248484848487296487296D0C80000C8
    C1C196724848484872D0C8C8C8C8C8C8D07248484848729648D0D0C1C8000000
    C8D0967248484872D0C8C172D0C848C1C8C148484848729648D0C1C1C80000C8
    C8C8967248484872D0C84872D0C84872D0C848484848729648C8C1C1000000C8
    C1C1967248484872D0C84872D0C84872D0C848484848729648D0D00000000000
    C8C196724848484848487272D0C872D0C8C148484848729648C8C1C1C8000000
    D0D09672484848484872D0D0D0D0D0C8C14848484848729648D0D0C1C80000C8
    C8C896724848484872D0C8C8C8C8C8C1484848484848729648D0C8C1C80000C8
    C1C1967248484872D0C8C172D0C84872727248484848729648C8C1C8000000C8
    C1C8967248484872D0C84872D0C84872D0C848484848729648D0D0C1C80000C8
    C1C8967248484872D0C84872D0C84872D0C848484848729648C8C1C1C8000000
    C1D0967248484872D0C8D072D0C872D0C8C148484848729648D0C1C8000000C8
    C1C196724848484872C1C8D0D0D0D0C8C14848484848729648D0D0C8000000C8
    D0D09672484848484872C1C8C8C8C8C1484848484848729648C8C1C1C80000C8
    C1C196724848484848484872D0C84848484848484848729648D0C8C1C80000C8
    C1C89672727272727272727272727272727272727272729648D0C1C1C8000000
    C800969696969696969696969696969696969696969696964872C8C8C8000000
    0000009672481319484848484848484848484848481319729672489600000000
    0000000096727213197272969672727272729696727213197296489600000000
    0000000000967248131948729648484848489672484848131972969600000000
    0000000000009696969696729696969696969672969696969696969600000000
    0000000000000000000000729600000000009672000000000000000000000000
    0000000000000000000000487296000000727248000000000000000000000000
    0000000000000000000000004872969696964800000000000000000000000000
    0000000000000000000000000048727272720000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFF000003F8000001F0000000F000000010000000000000000800000000000
    0001000000018000000080000000000000000000000100000000000000008000
    00010000000100000000000000000000000080000000D0000001F8000001FC00
    0001FE000001FF01F003FFF0E1FFFFF803FFFFFC07FFFFFE0FFFFFFFFFFF}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 7
    Top = 142
    Width = 322
    Height = 35
    Shape = bsFrame
  end
  object LblTemp: TLabel
    Left = 18
    Top = 151
    Width = 89
    Height = 13
    AutoSize = False
    Caption = #20020#26102#25991#20214#21517#31216#65306
  end
  object BtnCreateTemp: TButton
    Left = 166
    Top = 184
    Width = 75
    Height = 23
    Caption = #24314#31435#25991#20214
    TabOrder = 0
    OnClick = BtnCreateTempClick
  end
  object EdTemp: TEdit
    Left = 105
    Top = 148
    Width = 176
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ReadOnly = True
    TabOrder = 1
  end
  object BtnClose: TButton
    Left = 253
    Top = 184
    Width = 75
    Height = 23
    Caption = #20851#38381
    TabOrder = 2
    OnClick = BtnCloseClick
  end
  object GBxTempFile: TGroupBox
    Left = 6
    Top = 2
    Width = 323
    Height = 135
    Caption = #25991#20214#32534#36753
    TabOrder = 3
    object MmTemp: TMemo
      Left = 2
      Top = 15
      Width = 319
      Height = 118
      Align = alClient
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 0
    end
  end
  object TmSaveFile: TTimer
    Interval = 10000
    OnTimer = TmSaveFileTimer
    Left = 232
    Top = 24
  end
end