本文整理自网络,侵删。
uses mmsystem;
mciSendString('Set cdaudio door open wait', nil, 0, handle); //打开
mciSendString('Set cdaudio door closed wait', nil, 0, handle);//关闭
相关阅读 >>
Delphi 使用google translate实现tts
Delphi xe增强的rtti妙用--动态创建包中的窗口类
Delphi 从给定字符串中截取n个字节的字符(解决汉字截取乱码问题)
Delphi 中让嵌入窗体的 webbrowser 控件无边框
Delphi httpclient async异步获取网页代码
更多相关阅读请进入《Delphi》频道 >>