delphi打开关闭光驱

本文整理自网络，侵删。

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

相关阅读 >>

Delphi　病毒

Delphi win7下超级管理员创建普通权限任务

Delphi获取系统当前进程名和进程id

Delphi tnethttpclient上传文件

Delphi 动态注册卸载ocx

Delphi 控制组件位置上下左右

Delphi 从twebbrowser webbrowser得到全部html源码

Delphi 如何替换word文档中的文本

Delphi程序常用的公共代码

Delphi中操作olevariant、variant和stream

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

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