首页 ┆ 源码下载 ┆ IT学院 ┆ 字体下载 ┆ 模板下载 ┆ 源码发布 ┆ 广告合作 ┆ 网站地图 ┆ 虚拟主机 ┆ 中文域名

►►您当前的位置：源码园 → IT学院 → 软件开发 → Delphi编程 → 文章内容

创建“控制面板”的新项目

作者：佚名来源：网上收集发布时间：2005-12-10 0:19:23

<-SSE WIDTH=100% SSE->　　当我们打开“控制面板”以后，能看到许多项目，如：系统、显示器等。不过，这些项目并非指向某些可执行的程序，其实，它们是一些特殊的动态链接库，在Windows里注册的类型是“控制面板扩展”，文件的扩展名是“CPL”。

　　这种“控制面板扩展”与普通动态链接库（DLL）类似，但必须符合以下的要求：

　　1.该动态链接库必须输出一个CplApplet函数，这个函数包含了一些消息，函数的原型如下：

　　function CPlApplet(hwndCPL: HWND; uMsg: UINT;

　　lParam1: LPARAM; lParam2: LPARAM): LongInt; stdcall;

　　2.该动态链接库的扩展名是“CPL”，位于Windows的系统目录下，通常是“\Windows\System”；

　　3.函数CplApplet必须处理的消息包括：CPL—INIT、CPL—GETCOUNT、CPL—NEWINQUIRE、CPL—DBLCLK等:

　　CPL—INIT：表示程序被（控制面板）发现，返回True或False表示是否继续进行下去。

　　CPL—GETCOUNT：确定程序在控制面板中显示的个数，返回值为显示的个数。

　　CPL—NEWINQUIRE：用于填写程序的信息。

　　CPL—DBLCLK：当图标被双击时触发，这时可以显示一个Form。

　　在Delphi中新建一个工程，选择“DLL”，Delphi就会自动创建一个动态链接库的框架，先把这个工程存为“myCPL.dpr”，然后新建一个Form，保存为main.pas。

　　myCPL.dpr的内容如下：

　　library mycpl;

　　uses

　　 Windows,

　　 SysUtils,

　　 CPL,

　　 Forms,

　　 main in ′main.pas′ {MainForm};

　　{＄E cpl}　　//表示扩展名是CPL

　　{＄R ＊.res}

　　function CPlApplet(hwndCPL: HWND; uMsg: UINT;

　　 lParam1: LPARAM; lParam2: LPARAM) : LongInt; stdcall;

　　var

　　 pNewInfo: PNewCPlInfo;

　　begin

　　 case uMsg of

　　　　CPL—INIT:

　　　　begin

　　 Result := 1;

　　end;

　　CPL—GETCOUNT:

　　begin

　　 Result := 1;

　　end;

　　CPL—NEWINQUIRE:

　　begin

　　 pNewInfo:=PNewCPlInfo(lParam2);

　　 with pNewInfo^ do

　　 begin

　　　　dwSize:=sizeof(TNewCPLInfo);

　　　　dwFlags:=0;

　　 StrPLCopy(szName,′新建项目′, 31);

　　 StrPLCopy(szInfo, ′我的选项′, 63);

　　 end;

　　end;

　　CPL—DBLCLK:

　　begin

　　 with TMainForm.Create(Application) do

　　　　ShowModal;

　　 Result:=0;

　　end;

　　 end;

　　end;

　　exports

　　 CPlApplet;

　　begin

　　end.

　　把编译好的mycpl.cpl拷贝到Windows的System目录下后，打开“控制面板”，你会发现多了一个“新建项目”，用鼠标选中，窗口的状态栏显示：“我的选项”。用鼠标双击，一个Form就显示出来，剩下的事情就不用多说了。

　　以上程序在Windows 95、Delphi 4.0下运行通过。

[] [返回上一页] [打印]

关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 - 源码发布

Copyright © 2003-2009 Ymyasp.Com. All Rights Reserved .
备案序号:粤ICP备07029071号