Тут есть такие приколы (нужно убрать пробел в ссылке) .
http://www.pbstartprog.narod. ru
Код.
If InitAudioCD() ; Инициализация библиотеки работы с CD/DVD дисководами.
UseAudioCD(0) ; Выбор дисковода с номером 0.
Repeat
EjectAudioCD(1) ; Открыли лоток.
EjectAudioCD(0) ; Закрыли лоток.
Delay(100) ; Пауза на 100 миллисекунд.
ForEver ; Переходим на Repeat.
EndIf
знаю.