.net com组件注册示例

15819995102

看了论坛好像没有注册.net com组件的例子 , 就自己写了一个

1. function cshap_com组件注册()
   
2.   var net路径 = ""
   
3.   var net版本路径 = ""
   
4.   var regasm路径 = ""
   
5.   var retfirearr = array()
   
6.   var retfoldarr = array()
   
7.   var retfoldarr_size = -1
   
8.   net路径 = reggetvalue("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\.NETFramework", "InstallRoot")
   
9.   filetraverse(net路径, retfirearr, retfoldarr)
   
10.   retfoldarr_size = arraysize(retfoldarr)
    
11.   for(var i = 0; i < retfoldarr_size; i++)
    
12.     if(strfind(retfoldarr[i], "v4.0") != -1)
    
13.       regasm路径 = net路径 & retfoldarr[i] & "\\RegAsm.exe"
    
14.       break
    
15.     end
    
16.   end
    
17.   if(fileexist(regasm路径) == 1)
    
18.     cmd(regasm路径 & " E:\\mycom.dll", true)
    
19.   else
    
20.     messagebox("找不到RegAsm.exe")
    
21.   end
    
22. end

复制代码

ms5084456

不错不错支持一个,  就是不知道会不会如果没有安装NET组件, 就报错退出