delphi打开关闭光驱


本文整理自网络,侵删。

 uses mmsystem;
mciSendString('Set cdaudio door open wait', nil, 0, handle); //打开
mciSendString('Set cdaudio door closed wait', nil, 0, handle);//关闭

相关阅读 >>

Delphi xe10 针对全面屏手机端无法全面显示,下方显示黑条的处理

Delphi 根据文本高度确定richedit高度

idftp tencoding and iidtextencoding

Delphi 使用indy idftp 通过android 上传文件

Delphi unigui 控件动画

Delphi xe 的 tdictionary

Delphi nethttpclient1 下载显示进度条

Delphi之软件检测更新

Delphi dbgrideh 的分组统计 datagrouping

Delphi获取计算机的工作组信息和获取工作组中的计算机名称

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...