delphi打开关闭光驱


本文整理自网络,侵删。

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

相关阅读 >>

Delphi dateutils功能详解

Delphi 查找并删除过期的日志目录

Delphi fdmemtable1建立缓存表

我的Delphi开发经验谈

Delphi 防止程序重复执行的单元

Delphi 删除整个目录

Delphi 10 seattle中使用本地通知,请使用tnotificationcenter组件

Delphi screencap 截图

Delphi使用tclientdataset时不携带midas.dll的方法

Delphi searchbox1 基本用法

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



打赏

取消

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

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

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

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

评论

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