在应用程序的设计中,有时我们需要知道用户的驱动器的配置情况,在VFP中有多种方法可以实现,现介绍如下:
一、通过调用GetDriveType API函数来完成。
下面的代码就可以检索出系统中所有的驱动器:
表单的ACTIVATE方法:
Declare Long GetDriveType In "kernel32" String nDrive
Dime I, DrvName, DrvType
For I = 0 To 25
DrvName = Chr(I + 65) + ":"
DrvType = GetDriveType(DrvName)
Do Case
Case DrvType = 2
Print "驱动器" + DrvName + "是一个软盘驱动器"
Case DrvType = 3
Print "驱动器" + DrvName + "是一个硬盘驱动器"
Case DrvType = 4
Print "驱动器" + DrvName + "是一个可移去式驱动器或网络驱动器"
Case DrvType = 5
Print "驱动器" + DrvName + "是一个CD-ROM驱动器"
Case DRIVE_RAMDISK
Print "驱动器" + DrvName + "是一个RAM 盘"
Case Else
EndcCase
Next I
二、使用FOXTOLLS.FLL中的DriveType函数。
表单的ACTIVATE方法:
Set Libriry To FoxTools.FLL
Dime I, DrvName, DrvType
For I = 0 To 25
DrvName = Chr(I + 65) + ":"
DrvType = DriveType(DrvName)
Do Case
Case DrvType = 2
Print "驱动器" + DrvName + "是一个软盘驱动器"
Case DrvType = 3
Print "驱动器" + DrvName + "是一个硬盘驱动器"
Case DrvType = 4
Print "驱动器" + DrvName + "是一个可移去式驱动器或网络驱动器"
Case DrvType = 5
Print "驱动器" + DrvName + "是一个CD-ROM驱动器"
Case DRIVE_RAMDISK
Print "驱动器" + DrvName + "是一个RAM 盘"
Case Else
EndcCase
Next I
① 凡本网注明稿件来源为"原创"的所有文字、图片和音视频稿件,版权均属本网所有。任何媒体、网站或个人转载、链接转贴或以其他方式复制发表时必须注明"稿件来源:我考网",违者本网将依法追究责任;
② 本网部分稿件来源于网络,任何单位或个人认为我考网发布的内容可能涉嫌侵犯其合法权益,应该及时向我考网书面反馈,并提供身份证明、权属证明及详细侵权情况证明,我考网在收到上述法律文件后,将会尽快移除被控侵权内容。