在“我的电脑”中右击CD_ROM驱动器图标，单击[弹出]项，弹出光驱，比“手工”式开/关光驱方便、快捷，可它只能实现弹出而不能收回，如何弥补此项不足呢？为此，笔者利用VB 6.0提供的多媒体控件成功地设计了一个实用的光驱“软开关”程序：运行程序,单击[光驱弹出]按钮，光驱弹出，[光驱弹出]钮变为“入盘” 状态、单击[入盘]，光驱盘收回，[入盘]钮转为“光驱弹出”状态，光驱的开、关仅需点击鼠标即可！ 现将光驱“软开关”程序设计的过程列举如下： 1、新建工程及窗体Form1，单击“工程”菜单中“部件”项，选中“Microsoft Multimedia Control6.0”项，单击[应用]，将控件MMControl添加在工具条中； 2、将MMControl1控件、命令控件Command1、Command2加入Form1中；设置MMControl1的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、将该工程编译成可独立执行文件：C:\Windows\CdRomMoOff.exe 5、执行文件加入到任意文件夹鼠标右键快捷菜单之中: 单击“我的电脑”→“查看”→“文件夹选项”→“文件类型” →“在已注册的文件类型”框选中“文件夹”→“编辑”→“新建”→在“操作”框输入“On/OffCdRom”，在“用于完成操作的应用程序”框输入或使用浏览按钮选择“C:\Windows\CdRomMoOff.exe”,单击[确定]按钮，完成加入操作！ 右击任意文件夹，弹出的快捷菜单中就多了一个弹出/ 关闭光驱的功能项:“On/OffCdRom”,单击该项可方便地打开、关闭光驱！操作快捷,相当实用！
（出处：http://www.sheup.com）