FoxPro/Visual FoxPro - Aqui codigo para Abrir y Cerrar CD-ROOM

Para los que querian los codigo para habrir y cerrar CD-ROM aqui esta

DECLARE LONG mciSendString IN winmm.DLL;
STRING @lpstrCommand, ;
STRING @lpstrReturnString,;
LONG uReturnLength,;
LONG hwndCallback

strReturn = ''
* Abrir el CD-ROM
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)

*---------------------------------

DECLARE LONG mciSendString IN winmm.DLL;
STRING @lpstrCommand, ;
STRING @lpstrReturnString,;
LONG uReturnLength,;
LONG hwndCallback

strReturn = ''
* Cerrar el CD-ROM
lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)

ATTE ROD