您现在的位置: 范文先生网 >> 理工论文 >> 计算机信息技术 >> 正文

利用Delphi编写Windows控制面板组件及实例

时间:2007-1-18栏目:计算机信息技术

  张 建 军(中国人民解放军合肥炮兵学院研究生系97级)
  
  韩 莹 (中保财险安徽省铜陵市分公司计财部)
  
  关键词:
  
  在Windows95/NT/98操作系统中,控制面板(Control Panel)提供了定制Windows的操作方法,通过它可以完成设置打印机、显示、网络、添加新硬件等功能。通常控制面板包含20多个组件(*.CPL),分别负责系统某一方面的设置。鼠标双击任一组件图标,控制面板调用相应程序,弹出对话框,允许设置系统参数。确认修改后系统参数保存在Windows注册表或某一配置文件(*.INI)中。
  
  一、控制面板组件基础知识
  
  控制面板是一个Windows应用程序C:\WINDOWS\CONTROL.EXE,其配置文件是C:\WINDOWS\CONTROL.INI.控制面板组件是一些动态链接库,其扩展名不是DLL,而是CPL.通常,控制面板组件保存在C:\WINDOWS\SYSTEM\目录下。在CONTROL.INI中有一个[MMCPL]节,该节可指定由CONTROL.EXE调用的动态链接库,其格式一般为:
  
  …
  
  [MMCPL]
  
  uniqueName=D:\PROJECT1.DLL(这里假设PROJECT1为用户编写的控制面板组板文件
  
  名,其访问路径可由读者自行确定)
  
  …
  
  采用此方法,PROJECT1.DLL不必存放在C:\WINDOWS\SYSTEM\目录下,扩展名不必改为CPL.CONTROL.EXE运行后按以下顺序调用这些动态链接库:
  
  在C:\WINDOWS\SYSTEM\目录下调用MAIN.INI.
  
  已加载并输出CplApplet()函数的可安装驱动程序。
  
  在CONTROL.INI[MMCPL]节中指定的DLL.
  
  在C:\WINDOWS\SYSTEM\目录下调用CPL.
  
  因此,编写控制面板组件近似于编写普通DLL.通常一个CPL支持控制面板中的一个组件(即一个图标),也可支持多个组件。本文介绍利用Delphi编写CPL、扩充控制面板组件(一个CPL支持一个或多个组件)的方法。
  
  二、控制面板组件工作流程
  
  1、每个CPL文件必须输出一个CplApplet函数,与CONTROL.EXE之间传递、处理消息。CplApplet函数的原形是:
  
  type
  
  TCPLApplet = function (hwndCPl: THandle; uMsg: DWORD;
  
  lParam1, lParam2: Longint): Longint; stdcall;
  
  其中,hwndCPl是控制面板窗口句柄,uMsg是消息标识,lParam1、lParam2是两个附加参数,具体意义视uMsg的值而定。
  
  2、当CONTROL.EXE把各CPL(或DLL)调入内存时,CONTROL.EXE立刻向CPLApplet发送一条CPL_INIT消息,要求CPL执行全局初始化并分配内存。CPL_INIT是唯一可以返回调用失败的消息。如果初始化成功,CPL返回非零,否则返回零。如果CPL返回零,控制面板终止与CPL通信并卸载此CPL(或DLL)。
  
  3、CPL_INIT消息处理结束后,CONTROL.EXE立刻向CPLApplet发送一条CPL_GETCOUNT消息,CPL返回支持的组件数。
  
  4、CPL_GETCOUNT消息处理结束后,CONTROL.EXE立刻向CPLApplet发送一条CPL_NEWINQUIRE消息,CPL_NEWINQUIRE每次发送一条,以取得每个组件的图标、名称、提示内容(显示在控制面板的状态栏)等信息。lParam1是指定对话框的数值,该值应在0到(CPL_GETCOUNT - 1)之间。如果CPL_NEWINQUIRE处理成功,返回0.
  
  说明:
  
  ◆在Windows3.X系统中,CONTROL.EXE发送的是CPL_INQUIRE消息。为向下兼容,该消息被保留。基于Win32的CPL应使用CPL_NEWINQUIRE.
  
  ◆通过判断lParam1的值,可对一个CPL支持的多个组件的图标、名称、提示内容等进行控制。
  
  5、控制面板显示所有查找到的组件图标。鼠标双击任一组件图标,控制面板向其CPL发送一条CPL_DBLCLK消息,CPL显示相应对话框,供用户改变系统设置。
  
  说明:
  
  ◆通过检测lParam1的值,可判断用户双击的是一个CPL支持的多个组件中的哪个图标,并运行相应程序。
  
  6、控制面板关闭时,向每个组件发送一条CPL_STOP消息,然后对每个CPL发送一条CPL_EXIT消息,CPL释放内存并卸载。
  
  三、控制面板组件编写实例
  
  1、编程步骤:
  
  在Delphi IDE中选取菜单File-New-DLL-OK.
  
  ②在Project1中添加如图所示Form1、

[1] [2] [3] [4] 下一页

下页更精彩:1 2 3 4 下一页