一个简单的CONTROL程序（转自《DELPHI深度历险》）

首先手工编写一个资源文件，代码如下：

 

Hello.rc

STRINGTABLE

BEGIN

1 "HELLO WORLD!"

2 "HOW DO YOU DO"

END

5 "ICON Face.ico"

 

确定同一目录下存放有Face.ico文件后，在命令行输入命令编译RC文件：brcc32 Hello.rc，如果一切无误，编译会生成Hello.res文件！

由于CPL本质是一个DLL文件，只不过带有CplApplet导出函数。所以接下来我们创建一个DLL程序，代码如下：

 

Library HelloCpl;

 

uses Windows,SysUtils,Dialogs,CPL;   //  编写控制面板程序必须引用此单元

 

{$R Hello.res}  // 连接资源文件

 

Procedure MsgBox(const Msg: string);

begin

  MessageBox(0,PChar(Msg),'Notice',Mb_OK + Mb_IconInformation);

end;

 

function CplApplet(hwndCPL: HWND;uMsg: UINT;lparam1: LPARAM;lparam2: LPARAM): LongInt;stdcall;

var pInfo: PCPLInfo;

begin

  case uMsg of

  CPL_INIT: Result := 1;    // 0--失败；非0成功。一般用于完成变量或内存配置等初始化工作

  CPL_GETCOUNT: Result := 1;   //返回所包含组件数目

  CPL_INQUIRE:                 // 取得控件面板组件信息

  begin

    pINfo := PCPLInfo(lPrarm2);

    with pInfo^ do

    begin

      idName := 1;       //  名称的资源ID

      idInffo := 2;    //  描述的资源ID

      idIcon := 5;    //  图标的资源ID

      lData := 0;    //  不需要用户自定义数据

    end;

    Result := 0;   //  成功

  end;

  CPL_NEWINQUIRE: Result := 0;  //  成功

  CPL_DBLCLK:                       //  激活某面板组件，一般是显示一SHOWMODAL对话框

  begin

    MsgBox('嘿嘿～应该在这里弹出界面！');

    Result := 0;  //  成功

  end;

  CPL_STOP: Result := 0;  //  成功

  CPL_EXIT: Result := 0;  //  成功

end;

 

exports CplApplet;

 

begin

end.

 

程序写完编译完成后，可以通过控制面板或RUNDLL32.EXE来执行！下面提供测试的BAT文件：

TestRun.bat

del hellocpl.cpl

ren hellocpl.dll *.cpl

rundll32 shell32.dll,Control_RunDll hellocpl.cpl

和安装的BAT文件：

Install.bat

del c:/windows/system32/hellocpl.cpl

copy hellocpl.dll c:/windows/system32/*.cpl

至于删除就更简单了，只要把控制面板关闭，然后直接删除系统目录下的文件就可以了！

 

写完了才发现，原来D的FILE  NEW中已经有了CONTROL PANEL APPLICATION！  -_-#!!!