《Delphi程序设计》-第五章文件管理

项目1获取驱动器容量项目说明本项目演示如何使用DirveComboBox动态获得当前计算机中驱动器的总容量和可用容量。在DirveComboBox下拉框中选择不同的驱动器会在下面的文本框中显示相应的总容量和剩余容量，运行效果如图5-1所示。项目分析1.窗体上添加的组件（1）选择组件模板“Win3.1”，向窗体中添加一个DriveComboBox组件用于显示系统中有效的驱动器列表。（2）选择组建模板“Standard”，向窗体中添加两个Edit组件和两个Label组件显示选中驱动器的总容量和可用容量。（3）窗体设计效果如图5-2所示。返回下一页项目1获取驱动器容量

本项目中只有一个事件，就是每当用户在TDriveComboBox组件中选择了一个驱动器，就会激活OnChange响应代码。在TDriveComboBox组件的Drive属性中存储了代表选中驱动器的字符。通过调用API函数GetDiskFreeSpaceEx将驱动器的总容量存储在totalBytes中，将驱动器的可用容量存储在freeBytes中。最后分别将驱动器的总容量和驱动器的可用容量显示在窗体上的两个TEdit组件中。项目实现学习支持DriveComboBoxDriveComboBox组件可以指定驱动器的列表，用于选择当前驱动器，主要属性如表5-1所示。返回上一页项目2文件查看器项目说明本项目用文件驱动器（DriveComboBox）、目录框（DirectoryListBox）、文件列表框（FileListBox）和文件过滤组合框（FilterComboBox）构成了一个完整的文件查询体系。通过在文件驱动器中选择某个磁盘，在目录框中显示磁盘下的目录，在文件过滤组合框中过滤自己想要的文件类型，过滤之后的文件在文件列表框中罗列出来，运行效果如图5-3所示。返回下一页项目2文件查看器项目分析窗体中添加的组件（1）选择组建选项卡“Win3.1”，在窗体中添加DriveComboBox、DirectoryListBox、FileListBox、FilterComboBox各一个。（2）DriveComboBox文件驱动器：DriveComboBox组件可以指定驱动器的列表，用于选择当前驱动器。（3）DirectoryListBox目录框：DirectoryListBox组件可以对树状结构的文件路径进行浏览。主要属性是FileList，此属性指定FileListBox名称，当文件路径发生改变时，文件列表也发生相应的变化。返回上一页下一页项目2文件查看器（4）FileListBox文件列表框：FileListBox组件是文件列表框，主要用于显示当前目录中的文件和选中当前文件，是MicrosoftWindows系统中文件管理器或资源管理器使用的主要工具，它可以直接与MicrosoftWindows系统建立接口，将当前选择的磁盘文件列示到文件列表框供用户使用。该组件往往需要与DriveComboBox和DirectoryListBox结合使用。（5）FilterComboBox文件过滤组合框：FilterComboBox组件是文件类型过滤器，是通过FileList属性与FileListBox相关联的。（6）各组件关系如图5-4所示。（7）窗体中组件属性设置如表5-2所示。（8）窗体设计效果如图5-6所示。（9）本项目不需要添加任何代码即可运行。返回上一页项目3图片预览器项目说明本项目是在前一节项目的基础上，把它改造为一个图片预览器，选中文件列表框中的某个图片即可在右边的Image区域看到缩略图，效果如图5-9所示。项目分析（1）在窗体中再添加一个Image组件，用于显示图片，把Image组件的Stretch属性设置为True，AutoSize属性设置为False。（2）用文件过滤器把图片文件筛选出来显示在FileListBox组件。（3）每当单击FileListBox组件中的一个图片文件时就要在右边显示出该图片的预览图。（4）为了能显示JPEG图片，需要再添加usesJPEG。项目实现返回表5-1组件属性设置返回表5-2