本文整理自网络,侵删。
uses mmsystem;
mciSendString('Set cdaudio door open wait', nil, 0, handle); //打开
mciSendString('Set cdaudio door closed wait', nil, 0, handle);//关闭
相关阅读 >>
Delphi xe10 针对全面屏手机端无法全面显示,下方显示黑条的处理
idftp tencoding and iidtextencoding
Delphi 使用indy idftp 通过android 上传文件
Delphi dbgrideh 的分组统计 datagrouping
Delphi获取计算机的工作组信息和获取工作组中的计算机名称
更多相关阅读请进入《Delphi》频道 >>