Codigo Plus

Descargar Archivo

Titulo	Abrir-Cerrar unidad de Cd-Rom
Descripcion	Clasico codigo para abrir-cerrar la unidad de Cd-Rom
Descargas	741

Codigo Fuente

<pre><font face='Verdana,Tahoma'><span style="color: #0000FF">Private</span> <span style="color: #0000FF">Declare</span> <span style="color: #0000FF">Function</span> mciSendString Lib <span style="color: #B22222">"winmm.dll"</span> Alias <span style="color: #B22222">"mciSendStringA"</span> (<span style="color: #0000FF">ByVal</span> lpstrCommand <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>, <span style="color: #0000FF">ByVal</span> lpstrReturnString <span style="color: #0000FF">As</span> <span style="color: #0000FF">String</span>, <span style="color: #0000FF">ByVal</span> uReturnLength <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>, <span style="color: #0000FF">ByVal</span> hwndCallback <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>) <span style="color: #0000FF">As</span> <span style="color: #0000FF">Long</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> btn_Abrir_Click()
    mciSendString <span style="color: #B22222">"set cdaudio door open"</span>, 0, 0, 0
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span>

<span style="color: #0000FF">Private</span> <span style="color: #0000FF">Sub</span> btn_Cerrar_Click()
    mciSendString <span style="color: #B22222">"set cdaudio door closed"</span>, 0, 0, 0
<span style="color: #0000FF">End</span> <span style="color: #0000FF">Sub</span></font></pre>