|
在應(yīng)用程序的設(shè)計中，有時我們需要知道用戶的驅(qū)動器的配置情況，在VFP中有多種方法可以實現(xiàn)，現(xiàn)介紹如下：
一、通過調(diào)用GetDriveType API函數(shù)來完成。
下面的代碼就可以檢索出系統(tǒng)中所有的驅(qū)動器：
表單的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 "驅(qū)動器" + DrvName + "是一個軟盤驅(qū)動器"
Case DrvType = 3
Print "驅(qū)動器" + DrvName + "是一個硬盤驅(qū)動器"
Case DrvType = 4
Print "驅(qū)動器" + DrvName + "是一個可移去式驅(qū)動器或網(wǎng)絡(luò)驅(qū)動器"
Case DrvType = 5
Print "驅(qū)動器" + DrvName + "是一個CD-ROM驅(qū)動器"
Case DRIVE_RAMDISK
Print "驅(qū)動器" + DrvName + "是一個RAM 盤"
Case Else
EndcCase
Next I
二、使用FOXTOLLS.FLL中的DriveType函數(shù)。
表單的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 "驅(qū)動器" + DrvName + "是一個軟盤驅(qū)動器"
Case DrvType = 3
Print "驅(qū)動器" + DrvName + "是一個硬盤驅(qū)動器"
Case DrvType = 4
Print "驅(qū)動器" + DrvName + "是一個可移去式驅(qū)動器或網(wǎng)絡(luò)驅(qū)動器"
Case DrvType = 5
Print "驅(qū)動器" + DrvName + "是一個CD-ROM驅(qū)動器"
Case DRIVE_RAMDISK
Print "驅(qū)動器" + DrvName + "是一個RAM 盤"
Case Else
EndcCase
Next I
|
