有谁做过控制面板程序，给指导一下

<<delphi深度历险>>里有很详细的介绍

解决方案 »

  1.   

    快讯：美国五角大楼发生火灾 可能也遭飞机撞击 --------------------------------------------------------------------------------http://jczs.sina.com.cn 2001年9月11日 21:47 舰船知识网络版 　　当地时间9月11日9：40(北京时间21：40)消息，位于华盛顿的五角大楼也发生大火，据悉也是遭到飞机撞击所致。
     
    回复人：　jjdelphi(小义)　(2001-9-11 23:13:40)  得0分 
    两架飞机撞上纽约世界贸易中心--------------------------------------------------------------------------------　　两架飞机撞上美国纽约世界贸易中心大楼并引发爆炸 
    　　当地时间9月11日约9：00(北京时间11日约21：00)，两架飞机先后撞上美国纽约世界贸易中心大楼，并引发爆炸。目前飞机型号和伤亡情况不详……>>
    点击进入 [发表评论] 　　详讯：纽约世贸中心两座摩天大楼均倒塌 　　20:51-20:55 4分钟报道美国恐怖事件 新浪网再夺全国报道第一 相关专题  
     
    回复人：　jjdelphi(小义)　(2001-9-11 23:14:22)  得0分 
    恐怖袭击美国：世贸中心、五角大楼、国会山纷纷遭袭 (20010911 22:59) 
    详讯：数千万美国人亲眼目睹第二架飞机撞击大楼 (20010911 22:58) 
    恐怖袭击美国 白宫成为空城 (20010911 22:55) 
    图文：美国纽约世界贸易中心爆炸后浓烟滚滚 (20010911 22:54) 
    快讯：美国宾夕法尼亚一架波音747飞机坠毁 (20010911 22:54) 
    详讯：美国多地遭到恐怖袭 世贸大楼倒塌 (20010911 22:53) 
    快讯：第二架遭劫持的飞机被怀疑飞往五角大楼 (20010911 22:46) 
    快讯：撞击纽约摩天大楼的第二架飞机可能是波音747 (20010911 22:43) 
    快讯：纽约世界贸易中心附近第三座大楼发生爆炸 (20010911 22:43) 
    快讯：五角大楼发现另一被劫持飞机飞往华盛顿 (20010911 22:42) 
    快讯：匹兹堡附近一架飞机袭击目标 (20010911 22:40) 
    快讯：一架被劫持的飞机正飞往华盛顿 (20010911 22:39) 
    快讯：美国五角大楼一部分倒塌 (20010911 22:38) 
    详讯：纽约世贸中心两座摩天大楼均倒塌 (20010911 22:35) 
    快讯：国务院发生汽车炸弹爆炸 政府所有部门紧急疏散 (20010911 22:35) 
    图文：飞机撞上美国世贸中心大楼后立即引起爆炸 (20010911 22:32) 
    快讯：纽约世贸中心另一座摩天大楼倒塌 (20010911 22:29) 
    图文：飞机撞向美国世界贸易中心大楼前的一瞬间 (20010911 22:28) 
    图文：飞机撞向美国世界贸易中心大楼前的情景 (20010911 22:26) 
    快讯：所有到华盛顿和纽约的国际航班均飞往加拿大 (20010911 22:26) 
    中国日报：举世闻名的美国“姐妹塔”中的一座已经倒塌 (20010911 22:25) 
    快讯：没有倒塌的摩天大楼上部浓烟滚滚 (20010911 22:22) 
    中国日报：恐怖袭击美国 白宫成为空城 (20010911 22:21) 
    图文：两架飞机撞到美国世界贸易中心大楼 (20010911 22:18) 
    快讯：美国国会山遭飞机袭击发生爆炸 (20010911 22:15) 
    快讯：美国华盛顿各主要部门均紧急疏散 (20010911 22:14) 
    快讯：美国纽约世界贸易中心一栋摩天大楼倒塌 (20010911 22:03) 
    快讯：美国各大城市均受到恐怖主义攻击 (20010911 22:02) 
    详讯：美国五角大楼发生火灾 可能也遭飞机撞击 (20010911 21:58) 
    中国日报：布什谴责飞机撞大楼是恐怖事件 (20010911 21:58) 
    美国联邦航空局：关闭所有机场 所有飞机停飞 (20010911 21:57) 
    中新社：两架飞机撞上纽约世贸中心顶楼发生爆炸 (20010911 21:55) 
    中新社：布什指飞机撞世贸是"恐怖袭击"下令全国总动员 (20010911 21:55) 
    快讯：美FBI在飞机撞上纽约世贸大楼前正调查劫机事件 (20010911 21:49) 
    快讯：美国五角大楼发生火灾 可能也遭飞机撞击 (20010911 21:47) 
    图文：两架飞机撞上纽约世贸中心大楼并引发爆炸 (20010911 21:42) 
    快讯：布什就飞机撞击世界贸易中心事件发表讲话 (20010911 21:37) 
    快讯：其中一架飞机为波音767 (20010911 21:33) 
    两架飞机撞上纽约世界贸易中心大楼并引发爆炸 (20010911 21:22) 
    中国日报：又一架客机撞中世贸大楼 (20010911 21:21) 
    快讯：第二架飞机撞上世界贸易中心并引发爆炸 (20010911 21:08) 
    快讯：一架飞机撞上纽约世界贸易中心 (20010911 20:55)  
    回复人：　hantao(憨豆)　(2001-9-11 23:19:27)  得0分 
    精彩!  
    回复人：　DD88(咖啡杯里的毛巾)　(2001-9-11 23:35:07)  得0分 
    打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国我一向憎恨美国和日本！！！！！！
     
    回复人：　turbozzh(涡轮超人)　(2001-9-11 23:36:50)  得0分 
    哈哈哈，美国也有今天！！！！痛快！  
    回复人：　DD88(咖啡杯里的毛巾)　(2001-9-11 23:37:21)  得0分 
    好象世界大战！爽！
    多行不义必自毙！！！  
    回复人：　DD88(咖啡杯里的毛巾)　(2001-9-11 23:40:19)  得0分 不过冷静想想，这对我们国家的影响也是很大的！
    美国购买力肯定会下降！  
    回复人：　tikkypeng(千两狂死郎)　(2001-9-11 23:45:55)  得0分 
    牛~~~~没时间说话了~~  
    回复人：　tikkypeng(千两狂死郎)　(2001-9-11 23:49:21)  得0分 
    牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~  
    回复人：　DD88(咖啡杯里的毛巾)　(2001-9-11 23:49:52)  得0分 
    现在又有一架飞机被劫持了，正向白宫飞去！
    哈哈，有好系看了！  
    回复人：　tikkypeng(千两狂死郎)　(2001-9-11 23:57:46)  得0分 
    牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~  
    回复人：　DD88(咖啡杯里的毛巾)　(2001-9-12 0:00:53)  得0分 
    另据报道，为安全起见，美国总统官邸白宫已经撤空。此外，美国政府已宣布全国处于紧急状态。美国所有的机场已经关闭，所有的飞机已经停飞。两亿多美国人民和全世界人民都处在空前的紧张之中。  
    回复人：　tikkypeng(千两狂死郎)　(2001-9-12 0:25:44)  得0分 
    (请您对您的言行负责，遵守中华人民共和国有关法律、法规,尊重网上道德)(请您对您的言行负责，遵守中华人民共和国有关法律、法规,尊重网上道德)(请您对您的言行负责，遵守中华人民共和国有关法律、法规,尊重网上道德)(请您对您的言行负责，遵守中华人民共和国有关法律、法规,尊重网上道德)(请您对您的言行负责，遵守中华人民共和国有关法律、法规,尊重网上道德)爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~爽~~就是爽~~  
    回复人：　dlciq(friend)　(2001-9-12 0:31:03)  得0分 
    干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！  
    回复人：　lwk_hlj(阿凯)　(2001-9-12 7:57:07)  得0分 
    干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！干死美国！ 打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国！打倒美国牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了~~牛~~~~没时间说话了请您对您的言行负责，遵守中华人民共和国有关法律、法规,尊重网上道德 
    回复人：　snjun(闲得每天只想上csdn)　(2001-9-12 8:00:41)  得0分 
    怎么发生了这样的事情--小不死，你在打磕睡吗？
    爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽爽  
    回复人：　JohnWoo(JohnWoo)　(2001-9-12 8:03:35)  得0分 
    俺们村的地主儿子被人打了一闷棍。值得庆祝。可俺先声明一下，俺不喜欢暴力。干吗要打他的儿子。只打那个什么3个角，4个角， 5个角，6个角，7个角，8个角的房子就行了，还有那个白房子也可以打的。干吗要把养了那么大的儿子弄倒了，砸倒小朋友就不好了，即使砸不到小朋友，砸到花花草草也不好呀。看是不，村长说了，地主家死伤5万多，猪呀狗的全包括了其他的就不要另算了。俺的娘呀，死的比俺家圈里养的都多，真是瘦死的狗比猫大。当家的，赶紧着，到地主家看看，顺便告诉人家一声，她儿子的暴死可不关俺们的事，俺可是有这心没这胆的。  
    回复人：　JohnWoo(JohnWoo)　(2001-9-12 8:05:16)  得0分 
    还什么可能呀。
    根本就是。昨天晚上的新闻都说了。
    怎么互联网的速度比不上电视。
    可怜。  
    回复人：　hellenlong(海龙)　(2001-9-12 8:25:27)  得0分 
    爽  
    回复人：　liaokuo(辽阔)　(2001-9-12 8:28:12)  得0分 
    美国在上周没有预报的情况下普遍看到
    大面积流星雨
    这是征兆
    果然应验了  
    回复人：　seadraog(dd)　(2001-9-12 8:41:05)  得0分 
    感觉好极了  
    回复人：　eastxiang(飄)　(2001-9-12 8:45:20)  
      

  2.   


    Delphi 5快速创建控制面板程序
     
    ---- Borland Delphi是深受广大软件开发人员喜爱的一种高效、快速的RAD（Rapid Application Development）开发工具。在1999年秋季发布的Delphi 5中，Delphi又引入了许多新的特色。其中之一便是Delphi 5的Enterprise和Professional版本中新增了用于快速创建控制面板（CPL）程序的向导和类，这使得我们能够在可视化开发环境中非常方便地建立控制面板应用程序。 ---- 一、关于控制面板程序 ---- 在Windows中，用户通过控制面板来进行增删程序、添加硬件、设置各种系统属性等操作。控制面板中所显示的小程序(或称之为对话框)是由控制面板程序(Control Panel Application)提供的。Windows本身附带了十来个控制面板应用程序，它们都位于Windows的System目录下，扩展名为*.CPL。每个控制面板中的应用程序可以有一个或多个对话框，每个对话框在控制面板中用一个图标代表。 ---- 控制面板应用程序实质上是一类特殊的动态链接库，每个控制面板程序必须输出一个CPlApplet函数，它是控制面板应用程序的入口，其主要作用是处理Windows消息。CPlApplet函数的原型为： 
    function CPlApplet(
    hwndCPl: THandle; //Identifies the main
    window of the controlling application.
    uMsg: DWORD; // Specifies the message 
    being sent to the Control Panel application
    lParam1, lParam2: Longint // Specify
    additional message-specific information
    ): Longint; stdcall;---- CplApplet函数是控制面板与控制面板应用程序通讯的唯一方式。一个控制面板程序中的CplApplet函数的基本框架结构如下： 
    function CPlApplet(hwndCPl: THandle; uMsg: DWORD;
      lParam1, lParam2: Longint): Longint;
    begin
      //…
      case (uMsg) of
        CPL_INIT: begin {…} end;
        CPL_GETCOUNT: begin {…} end;
        CPL_INQUIRE: begin {…} end;
        CPL_NEWINQUIRE: begin {…} end;
        CPL_DBLCLK: begin {…} end;
        CPL_STOP: begin {…} end;
        CPL_EXIT: begin {…} end;
        CPL_STARTWPARMS: begin {…} end;
        CPL_SETUP: begin {…} end;
      end;
    //函数的返回值取决于uMsg
    end;---- 事实上，编写控制面板程序的主要任务都放在处理这些CPL_消息上，关于这些消息的含义，请参看Delphi 5所带的帮助文档Win32.hlp。 ---- 为了简化控制面板程序的创建，Delphi 5新增了一个可视化构件库CtlPanel.PAS。CtlPanel单元中定义了TAppletApplication(控制面板应用程序类)和TAppletModule类. ---- 使用TAppletApplication和TAppletModule类构造控制面板应用程序是一件非常轻松的事情。下面我来介绍一下在Delphi 5中创建控制面板程序的基本步骤。 ---- 二、Delphi 5中建立控制面板程序 ---- 第一步：选择File | New菜单，在New Items对话框的New页上选择Control Panel Application，Delphi将创建一个新的控制面板应用程序（其中已经包含一个applet）。Delphi向导创建的工程文件如下： 
    library Project1;
    uses
      CtlPanel,
      Unit1 in 'Unit1.pas' 
    {AppletModule1: TAppletModule};exports CPlApplet;{$R *.RES}
    {$E cpl}begin
      Application.Initialize;
      Application.CreateForm
    (TAppletModule1, AppletModule1);
      Application.Run;
    end.---- 在上面的DPR文件中，Application对象的类型是TAppletApplication，而不是TApplication，它是在CtlPanel单元中申明的。而且CplApplet函数也已经由CtlPanel单元定义好了。 ---- 第二步：更改AppletModule的属性 ---- 一个AppletModule对象代表一个对话框（即applet），一个CPL应用程序可以包含多个对话框。你可以通过Delphi向导来增添多个AppletModule。 ---- AppletIcon属性：指定一个图标，此图标将出现在控制面板中。 ---- Caption属性：显示在图标下面的文字。 ---- Help属性：出现在控制面板窗口的状态栏上的文字。 ---- ResidIcon属性：图标资源id，此属性与AppletIcon属性互斥。 ---- ResidName属性：字符串资源id，此属性与Caption属性互斥。 ---- ResidInfo属性：字符串资源id，此属性与Help属性互斥。 ---- 第三步：编写事件句柄 ---- 在控制面板中，当鼠标双击对话框的图标时，相应的AppletModule对象会产生OnActivate事件。为了响应鼠标的双击，你需要为TAppletModule的OnActivate事件属性提供一个事件句柄。 procedure TAppletModule1.
    AppletModuleActivate(Sender: 
                      TObject; Data: Integer);
    begin
      MessageBox(Application.ControlPanelHandle, 
                 'Delphi 5 is so great!', 'CPL Demo',
                   MB_ICONINFORMATION);
    end;---- 第四步：CPL的安装 ---- 由于动态连接库工程文件中有一个{$E cpl}编译指示字，编译此DPR文件将产生一个扩展名为.CPL的文件，它就是我们所要的控制面板应用程序模块。控制面板程序的安装十分简单，只要将CPL文件拷贝到Windows的System目录（或者Windows NT的System32目录）下即可。当你再次打开控制面板时，你所编写的控制面板应用程序就会出现。 
    ----------------