VFP中確定驅(qū)動(dòng)器分類的2幾種方法
發(fā)表時(shí)間：2023-08-01 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]在應(yīng)用程序的設(shè)計(jì)中，有時(shí)我們需要知道用戶的驅(qū)動(dòng)器的配置情況，在VFP中有多種方法可以實(shí)現(xiàn)，現(xiàn)介紹如下： 一、通過調(diào)用GetDriveType API函數(shù)來完成。 下面的代碼就可以檢索出系...
在應(yīng)用程序的設(shè)計(jì)中，有時(shí)我們需要知道用戶的驅(qū)動(dòng)器的配置情況，在VFP中有多種方法可以實(shí)現(xiàn)，現(xiàn)介紹如下：
一、通過調(diào)用GetDriveType API函數(shù)來完成。
下面的代碼就可以檢索出系統(tǒng)中所有的驅(qū)動(dòng)器：
表單的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ū)動(dòng)器" + DrvName + "是一個(gè)軟盤驅(qū)動(dòng)器"
Case DrvType = 3
Print "驅(qū)動(dòng)器" + DrvName + "是一個(gè)硬盤驅(qū)動(dòng)器"
Case DrvType = 4
Print "驅(qū)動(dòng)器" + DrvName + "是一個(gè)可移去式驅(qū)動(dòng)器或網(wǎng)絡(luò)驅(qū)動(dòng)器"
Case DrvType = 5
Print "驅(qū)動(dòng)器" + DrvName + "是一個(gè)CD-ROM驅(qū)動(dòng)器"
Case DRIVE_RAMDISK
Print "驅(qū)動(dòng)器" + DrvName + "是一個(gè)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ū)動(dòng)器" + DrvName + "是一個(gè)軟盤驅(qū)動(dòng)器"
Case DrvType = 3
Print "驅(qū)動(dòng)器" + DrvName + "是一個(gè)硬盤驅(qū)動(dòng)器"
Case DrvType = 4
Print "驅(qū)動(dòng)器" + DrvName + "是一個(gè)可移去式驅(qū)動(dòng)器或網(wǎng)絡(luò)驅(qū)動(dòng)器"
Case DrvType = 5
Print "驅(qū)動(dòng)器" + DrvName + "是一個(gè)CD-ROM驅(qū)動(dòng)器"
Case DRIVE_RAMDISK
Print "驅(qū)動(dòng)器" + DrvName + "是一個(gè)RAM 盤"
Case Else
EndcCase
Next I
