低级问题：为啥俺的控件面板程序不行呀！

[vcmfc]

这两天写一个控制面板，发现有以下问题：在CPlApplet收到第一个消息CPL_INIT后
就再也接收不到消息了，产一个异常中断？，请大家顺手解决一下！，谢谢大家。
程序环境：程序使用Win32 Dynamic-link Library向导产生的程序，不与MFC产生关系！
OS环境：WIN NT 4 Workstation
顺便再问一个问题：如何在控件面板中放入我的程序的图标，是写注册表吗？，如何写？
以下是程序源程序：
#include "stdafx.h"
#include <cpl.h>
#include "resource.h"

HINSTANCE hInstance=NULL;
//对话处理过程，太长就不列了。
BOOL CALLBACK CPLDlgDefProc(HWND hDlg,UINT uMsg,WPARAM wParam,LPARAM lParam);

BOOL APIENTRY DllMain( HINSTANCE hModule, DWORD dwReason,LPVOID lpReserved)
{
if(dwReason==DLL_PROCESS_ATTACH)//需要这个判断吗？
hInstance=hModule;
return TRUE;
}
extern "C" __declspec(dllexport) LONG CPlApplet(HWND hWndCPL,UINT uMsg,LONG lParam1,LONG lParam2)
{
//处理控件面板消息
LONG nResult=0;
LPCPLINFO lpCPLInfo;
switch(uMsg)
{
case CPL_INIT://收到该消息，但一结束后控制面板提出有异常！，why?
MessageBox(NULL,"init","PROMPT",MB_OK);//正常显示
nResult=TRUE;
break;
case CPL_GETCOUNT://没收到该消息呀！
MessageBox(NULL,"ERROR","PROMPT",MB_OK);//没有显示出来呀
nResult=1;
break;
case CPL_INQUIRE:
lpCPLInfo=(LPCPLINFO)lParam2;
lpCPLInfo->lData=0;
lpCPLInfo->idName=IDD_TITLE;
lpCPLInfo->idInfo=IDD_TITLE;
lpCPLInfo->idIcon=ICO_HRTMOUSE;
break;
case CPL_DBLCLK:
FARPROC lpProcDlg;
lpProcDlg=(FARPROC)MakeProcInstance(CPLDlgDefProc,hInstance);
DialogBox(hInstance,MAKEINTRESOURCE(DLG_GENERAL),hWndCPL,(DLGPROC)lpProcDlg);
FreeProcInstance(lpProcDlg);
break;
case CPL_STOP:
break;
case CPL_EXIT:
break;
default:
break;
}
return nResult;
}

方便的话给我点资料呀！：vcmfc

[vcmfc]

补上：[e-mail]

[vcmfc]

唉！

[vcmfc]

唉！

[zero100]

在吗？
开OICQ：604744

[vcmfc]

我通过代理上网呀！，OICQ不能用呀！，5555~~~~5555~~~,为我哀掉3分钟吧！

[zero100]

好了，你的声明改成
extern "C" __declspec(dllexport) long pascal CPlApplet(HWND hWnd,UINT wMsg,long lp1,long lp2);
就是这样了，
我刚才试过的。
主要是pascal的调用方式。
OK

[vcmfc]

不行呀！，输出函数变成了_CPlApplet@16(),控件无法安装呀！

[vcmfc]

找到了，气得吐血呀！，我开始也是怀疑pascal的调用问题，老哥说的没错，不过老哥的声明我点问题，我的解决如下：long CALLBACK CPlApplet(HWND hWnd,UINT wMsg,long lp1,long lp2);,然后建立hrtmouse.def中加入export CPLApplet()就OK了，谢谢大哥！，给分.

[vcmfc]

考，没人懂呀！,还是不值回答呀！...~~~##$$##$$$.....

[panda_w]

给你一些资料

[zero100]

我以前写的测试程序，可以用的，也许有用
long pascal CPlApplet(HWND hWnd,UINT wMsg,long lp1,long lp2)
{
char szMsg[8][256] = {"CPL_INIT","CPL_GETCOUNT","CPL_INQUIRE","CPL_DBLCLK",
"CPL_EXIT","CPL_STOP","CPL_NEWINQUIRE","other"};
int nIndex = 0;
CPLINFO *pCplInfo;
BOOL bRet =1;

switch(wMsg)
{
case CPL_INIT:
nIndex = 0;
break;
case CPL_GETCOUNT:
nIndex = 1;
break;
case CPL_INQUIRE:
// case CPL_NEWINQUIRE:
nIndex = 2;
if(lp1>0) return 0;
pCplInfo = (CPLINFO*)lp2;
pCplInfo->idInfo = IDI_MAIN;
pCplInfo->idName = IDI_MAIN;
pCplInfo->idIcon = IDI_MAIN;
pCplInfo->lData = NULL;
bRet = 0;
break;
case CPL_DBLCLK:
nIndex = 3;
On_Process(hWnd,(CPLINFO*)lp2);
return 1;
break;
case CPL_EXIT:
nIndex = 4;
break;
case CPL_STOP:
nIndex = 5;
break;
case CPL_NEWINQUIRE:
nIndex = 6;
break;
default:
nIndex = 7;
bRet = 0;
break;
}

MessageBox(hWnd,szMsg[nIndex],"消息!",MB_OK);
return bRet;
}

我看你的程序也没问题。：（

[zero100]

测试你的代码，可以的！

[zero100]

测试你的代码，可以的！
注意你的CPL要拷贝到系统目录下才能在控制面板上看到的。
还有在
BOOL APIENTRY DllMain( HANDLE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
ghInstance = (HINSTANCE)hModule;//我没有作判断，
return TRUE;
}

[vcmfc]

谢谢老大哥的参与！
你说的地方我都有呀！

[vcmfc]

谢谢老大哥的参与！
你说的地方我都有呀！,现在主要问题是在CPlApplet收到第一个消息CPL_INIT后
就再也接收不到消息了，产一个异常中断.

[vcmfc]

拷贝到到系统目录下也不行运行呀！