注册利用RegSvr32来注册.COM组件

xvideos..com  时间:2021-03-05  阅读:()

利用RegSvr32来注册.NET COM组件

 背景

前一段时间由于业务关系须要在一个比较旧的系统编写一个补丁。原系统使用VB编程但如果要使用VB来实现这个补丁的内容对于我这个并不怎么接触VB的人来说太头痛了。由于平时使用的是C#来开发于是便想到能否用编写.NETCOM组件的方式来让VB调用。想到这两三下便写了个.NETCOM测试组件用VB测试调用测试OK。接下来就是进行后续的开发可等到开发完成后到了补丁打包环节却傻眼了。原来的补丁打包工具在诞生时还不知道.NET为何物所以根本没有使用RegAsm来注册.NET COM组件的功能。现在更改打补丁工具那是不现实的可要使得VB调用.NET COM又必须使用RegAsm注册这下怎么办呢

 解决方式

原打包工具是支持使用Reg Svr32来注册Co m组件的忽然想到能否使用Reg Svr32来注册.N ETCOM组件呢印象中regsvr32在注册DLL的时候会有个Cal lBack函数的于是赶紧Google找找相关资料最终解决了这个问题。主要原理是写一个代理的dl l 在这个DLL的注册响应函数Dl lRegisterServer里调用RegAsm来注册.NET COM 同理在Dl lUnregisterServer里反注册。

 代理DLL代码stdafx.h

#pragma once

#include <windows.h>

#include <tchar.h>

Reg iste r.cpp

/*----------------------------------------------

此组件主要解决C#编写的COM组件无法用RegSvr32注册的问题

原理是增加一个代理DLL在代理DLL注册时 响应DllRegisterServer注册函数

在响应函数中使用RegAsm来注册.Net Com组件反注册同理。

----------------------------------------------*/

#include "stdafx.h"

#define MAX_PATH 260

//全局变量存放注册代理dll路劲

TCHAR g_FilePath[MAX_PATH] ;

BOOL APIENTRY DllMain( HMODULE hModule,

DWORD ul_reason_for_call,

LPVOID lpReserved

)

{

//记录代理DLL的路径主要是为了方便后面获取代理DLL所在目录

GetModuleFileName(hModule, g_FilePath, 255) ;

switch (ul_reason_for_call)

{case DLL_PROCESS_ATTACH:case DLL_THREAD_ATTACH:case DLL_THREAD_DETACH:case DLL_PROCESS_DETACH:break;

}return TRUE;

}

//注册响应函数extern "C" _declspec(dllexport) long DllRegisterServer(void)

{return Register(TRUE) ;

}

//反注册响应函数extern "C" _declspec(dllexport) long DllUnregisterServer(void)

{return Register(FALSE) ;

}

//注册组件

//install : TRUE for install, FALSE for unstall

BOOL Register(BOOL install) {

TCHAR cmd[MAX_PATH] ;

PROCESS_INFORMATION processInfo;

STARTUPINFO stInfo;

//获取注册命令

GetCmdLine(cmd, install) ;

ZeroMemory( &processInfo, sizeof(processInfo) ) ;

ZeroMemory( &stInfo, sizeof(stInfo) ) ;stInfo.cb = sizeof(stInfo) ;

BOOL ret;

//创建注册进程ret =

CreateProcess(NULL,cmd,NULL,NULL,FALSE,CREATE_NO_WINDOW,NULL,NULL,&stInfo,&processInfo) ;if(ret==TRUE) {

CloseHandle(processInfo.hProcess) ;

CloseHandle(processInfo.hThread) ;return TRUE;

}else{

//DWORD error = GetLastError() ;return FALSE;

}return FALSE;

}

//获取注册命令加/s开关可以免除确认步骤。

//注册 RegAsm.exe /s Test.dll

//反注册 RegAsm.exe /s /u Test.dllvoid GetCmdLine(LPTSTR cmd, BOOL install) {

TCHAR regAsmPath[MAX_PATH] ;

TCHAR regDl lPath[MAX_PATH] ;

TCHAR temp[10] ;regAsmPath[0] = ' \0' ;regDllPath[0] = ' \0' ;temp[0] = ' \0' ;

GetRegAsmPath(regAsmPath) ; //获取RegAsm.exe程序绝对路径

GetRegDllPath(regDllPath) ; //获取需要注册的.NET COM组件绝对路径if(install) {lstrcpy(temp, _T(" /s ") ) ;

}else{lstrcpy(temp, _T(" /s /u ") ) ;

}cmd[0] = ' \0' ;lstrcat(cmd, regAsmPath) ;lstrcat(cmd, temp) ;lstrcat(cmd, regDllPath) ;

}

//获取需要注册.Net Com组件路径此处写死为Test.dll与代理dll在同一个目录//后期可以改成读取ini配置文件void GetRegDllPath(LPTSTR path) {int count = 0;for(int i=0; i < MAX_PATH; i++) {if(g_FilePath[i] == _T('\\' ) ) {count = i + 2;

}

}

TCHAR temp[MAX_PATH] ;lstrcpyn(temp, g_FilePath, count) ; //代理DLL所在目录lstrcat (path, _T("\"") ) ;lstrcat (path, temp) ;lstrcat (path, _T("Test.dll\"") ) ;

}

//获取.NET COM注册程序RegAsm. exe的路径

//方法读取[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\Instal lRoot]的值//然后拼接上"v2.0.50727\RegAsm. exe"void GetRegAsmPath(LPTSTR path) {

HKEY hKey;

DWORD dwBufLen = MAX_PATH;

LONG lRet;lRet = RegOpenKeyEx(HKEY_LOCAL_MACHINE,_T("SOFTWARE\\Microsoft\\.NETFramework") ,0,KEY_READ, &hKey) ;lRet = RegQueryValueEx(hKey, _T("InstallRoot") , NULL, NULL, (LPBYTE)path, &dwBufLen) ;RegCloseKey(hKey) ;lstrcat(path, _T("v2.0. 50727\\RegAsm.exe") ) ;

}

DogYun27.5元/月香港/韩国/日本/美国云服务器,弹性云主机

DogYun怎么样?DogYun是一家2019年成立的国人主机商,称为狗云,提供VPS及独立服务器租用,其中VPS分为经典云和动态云(支持小时计费及随时可删除),DogYun云服务器基于Kernel-based Virtual Machine(Kvm)硬件的完全虚拟化架构,您可以在弹性云中,随时调整CPU,内存,硬盘,网络,IPv4路线(如果该数据中心接入了多条路线)等。DogYun弹性云服务器优...

打开海外主机域名商出现"Attention Required"原因和解决

最近发现一个比较怪异的事情,在访问和登录大部分国外主机商和域名商的时候都需要二次验证。常见的就是需要我们勾选判断是不是真人。以及比如在刚才要访问Namecheap检查前几天送给网友域名的账户域名是否转出的,再次登录网站的时候又需要人机验证。这里有看到"Attention Required"的提示。我们只能手工选择按钮,然后根据验证码进行选择合适的标记。这次我要选择的是船的标识,每次需要选择三个,一...

美得云(15元/月)美国cera 2核4G 15元/月 香港1核 1G 3M独享

美得云怎么样?美得云好不好?美得云是第一次来推广软文,老板人脾气特别好,能感觉出来会用心对待用户。美得云这次为大家提供了几款性价比十分高的产品,美国cera 2核4G 15元/月 香港1核 1G 3M独享 15元/月,并且还提供了免费空间给大家使用。嘻嘻 我也打算去白嫖一个空间了。新用户注册福利-8折优惠码:H2dmBKbF 截止2021.10.1结束。KVM架构,99.99%高可用性,依托BGP...

xvideos..com为你推荐
Baby被问婚变绯闻黄晓明baby一起出来带娃,想要打破离婚传闻?网红名字被抢注关于新浪微博昵称被抢注。我改微博名称时显示被抢注,但是却搜索这个昵称,又显示找不到这个人,请问为什嘉兴商标注册如何注册商标怎样商标注册甲骨文不满赔偿工作不满半年被辞退,请问赔偿金是怎么算的?www.55125.cnwww95599cn余额查询www.7788dy.com回家的诱惑 哪个网站更新的最快啊www.zjs.com.cn我的信用卡已经申请成功了,显示正在寄卡,怎么查询寄卡信息?www.15job.com广州天河区的南方人才市场www.175qq.com最炫的qq分组梦遗姐昨晚和姐姐和她朋友一起吃晚饭,我们都喝了酒,我迷糊着回到家的,早上我回想起我好像发生关系射过,会不会是我姐姐,如果是这样我怎么办
郑州服务器租用 动态域名解析软件 过期域名抢注 外国服务器 mach5 紫田 42u标准机柜尺寸 http500内部服务器错误 网通代理服务器 免费ftp站点 丹弗 500m空间 毫秒英文 免费phpmysql空间 免费网页申请 网站加速软件 德讯 cdn网站加速 789电视剧网 tracker服务器 更多