delphi打开关闭光驱

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 使用 tedgebrowser 组件

一些最基本的函数 单元

Delphi pascal 单元文件的特殊定义格式

Delphi 不用控件用函数实现发email

Delphi应用程序 paramstr（）带有参数

Delphi在case语句中使用字符串

Delphi 2009 之 tcategorypanelgroup[4]: height

最简单的Delphi程序(控制台)

minsperday：一天中有多少分钟

Delphi 控制memo1滚动条

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

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