教學 - 不用軟件為光碟新增「關閉」命令

[psac]

不用軟件為光碟新增「關閉」命令

為光碟新增「關閉」命令

不知為什麼，在微軟目前的操作系統中，光碟的命令表菜單都是只有「彈出」命令，沒有「關閉」命令。如果我們不想按光碟的按鍵關閉彈出的工作列，就不得不依靠安裝第三方軟件來實現。其實，我們也可以用VBScript語句彌補這點不足。

　　關閉所有光碟

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

　　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」文件在你系統中儲存的路徑）。

　　用同樣的方法可以將關閉指定光碟的命令加入光碟的右鍵表菜單中。修改完畢後，關閉註冊表就可在右鍵表菜單中找到「關閉所有」和關閉指定磁碟代號的命令。