Código VB para expulsar el CD

Jaja, nada. El código es el siguiente:

Opción explícita

Función de declaración privada mciSendString Lib "winmm.dll" alias "mciSendStringA" (ByVal lpstrCommand es String, ByVal lpstrRetumString es String, ByVal uReturnLength es Long, ByVal hwndCallback es Long) es Long

Dim tMsg as string * 255

Lo anterior es una declaración.

El siguiente es el procedimiento.

Private Sub Command1_Click()'Este es el botón emergente del que estás hablando.

"Dim cdPath As String" define la ruta.

CdPath = Left(App.Path, 2)' Esta es la letra de la unidad óptica. Debido a que está cerrado por el programa en la unidad óptica, la ubicación del programa es la ubicación del. unidad óptica~

mciSendString suma "abierta". cdPath & amp "Escriba el alias de audio del CD, espere a que se comparta", 0 & amp 0, 0 'Ruta de la aplicación

mcisendstring "establezca la puerta del CD abierta en espera", tmsg, 255, 0 'Expulsar el CD.

Conector de terminal

El cartel puede intentar cambiar el cdPath de arriba a la letra de su unidad óptica (sin \). Si tienes alguna pregunta, envíame un mensaje.