• Viernes 8 de Noviembre de 2024, 18:55
« anterior próximo »
Páginas: [1]

Autor Tema:  Abrir Puerta  (Leído 939 veces)

AYCUL

  • Miembro activo
  • **
  • Mensajes: 80
    • Ver Perfil
Abrir Puerta
« en: Sábado 14 de Febrero de 2004, 05:49 »
0
HOLA !!  :hola:

Como puedo abrir y cerar la puerta del cd? ya se como hacerlo en windows 98
pero como lo hago con windows me, windows 2000 y xp

adios y gracias   :adios:

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Abrir Puerta
« Respuesta #1 en: Sábado 14 de Febrero de 2004, 12:14 »
0
Código: Text
  1.  
  2. Private Declare Function mciSendString Lib "winmm.dll" Alias _
  3. "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
  4. lpstrReturnString As String, ByVal uReturnLength As Long, _
  5. ByVal hwndCallback As Long) As Long
  6.  
  7. Private Sub Abrir()
  8.     Dim str1 As String * 127
  9.     mciSendString "set CDAudio door open", str1, 127, 0
  10. End Sub
  11.  
  12. Public Sub Cerrar()
  13.     Dim str1 As String * 127
  14.     mciSendString "set CDAudio door closed", str1, 127, 0
  15. End Sub
  16.  
  17.  

AYCUL

  • Miembro activo
  • **
  • Mensajes: 80
    • Ver Perfil
Re: Abrir Puerta
« Respuesta #2 en: Sábado 14 de Febrero de 2004, 14:27 »
0
gracias brroz  :angel:
Páginas: [1]
« anterior próximo »