国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 大厂| 正安县| 康定县| 崇文区| 新建县| 金寨县| 镇原县| 永福县| 津南区| 武邑县| 福鼎市| 安西县| 平陆县| 凤城市| 平阴县| 招远市| 涞源县| 西和县| 合江县| 安仁县| 太仆寺旗| 凉城县| 武冈市| 北辰区| 鄂托克前旗| 正镶白旗| 怀安县| 南投县| 新晃| 龙泉市| 方正县| 平乐县| 长岛县| 包头市| 图木舒克市| 义乌市| 梅州市| 肃北| 隆德县| 称多县| 页游|