вот часть кода исходника этой программы:
Код:
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;
интерфейсная часть, думаю, не важна)