Platform

Win32, x64

Purpose

To close an open CD-drive tray.

Syntax

SUBROUTINE CLOSE_CD_TRAY@()

Description

Simply by calling this routine any open CD drive with a mechanical drawer will close.

See also

OPEN_CD_TRAY@, PLAY_AUDIO_CD@, SET_CD_POSITION@, STOP_AUDIO_CD@

Example

WINAPP
INTEGER i,ctrl,winio@
EXTERNAL cb_open,cb_close
ctrl=1
i=winio@('%ca[CD Tray Control]%nl&')
i=winio@('%^bt[OPEN] ^bt[CLOSE]%lw',cb_open,cb_close,ctrl)
END
INTEGER FUNCTION cb_open()
include <windows.ins>
CALL open_cd_tray@()
cb_open=2
END
INTEGER FUNCTION cb_close()
INCLUDE <windows.ins>
CALL close_cd_tray@()
cb_close=2
END