如何获得系统光驱的盘符
DeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLong 该函数返回系统驱动器类型,返回值为5即为光驱,下面这个例子仅作简单的演示,你可以做进一步的改进以用在您自己的应
DeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLong
该函数返回系统驱动器类型,返回值为5即为光驱,下面这个例子仅作简单的演示,你可以做进一步的改进以用在您自己的应用程序当中
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,已无可用驱动器
EndSub->
该函数返回系统驱动器类型,返回值为5即为光驱,下面这个例子仅作简单的演示,你可以做进一步的改进以用在您自己的应用程序当中
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,已无可用驱动器
EndSub->
- 上一篇：一个关于乘法溢出问题的探讨
- 下一篇：告诉你两种判断闰年的简单方法
精彩图集
精彩文章