13磁盘管理技术.pdf

第 章 13 磁盘管理技术  获取磁盘信息  获取卷标信息  磁盘操作  磁盘监控与分析 第13 章 磁盘管理技术 13.1 获取磁盘信息 获取磁盘的剩余空间 中级 实例 468 光盘位置：光盘\MR\13\468 趣味指数： 实例说明 本实例实现了获取磁盘剩余空间的功能。运行程序，在下拉列表框中选择盘符，单击“获取”按钮，将在 窗体上显示该磁盘的剩余空间。程序的运行效果如图13.1 所示。 获取磁盘的剩余空间 图13.1 获取磁盘的剩余空间 关键技术 本实例主要是使用API 函数SHGetDiskFreeSpace 来实现的，该函数的功能是获取与一个磁盘的组织有关的 信息，以及了解剩余空间的容量。该函数在Visual Basic 6.0 中的声明方式如下： Declare Function SHGetDiskFreeSpace Lib kernel32 Alias GetDiskFreeSpaceA (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long 函数的返回值为Long 型，非零表示成功，零表示失败。 SHGetDiskFreeSpace 函数语法中的参数说明如表13.1 所示。 表 13.1 SHGetDiskFreeSpace 函数的参数说明 设 置 值 描 述 lpRootPathName String 型，不包括卷名的一个磁盘根路径 lpSectorsPerCluster Long 型，用于装载一个簇内扇区数的变量 lpBytesPerSector Long 型，用于装载一个扇区内字节数的变量 lpNumberOfFreeClusters Long 型，用于装载磁盘上剩余簇数的变量 lpTtoalNumberOfClusters Long 型，用于装载磁盘上总簇数的变量  说明：在采用FAT16 格式的Windows95 系统中，如果一个驱动器（分区）的容量超过了2GB ，则不应使 用SHGetDiskFreeSpace 函数。此时，该函数能识别的最大分区容量只有2GB。 设计过程 （1）新建一个标准工程。 （2 ）在工程中添加一个窗体，使用其默认名称，Caption 属性设置为“获取磁盘的剩余空间”，StartUpPosition 属性设置为“2 –屏幕中心”。 （3 ）在窗体上添加一个Frame 控件，作为控件的容器，名称为Frame1 ，Caption 属性设置为空。 （4 ）在Frame1 中添加一个DriveListBox 控件、两个CommandButton 控件（Caption 属性分别设置为“获 取”和“退出”）和一个Label 控件（Caption 属性设置为空）。 （5 ）程序的运行代码如下：