delphi打开关闭光驱


本文整理自网络,侵删。

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

相关阅读 >>

Delphi远程注入dll方法

Delphi代码变异加密工具

Delphi trect的宽和高

Delphi+mysql:tadoquery使用插入中文乱码解决方法

Delphi 字符串查找替换函数

Delphi中dataset和json的互转

Delphi内嵌汇编实现�载任意进程的某个dll

Delphi 通过twebbrowser文档中的id查找html元素

Delphi的窗体文件(dfm)文件中的汉字提取出来?

Delphi 按字母排序的windows窗口公用消息

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



打赏

取消

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

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

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

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

评论

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