AbrirCD
Publicado por Luis Rich (15 intervenciones) el 05/07/2002 03:41:37
Saludos mi problema es el siguiente: tengo un proyecto y declaro una funcion para abrir la badeja del cdrom asi
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringB" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
y luego en un command button se ecribe esto
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
El caso es que este codigo abre la unidad cdrom pero qusiera saber como se hace para abrir un CD-RW o un DVD gracias de antemano
Salud2
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringB" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
y luego en un command button se ecribe esto
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
El caso es que este codigo abre la unidad cdrom pero qusiera saber como se hace para abrir un CD-RW o un DVD gracias de antemano
Salud2
Valora esta pregunta
0