delphi打开关闭光驱

本文整理自网络，侵删。

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

相关阅读 >>

Delphi dbgrid 表格自适应宽度

vclzip控件的简单使用

Delphi中使用flash控件

Delphi有用的函数extractfilename、extractfilepath

Delphi webbrowser 无法调用当前浏览器的版本

Delphi 多重循环

Delphi两个取字串长度的函数strlen,length

Delphi winsock 获取计算机名和ip

Delphi示例代码 android，ios，osx，windows，linux，html5

Delphi 条件编译语法 $ifdef $else $endif

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

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