Delphi程序?qū)崿F(xiàn)對光驅(qū)盤盒的開關(guān)控制

引言
    通常，我們打開和關(guān)閉光驅(qū)是通過按動光驅(qū)上開關(guān)按鈕來實現(xiàn)的，但有時候手動方式顯得很不方便，尤其是在一臺電腦上安裝多個光驅(qū)的情形下，同時光驅(qū)的損耗在手動方式下也是的，Delphi是個功能強大且容易的編程工具，可不可以利用編程方法來取代手工操作呢？通過摸索與實踐終于將這一想法利用Delphi編程得以實現(xiàn)，該程序不但能夠控制一個光驅(qū)，而且還可以選擇性地控制某個光驅(qū)和所有光驅(qū)的開啟與關(guān)閉，這對那些操作多個光驅(qū)而又懶得彎腰的電腦人確實會方便許多。
    編程思路
    編程思路：通過彈出菜單及事件控制光驅(qū)。
    1、彈出菜單的實現(xiàn)
    運行Delphi并新建一個工程， 在uses部分引用ReGIStry, Mmsystem兩個單元文件，在窗體中添加一個名稱為PopmenuCDctrl彈出菜單組建，并添加6個菜單項，窗體TForm1的Popupmenu 項設(shè)為PopmenuCDctrl，PopmenuCDctrl的名稱和主要屬性賦值見表1。
    表1 TPopupmenu組建屬性表
    名稱
    組件類型
    組件CAPTION
    主要過程及事件
    說明
    mMenuTitle
    TMenuItem
    ==光驅(qū)控制==
    無
    彈出菜單標簽
    mOpenCDROM
    TMenuItem
    打開CDROM盒
    生成子菜單(
    打開光驅(qū)子菜單
    mCloseCDROM
    TMenuItem
    關(guān)閉CDROM盒
    生成子菜單
    關(guān)閉光驅(qū)子菜單
    mAutoRun
    TMenuItem
    置啟動時執(zhí)行
    mAutoRunClick
    開機運行
    mNotAutoRun
    TMenuItem
    自動執(zhí)行無效
    SetCDAutoRun(False)
    取消開機運行
    mCloseApp
    TMenuItem
    關(guān)閉控制程序
    Application.Terminate;
    關(guān)閉控制程序
    設(shè)置后的彈出菜單效果如圖1所示所示，其中mOpenCDROM（打開CDROM盒）和mCloseCDROM（關(guān)閉CDROM盒）菜單將根據(jù)電腦中光驅(qū)個數(shù)自動生成相應(yīng)的菜單欄目。