delphi打开关闭光驱


本文整理自网络,侵删。

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

相关阅读 >>

Delphi动态创建tadoquery加access出现'不正常的定义参数对象 提供了不一致或不完整的信息'错误

Delphi添加任务栏右键菜单

Delphi的控制台程式添加公司信息、版权信息

Delphi 动态给combobox赋值,从combobox中取值

Delphi 路径有空格调用批处理

Delphi application.restore; 简单用法

Delphi中的unicode转换

Delphi 使用zlib对datasetprovider.data数据包进行压缩传输的测试

Delphi新建服务,停止系统服务,以及获取服务状态和新建系统服务器的方法

Delphi xe10 android 界面设计-个人心得

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



打赏

取消

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

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

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

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

评论

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