引言

通常,我们打开和关闭光驱是通过按动光驱上开关按钮来实现的,但有时候手动方式显得很不方便,尤其是在一台电脑上安装多个光驱的情形下,同时光驱的损耗在手动方式下也是最大的,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;