Expulsar la bandeja de una unidad de CD

[Demon_Hunter]

Q' onditas.

Nececito saber como puedo expulsar la bandeja de una disquetera o expulsar un disco desde Visual B.

Si entre esta comunidad alguien sabe por favor digame.

Hasta luego...

[[EX3]]

Crea un proyecto nuevo y añade dos CommandButton al formulario. Despues añade este codigo:

Código:

Option Explicit

'Ejecuta un comando a un dispositivo MCI:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Form_Load()
'Inicializa las comunicaciones con el dispositivo de CD:
Call mciExecute("open cdaudio alias cd")

End Sub

Private Sub Form_Unload(Cancel As Integer)
'Libera las comunicaciones con el dispositivo de CD:
Call mciExecute("close cd")

End Sub

Private Sub Command1_Click()
'Abre la bandeja:
Call mciExecute("set cd door open")

End Sub

Private Sub Command2_Click()
'Cierra la bandeja:
Call mciExecute("set cd door closed")

End Sub 

Salu2...

[Demon_Hunter]

gracias lo voy a probar