'Como detectar una unidad de CD-ROM?


'Este ejemplo de programa demuestra como localizar una unidad de CD_ROM
'instalada en tu ordenador.


'1. Crear un proyecto nuevo en Visual Basic, por defecto será Form1
'2. Añadir el siguiente codigo a formulario en General Declarations.
'(Nota: escribirlo en una sola linea de texto)

    Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long


'3. Añadir un control Command Button al Form1
'4. Añadir el siguiente codigo al evento Click de Command Button


    Private Sub Command1_Click()
        Text1.Text = FindCDROM
    End Sub

'5. Añadir un control Text Box al Form1.
'En propiedades "Multiline" fijar "true"

'6. Crear una función llamada FindCDROM y añadir el siguiente codigo:

    Function FindCDROM() As String
        Dim Drive As Integer
        Const DRIVE_CDROM = 5
        FindCDROM = "No hay CD_ROM Instalado"

        For Drive = 65 To 90
            If GetDriveType(Chr(Drive) & ":\") = DRIVE_CDROM Then
                FindCDROM = "CD-ROM Drive " & Chr(Drive) & ":\"
                Exit For
            End If
        Next Drive
    End Function



'Ejecutar el ejemplo pulsando F5.