Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
Trucos Abrir/Cerrar lector de CD (Visual Basic)

Abrir/Cerrar lector de CD (Visual Basic)

Autor: Enviado por: Hurricane - Enviado con fecha: 26-04-2005 17:06:21.
Si necesitan rutinas para manipular la Bandeja de CD, aquí va el código:


Private 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

Rem Abre/Cierra la bandeja de CD.
Rem Si ST = FALSE, cierra la bandeja.
Rem Si ST = TRUE, abre la bandeja.
Sub OpenCD(ByVal St As Boolean)
Dim Ret As Integer, ReturnString As String, Aux As String
If St Then
Aux = "open"
Else
Aux = "closed"
End If
Ret = mciSendString("set CDAudio door " + Aux, ReturnString, 127, 0)
End Sub



Espero que les sea de gran utilidad. Saludos;-)
InicioBlog
^ SubirAviso legal
Política Privacidad
Configurarequipos19 Octubre 2019