Abrir/Cerrar lector de CD
Visual Basic
19.479 visualizaciones desde el 23 de Enero del 2003
Función Api que permite abrir y cerrar el lector de CD.
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta(2)'Api para incluir en un modulo
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'crear dos botones en un formulario
Private Sub Command1_Click()
'Se abrirá el CD
retvalue = mciSendString("set Cdaudio door open", returnstring, 127, 0)
End Sub
Private Sub Command2_Click()
'Se cerrará el CD
retvalue = mciSendString("set Cdaudio door closed", returnstring, 127, 0)
End Sub
Comentarios sobre la versión: Versión 1 (2)