国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

如何獲得系統(tǒng)光驅(qū)的盤符

2019-11-18 17:40:14
字體：大 中 小
供稿：網(wǎng)友
DeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLong

該函數(shù)返回系統(tǒng)驅(qū)動器類型,返回值為5即為光驅(qū),下面這個例子僅作簡單的演示,你可以做進(jìn)一步的改進(jìn)以用在您自己的應(yīng)用程序當(dāng)中

PRivateSubGetCDRomLetter()

DimDriveNumAsInteger
DimDriveType
DimCDRomAsInteger
DimDriveLetterAsString
DimiAsByte
DriveNum=1
Do
DriveNum=DriveNum 1
DriveLetter=Chr(DriveNum 65) ":/"
DriveType=GetDriveType(DriveLetter)
IfDriveType=DRIVE_CDROMThenDebug.PrintDriveLetter'DRIVE_CDROM=5
LoopUntilDriveType=1'返回值為1,已無可用驅(qū)動器

EndSub->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 达孜县| 会泽县| 昌都县| 晋州市| 平果县| 丰顺县| 北海市| 漳浦县| 阿尔山市| 景谷| 丰原市| 舒兰市| 观塘区| 台江县| 巴彦淖尔市| 交口县| 泰兴市| 富裕县| 南城县| 洞头县| 当涂县| 宣城市| 怀远县| 山西省| 乐东| 金川县| 九龙坡区| 临湘市| 黎平县| 定兴县| 濮阳县| 古田县| 延川县| 高邮市| 神农架林区| 容城县| 承德县| 封开县| 神池县| 榆社县| 拉萨市|