main.cpp

C++ BUILDER精彩编程实例集锦(源码)3 第五部分 系统编程 第六部分 数据库应用

#include <vcl.h>
#include <cpl.h>
#include <cplext.h>
#pragma hdrstop
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 MyControlPannel;
  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:
         MyControlPannel=LPNEWCPLINFO(lParam2);
         MyControlPannel->dwSize=sizeof(NEWCPLINFO);
         //标志变量 一般设为0
         MyControlPannel->dwFlags=0;
         //帮助句柄一般设为0
         MyControlPannel->dwHelpContext=0;
         MyControlPannel->lData=0;
         //装入在控制面板中显示的图标，取系统图标
         MyControlPannel->hIcon=ExtractIcon(HInstance,"Shell32.dll",20);;
         //帮助文件
         MyControlPannel->szHelpFile[0]='\0';
         //在图标下显示的说明文字
         StrCopy(MyControlPannel->szName,"自制控制面板演示程序");
         // 在控制面板状态栏中显示的提示信息
         StrCopy(MyControlPannel->szInfo,"这是一个定制的控制面板程序");
         result=0;
         break;
    //当图标被双击时
     case CPL_DBLCLK:
          MessageBox(NULL,"这是系统控制面板中的图标被双击时产生的消息","信息提示",MB_OK);
          result=0;
         break;
     //当用户关闭自已的程序时产生
     case CPL_STOP:
          result=1;
          break;
     // 当控制面板关闭时产生，系统使用FreeLibrary()释放
     case CPL_EXIT:
         result=0;
         break;
     default:
         break;
}
return result;
}