delphi打开关闭光驱

本文整理自网络，侵删。

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

相关阅读 >>

用Delphi编写聊天程序

Delphi 之 定时器 (ttimer组件)

Delphi strtofloat 将“字符型”转换成“浮点型”

Delphi 无法调用cmd nbtstat命令解决办法

Delphi directx简单应用

Delphi 如何将多个文件复制到一个

Delphi xe实现android 添加图片资源到应用并使用它

Delphi idftp连接

Delphi 如何比较两个二维数组是否相等

Delphi 当前日期的加减运算

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

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