| |
|
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;-)
|
|
