delphi打开关闭光驱

本文整理自网络，侵删。

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

相关阅读 >>

Delphi windows 编程[21] - wm_menuselect 消息与 getmenustring 函数

Delphi 实现无标题栏但有边框的窗口

Delphi以二进制方式读取图片并显示出来

Delphi 实现禁用“任务管理器”

Delphi实现屏幕抓图

Delphi 动态给combobox赋值，从combobox中取值

Delphi sendtextmessage 等方便的消息发送函数

Delphi showmodal与show的区别

Delphi idhttp1 获取网页代码

Delphi 获取网络图片在webbrowser显示 android/osx/ios/win的最佳方式

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

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