saludos

mi pregunta es saber como puede hacer para abrir la consola del CD-ROM sin necesidad de pulsar el boton fisico de la unidad de CD-ROM y tambien como cerrarlo, bueno si existe una dll que ayuda o por lo menos una idea de como hacerlo el programa

de antemano gracias

lord_carcas

__________________
Si la patria es pequeña uno grande la sueña

Hola, con el siguiente codigo se detecta si existe algún CD-ROOM, si es cierto luego le puedes hacer un OPEN:

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

Saludos :smt023