编程实现自动弹出和关闭CD托盘_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

编程实现自动弹出和关闭CD托盘

作者：闵涛文章来源：闵涛的学习笔记点击数：603 更新时间：2009/4/23 18:24:53

　　你肯定问过这个问题：我如何编程实现自动弹出和关闭CD托盘，而不必我用手按开关？好，本文就想谈一谈这个问题。

　　你们一定对Delphi的TMediaPlayer组件比较熟悉，它是一个相当出色的多用途的多媒体组件，但是美中不足的是：如果CDROM光驱的仓门打开就不能自动关闭。而且不幸的是，TMediaPlayer的方法和属性中没有解决这个问题的办法，所以我们不得不求助于Windows API，具体一些就是使用MMSystem.pas文件，另外一件需要注意的事是：我们可以单独调用Windows API函数，但是TMediaPlayer做了一些内部处理，所以我们就不必担心我们是否使用了组件。所以本例中使用了TMediaPlayer。

　　第一步新建一个工程，然后把一个TMediaPlayer 和 TButton拖到它上面。

　　第二步在窗体的uses语句中添加一个MMSystem声明。

　　第三步设置TMediaPlayer的AutoOpen属性为真，设置DeviceType属性为dtCDAudio，除此之外我们还可以关闭EnabledButtons属性的btEject选项，因为我们将使用代码来完成这个功能。

　　第四步在某些应用程序中，我还要使用到数据CD，所以我也要设置Visible属性为假，让我的按钮做开关仓门的动作。

　　第五步就是在按钮的Onclick 事件中添加下面的代码：

procedure TForm1.Button2Click(Sender: TObject);
begin
with MediaPlayer1 do
if (MediaPlayer1.Mode = mpOpen) then
mciSendCommand(MediaPlayer1.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0)
else
mciSendCommand(MediaPlayer1.DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
end;

　　注意，我们使用了mciSendCommand函数，在Windows中，每个东西都是被消息控制，在设备控制方面，mciSnedCommand与windows的WndProc非常相似，都象是一个消息分发器，提供给设备了消息类型、消息标志、消息参数以及你所使用的方法。如果您想了解更详细的信息的话，请您参阅帮助文件。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： Delphi利用Windows GDI实现文字倾斜

下一篇教程：使用Delphi启动和关闭外部应用程序

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……