|
Lo Ultimo en
Paramotor ElPelaO | |
Si quieres ver todas las novedades de ElPelaO Paramotor, visita el
siguiente enlace:
Click Aquí
|
Colabora con ElPelaO | Enlázanos...
|
|
 | |
 |
|
|
---
---
|
|
Abrir/Cerrar lector de CD (Visual Basic)
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
Más
articulos sobre
Agosto 2007
|
| | |
|
|
Llévate este artículo a tu
Web |
Colabora con ElPelaO.
LLevate
nuestro logo a tu web:
 |
|
Ultimos Programas |
|
|
| | |
<
/TBODY>
