• Home
 · 
• Windows API Call/Explanation
 · 
• Sencillo programa que permite abrir o cerrar el CDAudio utilizando API de Windows

Sencillo programa que permite abrir o cerrar el CDAudio utilizando API de Windows

Sencillo programa que permite abrir o cerrar el CDAudio utilizando API de Windows

API Declarations


'Declaraciones en 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



Rate Sencillo programa que permite abrir o cerrar el CDAudio utilizando API de Windows

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Sencillo programa que permite abrir o cerrar el CDAudio
'utilizando API de Windows
'
'Desarrollado por Edson Calle
'La Paz - Bolivia
'2003
'
'Está permitida la reproduccion de este código fuente
'siempre y cuando se incluya este comentario


'***********************************************************
' Codigo en el formulario
'(Solamente se necesita un boton llamado BotonAbrirCerrar)
'***********************************************************

Dim swCDAudio As Boolean

Private Sub BotonAbrirCerrar_Click()
  Dim res As Long, returnstring As String * 127
  If swCDAudio = False Then 'para abrir la puerta
    ImageAbierto.Visible = True
    ImageCerrado.Visible = False
    ImageAbierto.Refresh
    res = mciSendString("set CDAudio door open", returnstring, 127, 0)
    swCDAudio = True
    BotonAbrirCerrar.Caption = "&Cerrar CDAudio"
  Else 'para cerrarla
    ImageAbierto.Visible = False
    ImageCerrado.Visible = True
    ImageCerrado.Refresh
    res = mciSendString("set CDAudio door closed", returnstring, 127, 0)
    swCDAudio = False
    BotonAbrirCerrar.Caption = "&Abrir CDAudio"
  End If
End Sub