Expulsar cd

[Neobius]

Bueno pues eso que como expulso la bandeja del cd. Lo mismo que si tu le das en mi pc con el boton derecho al cd te pone expulsar y se abre el lector, como puedo hacer eso

[yeikos]

Te vas aquí, pones abrir cd, buscas solo en el foro de Visual Basic y  .

[{_The_Alwar_}]

Mira, Necesitas un Modulo, Un form y en el Form un Boton

En el Modulo

Código [Seleccionar] Expandir

Public res As Long, returnstring As String * 127
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub Cerrar()
res = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

Public Sub Abrir()
res = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub


En el Boton

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If Cdrom = True Then
Cerrar
Cdrom = False
Else
Abrir
Cdrom = True
End If
End Sub

Y en General, Declaraciones del Form

Código [Seleccionar] Expandir

Dim Cdrom As Boolean

[Neobius]

Public res As Long, returnstring As String * 127
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub Cerrar()
res = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

Public Sub Abrir()
res = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub

Porque pones ese 127?? , porque yo lo he cambiado y sigue funcionando.

PD: Y como seria para cerrarlo??

[karmany]

Yo veo que tal vez para cerrarlo haya que pulsar de nuevo el botón.

Código [Seleccionar] Expandir

If Cdrom = True Then
Cerrar
Cdrom = False
Else
Abrir
Cdrom = True

[Neobius]

Yo tambien pense lo mismo que dandole otra vez al boton se cerraria, pero por mas que le doy no hace nada.

[Gangrel]

El 127 es el largo de la variable returnstring, este 127 es por compatibilidad con los punteros en C, ya que las API's estan echas esencialmente para ser manejadas en lenguaje C yo te recomiendo que lo dejes en 127.

[Sancho.Mazorka]

pra abrirlo en el evento del click del command1 pone abrir y en otro cerrar y listo a mi tampoco me funciono ese ejemplo aunque a lo tenia. Salu2


Sancho Mazorka    

[BenRu]

Crea dos botones, uno para abrir y otro para cerrar.

[{_The_Alwar_}]

joder, si pone 127 es por algo, a mi dandole otra vez me furula perfectamente, lo q no se como hacer es decirle q unidad quiero q se habra