弹出或关闭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 CLOSED WAIT',nil,0, Handle);
end;
弹出或关闭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 CLOSED WAIT',nil,0, Handle);
end;