📄 howto_open_closecdrom.htm
字号:
<html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><meta name=GENERATOR content=Microsoft FrontPage 3.0><meta name=Microsoft Border content=none><title>如何弹出关闭光驱</title></head><body style=font-family: 宋体, serif; font-size: 9pt><center><span style=font-family: 宋体, serif; font-size: 12pt><b>如何弹出、关闭光驱</b></span></center><center><span style=font-family: 宋体, serif; font-size: 9pt>西安 <a href=mailto:delphifan@990.net>梁 明</a></span></center><hr><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt>好多多媒体软件都能打开、关闭光驱自如，在Delphi中如何实现呢？<br> 其实，这是一个十分简单的工作，向MCI发送一条mciSendString指令即可！</span></li></ul><ul> <li><font color=#008000><span style=font-family: 宋体, serif; font-size: 9pt>小插曲---<br> ==================================================================><br> 一位好心的网友来信告诉我，我的这个程序有问题。其实,我立即又测试了一下，没有问题。当然，要用此函数，必须添加“mmsystem”单元，这位好心的网友不知是不是忘记添加此项。另外，我是在WinNT4环境下调试通过的，如果在Win98的环境下有问题请再来信关心我，为了Delphi的明天，希望大家关心这个网站，关心Delphi，谢谢各位好心人！！！<br> <=================================================================</span></font></li> <li><span style=font-family: 宋体, serif; font-size: 9pt><b>下面是源代码：<br> </b>procedure TForm1.OpenCDRomClick(Sender: TObject);<br> begin<br> //打开光驱<br> //。。。<br> mciSendString('Set cdaudio door open wait', nil, 0, handle);<br> //。。。<br> end;<br> <br> procedure TForm1.CloseCDRomClick(Sender: TObject);<br> begin<br> //关闭光驱<br> //。。。<br> mciSendString('Set cdaudio door closed wait', nil, 0, handle);<br> //。。。<br> end;<br> </span></li></ul><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt><b>窗体As text代码<br> <font color=#008080>(无内容)</font></b></span></li></ul><ul> <li> </li> <li> </li> <li><span style=font-family: 宋体, serif; font-size: 9pt>版主：梁明<br> 日期：1999-03-12-02：09<br> E-mail：<a href=mailto:delphifan@990.net>delphifan@990.net</a></span></li></ul><hr></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -