Hola, Así se hace en visual Basic y funciona, pero en foxpro no lo se. solo te convertir este codigo a fox
Public 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
Entonces en un Form:
Dim lngReturn As Long
Dim strReturn As Long
Private Sub CmdAbrir_Click()
lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)
End Sub
Private Sub CmdCerrar_Click()
lngReturn = mciSendString("set CDAudio door closed", strReturn, 127, 0)
End Sub
Ojala te sirva.
Atte ROD