delphi打开关闭光驱

本文整理自网络，侵删。

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

相关阅读 >>

Delphi远程注入dll方法

Delphi代码变异加密工具

Delphi trect的宽和高

Delphi+mysql:tadoquery使用插入中文乱码解决方法

Delphi 字符串查找替换函数

Delphi中dataset和json的互转

用Delphi内嵌汇编实现�载任意进程的某个dll

Delphi 通过twebbrowser文档中的id查找html元素

Delphi的窗体文件（dfm）文件中的汉字提取出来？

Delphi 按字母排序的windows窗口公用消息

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

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