Были такие проблемы.
Иногда по КНОПКЕ на CD, DVD устройстве не всегда выдвигался лоток с компакт-диском да и без него. Приходилось идти таким путем:
Мой компьютер -> Открыть.
Выбирал устройство с съемными носителями - DVD-RAM дисковод (тот DVD-ROM из которого не мог извлечь запертый в него компакт-диск). Правый клик мышки - выбирал пункт ИЗВЛЕЧЬ. Таким способом извлекал диск, который не мог вытащить с ПОМОЩЬЮ самого устройства, т.е. кнопки специально предназначенного для этого на самом устройстве. Но иногда бывало и так, что и это не помогало и думал что все - привод не работает. Для этого применял некоторые программы которые вешал в правом ТРЕЕ чтобы они это делали. Но такие программы обязательно надо было инсталлировать и в некотором случае они именно для меня были неудобны (громоздки, плохо работали и т.д. и т.п.)
Так как иногда в своей работе для написания программ в среде FOXPRO применяю компонеты ActiveX, то нашел такой компонент с помощью которго можно было выдвигать лоток. Написал программу на VBS скрипт и часто ей пользуюсь. Программка небольшая. Вот она то меня пока не подводила. Вытащил иконку на стол.
И еще: конечно у ВАС должен быть установлен Microsoft Media Payer 7 и ВЫШЕ.
ActiveX компонент wmp.dll
Привожу листинг программы CDdisk_eject.vbs
'*******************************************************************
' Имя: CDdisk_eject.vbs
' Author: (c) Lend
' Язык: VBScript
' Описание: Извлечение компакт-диска
'************************** Начало *********************************
Set MPlayer=CreateObject("WMPlayer.OCX.7")
MPlayer.cdromCollection.item(x).eject()
'************************** Конец **********************************
где x - номер CD дисковода или DVD(они нумеруются с 0). У меня в системном блоке установлены два устройства DVDRom. Который первый - 0, второй - 1
Тогда, если выбираете ПЕРВЫЙ, то:
'*******************************************************************
' Имя: CDdisk_eject.vbs
' Author: (c) Lend
' Язык: VBScript
' Описание: Извлечение компакт-диска
'************************** Начало *********************************
Set MPlayer=CreateObject("WMPlayer.OCX.7")
MPlayer.cdromCollection.item(0).eject()
'************************** Конец **********************************
Если все варианты предложенные ВАМ в этой теме не помогут, ну тогда надо искать причину на месте, а так это очень трудно ВАМ подсказать.
С уважением
LEND