delphi打开关闭光驱

本文整理自网络，侵删。

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

相关阅读 >>

Delphi打印各类文档

delhpi如何直接获得webbrowser输入的xml文件

Delphi中关于时间差的实例

Delphi 下载网页

Delphi webbrowser控件的事件

Delphi tarray<tarray<string>> 用法

Delphi string.parse

Delphi tadoquery 中文使用说明

Delphi 中的字符串

Delphi 分解链接主域名和文件名

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

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