自动弹出光驱

弹出或关闭cd-rom 函数（要加入 MMSystem 单元）

procduere Eject(YesOrNo: Boolean);

begin

if YesOrNo then

mciSendstring('SET CDAUDIO DOOR OPEN WAIT',nil,0,Handle)

else

mciSendstring('SET CDAUDIO DOOR CLOSEDWAIT',nil,0, Handle);

end;