用Delphi实现对光驱盘盒的开关控制

引言

通常，我们打开和关闭光驱是通过按动光驱上开关按钮来实现的，但有时候手动方式显得很不方便，尤其是在一台电脑上安装多个光驱的情形下，同时光驱的损耗在手动方式下也是最大的，Delphi是个功能强大且容易的编程工具，可不可以利用编程方法来取代手工操作呢？通过摸索与实践终于将这一想法利用Delphi编程得以实现，该程序不但能够控制一个光驱，而且还可以选择性地控制某个光驱和所有光驱的开启与关闭，这对那些操作多个光驱而又懒得弯腰的电脑人确实会方便许多。

编程思路

编程思路：通过弹出菜单及事件控制光驱。

1、弹出菜单的实现

运行Delphi并新建一个工程，在uses部分引用ReGIStry, Mmsystem两个单元文件，在窗体中添加一个名称为PopmenuCDctrl弹出菜单组建，并添加6个菜单项，窗体TForm1的Popupmenu 项设为PopmenuCDctrl。其中mOpenCDROM（打开CDROM盒）和mCloseCDROM（关闭CDROM盒）菜单将根据电脑中光驱个数自动生成相应的菜单栏目。

2、声明的变量和函数：

… …
            procedure mCloseAppClick(Sender: TObject);
            procedure mAutorunClick(Sender: TObject);
            procedure mNotautorunClick(Sender: TObject);
            procedure PopmenuCDctrlPopup(Sender: TObject);
            private
            　{ Private declarations }
            　procedure MenuOpenCdrom(Sender : TObject);
            　procedure MenuCloseCdrom(Sender : TObject);
            var
            　Form1: TForm1;
            　MYDRIVE:char;
            　Mycdrom:pchar;
            　tmppopmenu1,tmpPopmenu2:TMenuItem;
            　function OpenCDROM(Drive:pChar):Boolean;
            　function CloseCDROM(Drive:pChar):Boolean;
            　implementation
            　… …

列出光驱数目和生成子菜单

procedure TForm1.PopupMenu1Popup(Sender: TObject);
            　var Drive :char;
            begin;
            　mOpenCdrom.Clear; //清除打开光驱子菜单项
            　mCloseCdrom.Clear; //清除打开光驱子菜单项
            　//列出光驱数目和生成子菜单
            　for Drive:=a to z do
            　begin
            　　Case GetDriveType(Pchar(Drive+:)) of
            　　　DRIVE_REMOVABLE:
            　　　MyDrive:=Drive;
            　　　DRIVE_FIXED:
            　　　MyDrive:=Drive;
            　　　DRIVE_CDROM:
            　　begin
            　　　MyDrive:=Drive;
            　　　tmppopmenu1:=TMenuItem.Create(Self);
            　　　tmppopmenu1.AutoHotkeys:=maManual;
            　　　tmppopmenu1.OnClick := menuOpenCdrom;
            　　　mOpenCDROM.Add(tmppopmenu1);
            　　　tmppopmenu1.Caption :=UpperCase(mydrive)+:;
            　　　tmppopmenu2:=TMenuItem.Create(Self);
            　　　tmppopmenu2.AutoHotkeys:=maManual;
            　　　tmppopmenu2.OnClick := menuCloseCdrom;
            　　　mCloseCDROM.Add(tmppopmenu2);
            　　　tmppopmenu2.Caption :=UpperCase(mydrive)+:;
            　end;
            　DRIVE_RAMDISK:
            　MyDrive:=Drive;
            　DRIVE_REMOTE:
            　MyDrive:=Drive;
            end;
            end;
            //当光驱多于1个生成“所有光驱”控制菜单项
            if mOpenCDROM.Count > 1 then
            begin
            　tmppopmenu1:=TMenuItem.Create(Self);
            　tmppopmenu1.Caption:=所有光驱;
            　tmppopmenu1.OnClick := menuOpenCdrom;
            　mOpenCDROM.Add(tmppopmenu1);
            　tmppopmenu2:=TMenuItem.Create(Self);
            　tmppopmenu2.Caption:=所有光驱;
            　tmppopmenu2.OnClick := menuCloseCdrom;
            　mCloseCDROM.Add(tmppopmenu2);
            end;
            end;

补充：软件开发 , Delphi ,