у самого ребенок кнопку на приводе выдрал)))
Код:
procedure DoDiskEject(Eject: Boolean);
begin
if Eject then mciSendString('set cdaudio door open', nil, 0, 0)
else mciSendString('set cdaudio door closed', nil, 0, 0);
end;
True - открыть, False - закрыть
http://zalil.ru/34651585
Левый клик на иконку в трее - меню, правый клик - открыть/закрыть. горячие клавиши в меню написаны.