VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 列出你的计算机中的所有的CDRom驱动设备
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8316, 日期:2001-05-12
[程序语言] 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