delphi打开关闭光驱

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 一行关键代码阻止360云查杀

Delphi 用正则表达式检查一个串是否是电信的手机号

Delphi 窗体只显示控件

Delphi 收集了比较全的字符串进制转换

Delphi stringgrid 实例2：1、获取 stringgrid 的行数、列数; 2、给单元赋值

Delphi2010中使用pchar时e2010 incompatible types: 'char' and 'ansichar' 错误的处理

Delphi 动态调用chm文件

Delphi 主程序与dll之间的全局变量问题

Delphi xe android-uri-管理联系人uri

Delphi android 关闭应用程序对话框询问

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

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