列出你的计算机中的所有的CDRom驱动设备2000年05月25日 13:43

[程序语言] Microsoft Visual Basic 5.0,6.0

[下载源程序] 立即下载

[运行平台] WINDOWS

[源码来源] http://codeguru.developer.com/vb/articles/2009.shtml

[功能描述]

　　该程序演示了如何用WinAPI，列出所有连接到你的计算机中的所有的CDRom驱动器。虽然可以通过VB6中的新带的FileSystemObject来完成，如果目标机器上没有SSCRUN.DLL，也不行。而该程序不需要上面的条件，就可以完成列出你的计算机中的所有的CDRom驱动设备的任务。

　　该程序很简单，用到了GetDriveType和GetLogicalDriveStrings Windows API 调用。

'

private Declare Function GetDriveType Lib "kernel32" _

　　　　Alias "GetDriveTypeA" (byval nDrive as string) as Long

private Declare Function GetLogicalDriveStrings Lib "kernel32" _

　　　　Alias "GetLogicalDriveStringsA" (byval nBufferLength as Long, _

　　　　byval lpBuffer as string) as Long

private Const DRIVE_CDROM = 5

'

private Sub ListCDROMs()

　　Dim sDrives as string

　　Dim sDrive as string

　　sDrives = Space(255)

　　sDrives = Left$(sDrives, GetLogicalDriveStrings(255, byval sDrives))

　　While InStr(sDrives, "\")

　　　　sDrive = Left$(sDrives, InStr(sDrives, "\"))

　　　　If GetDriveType(sDrive) = DRIVE_CDROM then

　　　　　　List1.AddItem "(CDRom) " & sDrive

　　　　End If

　　　　sDrives = mid$(sDrives, len(sDrive) + 2)

　　Wend

End Sub

'