光驱“软开关”程序

Author: 范明之魏小红 Date: 2001年 2期

    在 “我的电脑”中右击光驱图标，单击“弹出”项，便弹出光驱，比手工方式开/关光驱方便、快捷，可它只能实现弹出而不能关闭，如何弥补此项不足呢？为此，笔者巧用VB 6.0提供的多媒体控件成功地设计了一个实用的光驱“软开关”程序：运行程序，单击“光驱弹出”按钮便能够使光驱弹出，“光驱弹出”钮也变为“入盘” 状态、单击“入盘”，光驱便关闭，“入盘”钮又变为“光驱弹出”状态，光驱的开、关仅需点击鼠标即可！
　　    现将光驱“软开关”程序设计的过程列举如下：
　　    1.新建工程及窗体Form1，单击“工程”菜单中“部件”项，选中“Microsoft Multimedia Control6.0”项，单击“应用”，将控件MMControl添加在工具条中。
　　    2.将MMControl1控件、命令控件Command1、Command2加入Form1中，设置MControl1的Visible属性为Flase、设置Command1、Command2的Caption属性分别为：“光驱弹出”、“退出程序”。
　　    3.列程序清单如下：
　　    Private Sub Command1_Click（）?煟?
　　    MMControl1.DeviceType = "CDAudio"
　　    MMControl1.Command = "Open"
　　    MMControl1.Command = "Play"
　　    MMControl1.Command = "Eject"
　　    MMControl1.Command = "Close"
　　    If Command1.Caption = "光驱弹出" Then
　　      Command1.Caption = "入盘"
　　    Else
　　      Command1.Caption = "光驱弹出"
　　    End If
　　    End Sub
　　    Private Sub Command2_Click?煟?
　　    Unload Me
　　    End Sub
　　    Private Sub Form_Initialize?煟?
　　    Command1.Caption = "光驱弹出"
　　    End Sub
　　    4.将该工程编译成可独立执行文件，然后单击“我的电脑→查看→文件夹选项，选择“文件类型”，在“已注册的文件类型”框选中“文件夹→编辑→新建”，在“操作”框输入“On/OffCDRom”，在“用于完成操作的应用程序”框输入或使用浏览按钮选择前面所生成的可执行文件的路径，单击“确定”按钮完成加入操作。
　　    现在右击任意文件夹，弹出的快捷菜单中就多了一个“弹出/关闭光驱”的功能项：“On/OffCDRom”。
　　
　　