在应用程序的设计中,有时我们需要知道用户的驱动器的配置情况,在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保留:: http://www.qqread.com/foxpro/i219305.html
相关图文阅读
频道图文推荐
健 康 咨 询
时 尚 咨 询
相关专题
- Linux驱动大全 (8611篇文章)
- 利用Foxpro在网络环境下开发数据库管理软件 (336次浏览)
- VFP中使用“宏”来提高编程效率 (138次浏览)
- 用VFP实现点对点通信 (110次浏览)



