delphi打开关闭光驱

本文整理自网络，侵删。

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

相关阅读 >>

Delphi更改android亮度

Delphi twebbrowser也能响应回车键

Delphi判断不同格式的时间是否相等

Delphi 如何把类中的方法做参数

Delphi实现webservice带身份认证的数据传输

Delphi+sql数据库增加，删除，修改，查询操作

Delphi 循环 low high 用法

如何判断硬盘是fat32还是ntfs

Delphi 在运行时改变控件的大小

Delphi通过代码实现模拟按键的函数

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

转载请注明出处：木庄网络博客 » delphi打开关闭光驱