VFP中確定驅(qū)動器類型的兩幾種方法

在應用程序的設計中，有時我們需要知道用戶的驅(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)絡驅(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)絡驅(qū)動器"
     Case DrvType = 5
     Print "驅(qū)動器" + DrvName + "是一個CD-ROM驅(qū)動器"
     Case DRIVE_RAMDISK
     Print "驅(qū)動器" + DrvName + "是一個RAM 盤"
     Case Else
     EndcCase
     Next I