Powered by GeSHi

Source code for cdeject.cmd

(view source code of cdeject.cmd as plain text)

  1. /* Eject CD-ROM using Multimedia Rexx support */
  2.  
  3. /* Load Multimedia REXX support */
  4. call RxFuncAdd 'mciRxInit','MCIAPI','mciRxInit'
  5. call mciRxInit
  6.  
  7. /* Open the CD-audio device and send the Sesame Open command */
  8. rc = mciRxSendString( "open CDAudio01 alias CDA wait", "RetStr", "0", "0" )
  9. rc = mciRxSendString( "stop CDA wait", "RetStr", "0", "0" )
  10. rc = mciRxSendString( "set CDA door open wait", "RetStr", "0", "0" )
  11. rc = mciRxSendString( "close CDA wait", "RetStr", "0", "0" )
  12.