爲光驅添加“關閉”命令

關閉所有光驅

　　如果你的系統中安裝了一個以上的光驅，那麼打開記事本，輸入以下代碼：

　　Set wmp = CreateObject("WMPlayer.OCX.7")

　　Set cdrom = wmp.cdromCollection

　　If cdrom.Count >= 1 then '（該句用來判斷你的系統中裝了多少個光驅）

　　For z = 0 to cdrom.Count - 1

　　cdrom.Item(z).Eject

　　Next

　　For z = 0 to cdrom.Count - 1

　　cdrom.Item(z).Eject

　　Next

　　End If

　　注意將文件類型改爲“所有文件”後，將文件保存爲“關閉所有.vbe”,在桌面上爲該文件建一個快捷方式，以後雙擊桌面上的快捷方式就可以關閉所有彈出的光驅。

　　關閉指定的光驅

　　以下語句可以讓你關閉指定的光驅，例如要關閉第一個光驅，我們可以新建個一文本文件，輸入以下代碼：

　　Set wmp = CreateObject("WMPlayer.OCX.7")

　　Set cdrom = wmp.cdromCollection

　　cdrom.Item(0).Eject

　 　同樣將該文件保存爲後綴爲VBE的文件，命名爲“close1.vbe”,以後雙擊該文件即可關閉你係統中的第一個光驅盤符。在以上語句裏，item (0)中的“0”代表第一個光驅盤符，如果要關閉第二個光驅盤符，請將這裏的“0”加1，依此類推，就可實現關閉指定的盤符了。

　　我們還可以將“關閉”添加到光驅的右鍵菜單中。方法是在註冊表編輯器中依次展開[HKEY_LOCAL_MACHINE/

　 　SOFTWARE/Classes/Drive/shell ]分支，然後在右側窗口中新建 “CloseCDROM”分支，進入該分區後，在右側窗口雙擊“默認”，將其默認值修改爲“關閉所有”；再點擊“編輯→新建→項”，將新鍵重命名爲 “command”,把“默認”值修改爲“C:/WINDOWS/System32/WScript.exe C:/關閉所有.vbe”（這裏要將C:/改爲“關閉所有.vbe”文件在你係統中保存的路徑）。

　　用同樣的方法可以將關閉指定光驅的命令加入光驅的右鍵菜單中。修改完畢後，關閉註冊表就可在右鍵菜單中找到“關閉所有”和關閉指定盤符的命令。