mainattr.dfm

用C++ builer 实现的关于文件操作经典实例 里面有所有工程需要的源代码

object MainForm: TMainForm
  Left = 260
  Top = 131
  Width = 466
  Height = 360
  Caption = '文件属性管理程序'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007777
    7777777777777777777777777777777777777777777777777777777777777777
    77777777777777777777777777777777CCCC77777777777C77777777777777CC
    CCCCCC77777777CC77777777777777CCCCCCCCCC777777CCC777777777777CCC
    CCCCCCCCC7777CCCC777777777777CCCCCCCCCCCCC777CCCCC77777777777CCC
    CCCC77777C777CCCCC77777777777CCCCCC777777777CCCCCCC7777777777CCC
    CCCC77777777CCCCCCC77777777777CCCCCC7777777CCCCCCCCC7777777777CC
    CCCCC777777CCCCCCCCC7777777777CCCCCCCC777777CCCCCCC777777777777C
    CCCCCC777777CCCCCC7777777777777CCCCCCCC777777CCCCC77777777777777
    CCCCCCCC77777CCCC7777777777777777CCCCCCCC77777CCC777C77777777777
    77CCCCCCCC7777CC7777CC7777777777777CCCCCCCCC777C77777CCC77777777
    7777CCCCCCCC777777777CCCC777777777777CCCCCCCC777777777CCCC777777
    777777CCCCCCCCCCC77777CCCC7777777777777CCCCCCCCCCC7777CCCCC77777
    77777777CCCCCCCCCCCCCCCCCCC777777777777777CCCCCCCCCCCCCCCCC77777
    77777777777CCCCCCCCCCCCCCC7777777777777777777CCCCCCCCCCCCC777777
    777777777777777CCCCCCCCCC7777777777777777777777777CCCCCC77777777
    7777777777777777777777777777777777777777777777777777777777770000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 458
    Height = 326
    Align = alClient
    TabOrder = 0
    object FileListBox1: TFileListBox
      Left = 232
      Top = 8
      Width = 220
      Height = 129
      FileEdit = Edit1
      ItemHeight = 12
      TabOrder = 0
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 8
      Top = 8
      Width = 220
      Height = 129
      FileList = FileListBox1
      ItemHeight = 16
      TabOrder = 1
    end
    object DriveComboBox1: TDriveComboBox
      Left = 8
      Top = 144
      Width = 217
      Height = 18
      DirList = DirectoryListBox1
      TabOrder = 2
    end
    object Edit1: TEdit
      Left = 232
      Top = 144
      Width = 220
      Height = 20
      TabOrder = 3
      Text = '*.*'
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 168
      Width = 345
      Height = 161
      Caption = '文件属性'
      TabOrder = 4
      object Label1: TLabel
        Left = 16
        Top = 24
        Width = 36
        Height = 12
        Caption = '名称：'
      end
      object Label2: TLabel
        Left = 16
        Top = 40
        Width = 36
        Height = 12
        Caption = '位置：'
      end
      object Label5: TLabel
        Left = 16
        Top = 96
        Width = 60
        Height = 12
        Caption = '修改时间：'
      end
      object FileName: TLabel
        Left = 88
        Top = 24
        Width = 48
        Height = 12
        Caption = 'FileName'
      end
      object FilePathName: TLabel
        Left = 88
        Top = 40
        Width = 72
        Height = 12
        Caption = 'FilePathName'
      end
      object ChangeDate: TLabel
        Left = 88
        Top = 96
        Width = 60
        Height = 12
        Caption = 'ChangeDate'
      end
      object Label3: TLabel
        Left = 16
        Top = 56
        Width = 36
        Height = 12
        Caption = '大小：'
      end
      object FileSize: TLabel
        Left = 88
        Top = 56
        Width = 48
        Height = 12
        Caption = 'FileSize'
      end
      object CreateDate: TLabel
        Left = 88
        Top = 80
        Width = 60
        Height = 12
        Caption = 'CreateDate'
      end
      object AccessDate: TLabel
        Left = 88
        Top = 112
        Width = 60
        Height = 12
        Caption = 'AccessDate'
      end
      object Label4: TLabel
        Left = 16
        Top = 80
        Width = 60
        Height = 12
        Caption = '创建时间：'
      end
      object Label6: TLabel
        Left = 16
        Top = 112
        Width = 60
        Height = 12
        Caption = '访问时间：'
      end
      object CheckBox1: TCheckBox
        Left = 16
        Top = 136
        Width = 49
        Height = 17
        Caption = '只读'
        TabOrder = 0
      end
      object CheckBox2: TCheckBox
        Left = 88
        Top = 136
        Width = 57
        Height = 17
        Caption = '隐藏'
        TabOrder = 1
      end
      object CheckBox3: TCheckBox
        Left = 168
        Top = 136
        Width = 57
        Height = 17
        Caption = '系统'
        TabOrder = 2
      end
      object CheckBox4: TCheckBox
        Left = 248
        Top = 136
        Width = 57
        Height = 17
        Caption = '存档'
        TabOrder = 3
      end
    end
    object ReadButton: TButton
      Left = 360
      Top = 176
      Width = 89
      Height = 33
      Caption = '读取文件属性'
      Default = True
      TabOrder = 5
      OnClick = ReadButtonClick
    end
    object ModifyButton: TButton
      Left = 360
      Top = 232
      Width = 89
      Height = 33
      Caption = '修改文件属性'
      TabOrder = 6
      OnClick = ModifyButtonClick
    end
    object ExitButton: TButton
      Left = 360
      Top = 288
      Width = 89
      Height = 33
      Caption = '退出'
      TabOrder = 7
      OnClick = ExitButtonClick
    end
  end
end