快速业务通道

ActiveX控件注册的几种方法

作者 佚名技术 来源 程序设计 浏览 发布时间 2012-06-30
,"不能载入Dll文件!","失败ing..",MB_OK);
return;
}
//获取注册函数DllRegisterServer地址
FARPROC lpDllEntryPoint;
lpDllEntryPoint = GetProcAddress(hLib,"DllRegisterServer");
//调用注册函数DllRegisterServer
if(lpDllEntryPoint!=NULL)
{
if(FAILED((*lpDllEntryPoint)()))
{
MessageBox(Handle,"调用DllRegisterServer失败!","失败ing..",MB_OK);
FreeLibrary(hLib);
return;
};
MessageBox(Handle,"注册成功!","Reg",MB_OK);
}
else
MessageBox(Handle,"调用DllRegisterServer失败!","失败ing..",MB_OK);
}
双击Button2,添加代码如下:
void __fastcall TForm1::Button2Click(TObject *Sender)
{
HINSTANCE hLib=LoadLibrary("F:\\c.ocx");
if (hLib==NULL)
{
MessageBox(Handle,"不能载入Dll文件!","失败ing..",MB_OK);
return;
}
//获取注册函数DllRegisterServer地址
FARPROC lpDllEntryPoint;
lpDllEntryPoint = GetProcAddress(hLib,"DllUnregisterServer");//注意这里是DllUnregisterServer,老妖著。
//调用注册函数DllRegisterServer
if(lpDllEntryPoint!=NULL)
{
if(((*lpDllEntryPoint)()))
{
MessageBox(Handle,"调用DllUnRegisterServer失败!","失败ing..",MB_OK);
FreeLibrary(hLib);
return;
};
MessageBox(Handle,"注销成功!","Unreg",MB_OK);
}
else
MessageBox(Handle,"调用DllUnRegisterServer失败!!!","结果",MB_OK);
}

编译联接上述程序,即可得一个可执行文件。另需注意的是:应将ActiveX控件文件复制到Windows的system目录下。

读者可自行找一个ocx文件来注册测试一下的说。

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号