delphi打开关闭光驱

本文整理自网络，侵删。

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

相关阅读 >>

Delphi xe中将正则表达式tregex的使用

Delphi 判断尾串是否匹配,不分大小写

在一个exe文件中查找指定内容,找到则返回起始位置,否则返回0

Delphi 微信公众平台 Delphi sdk

Delphi 杨辉三角

Delphi trystrtoint字符转换成整数

crc16.pas

Delphi中调用必应搜索(bing)的api函数

Delphi 根据文本高度确定richedit高度

Delphi shellexecute最简单的结束进程代码

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

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