<b>用BCB开辟掌握面板程序</b>[VC/C++编程]

前不久,Inprise公司（原Borland公司）正式公布了Delphi 5.0版,其开辟向导中支持了“掌握面板程序（CPL）”框架的生成,操纵它可以快速、便利地开辟CPL程序.那么能否能在现有的Borland C++ Builder 中开辟CPL程序呢?

CPL程序是动态链接库（DLL）的一种变形,只不过扩大名为.cpl、进口函数为CPlApplet()而不是DllEntryPoint()罢了(并非不要DllEntryPoint(),不然不能编译）.我们只需在BCB4.0中挑选“File|New...”翻开开辟向导,挑选“DLL”生成一个DLL框架,并在此中加入一个函数CPlApplet()便可以了.为了快速地阐明问题,笔者先给出一个最简单的例子程序,然后再来说解.

#include <vcl.h>
#include <cpl.h>
#include <cplext.h>
#pragma hdrstop
USERES("my.res");//这是我加入的资源文件,此中有一个图标
extern"C" __declspec(dllexport) long CALLBACK __stdcall CPlApplet(HWND hwndCPL,UINT uMsg,LPARAM lParam1,LPARAM lParam2);
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
return 1;
}
long CALLBACK __declspec(dllexport) __stdcall CPlApplet(HWND hwndCPL,UINT uMsg,LPARAM lParam1,LPARAM lParam2)
{
LPNEWCPLINFO mycpl;//LPNEWCPLINFO构造可在CPL.H头文件中查看
long result=0;
switch (uMsg)//判断传来的信息
　 {
　 case CPL_INIT:// 第一个信息,在掌握面板调入时产生
　　 result=1;
　　 break;
　 case CPL_GETCOUNT://第二个信息,在掌握面板调入时产生
　　 result=1;
　　 break;
　 case CPL_INQUIRE://第三个信息,当掌握面板查询时产生
　　 result=0;
　　 break;
　 case CPL_NEWINQUIRE://第三个信息,当掌握面板查询时产生
　　 mycpl=LPNEWCPLINFO (lParam2);// 将lParam2中的指针传给mycpl
　　 mycpl->dwSize=sizeof(NEWCPLINFO);
　　 mycpl->dwFlags=0;//标志变量 普通设为0
　　 mycpl->dwHelpContext=0;//帮忙句柄普通设为0
　　 mycpl->lData=0;
　　 mycpl->hIcon=(HICON)LoadIcon(HInstance,"MyIcon");
　　 mycpl->szHelpFile[0]='\0';//帮忙文件
　　 StrCopy(mycpl->szName,"BCB掌握面板演示程序");//在图标下显示的阐明文字
　　 StrCopy(mycpl->szInfo,"用BCB开辟自己的掌握面板程序");// 在掌握面板状况栏中显示的阐明信息
　　 result=0;
　　 break;
　 case CPL_DBLCLK://当图标被双击时
　　 ShowMessage("这是一个CPL试验程序");
　　 result=0;
　　 break;
　 case CPL_STOP://当用户关闭自已的程序时产生
　　 result=1;
　　 break;
　 case CPL_EXIT:// 当掌握面板关闭时产生,系统利用FreeLibrary()释放
　　 result=0;
　　 break;
　 default:
　　 break;
　 }
return result;
}