该函数返回系统驱动器类型,返回值为5即为光驱,下面这个例子仅作简单的演示,你可以做进一步的改进以用在您自己的应用程序当中
PrivateSubGetCDRomLetter()
DimDriveNumAsInteger
DimDriveType
DimCDRomAsInteger
DimDriveLetterAsString
DimiAsByte
DriveNum=1
Do
DriveNum=DriveNum 1
DriveLetter=Chr(DriveNum 65) ":\"
DriveType=GetDriveType(DriveLetter)
IfDriveType=DRIVE_CDROMThenDebug.PrintDriveLetterDRIVE_CDROM=5
LoopUntilDriveType=1返回值为1,已无可用驱动器
EndSub->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
