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

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