by Edson Calle Medina (1 Submission)
Category: Windows API Call/Explanation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 22nd April 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
'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
No comments have been posted about Sencillo programa que permite abrir o cerrar el CDAudio utilizando API de Windows. Why not be the first to post a comment about Sencillo programa que permite abrir o cerrar el CDAudio utilizando API de Windows.