刚接触TC第一天 发现教程好少 送个教程 完美注册大漠插件...

dj886

为了让新手更好的了解 此代码没有做简化 简化后的代码 在最下方找 如果要了解具体流程看上面的 直接使用用下面的

1. 
   
2. //调用注册大漠插件函数演示
   
3. 功能 主函数()
   
4.     如果(演示.注册大漠插件()==真)
   
5.         辅助.消息框("注册大漠插件成功")
   
6.     否则
   
7.         辅助.消息框("注册大漠插件失败")
   
8.     如果结束
   
9. 功能结束
   
10. 
    
11. //注册大漠插件函数代码
    
12. 功能 注册大漠插件()
    
13.     变量 返回值
    
14.     // 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下
    
15.     辅助.命令("regsvr32 atl.dll /s",真)
    
16.     //注册大漠
    
17.     如果(辅助.注册插件("rc:dm.dll",真))
    
18.         //创建对象
    
19.         dm=com("dm.dmsoft")
    
20.         //判断版本号是否存在
    
21.         如果(str.strleng(dm.Ver())==0)
    
22.             //版本号不存在 注册失败 删除对象
    
23.             dm=null
    
24.             返回值=假
    
25.         否则
    
26.             //注册成功
    
27.             返回值=真   
    
28.         如果结束
    
29.     否则
    
30.         //注册失败
    
31.         返回值=假
    
32.     如果结束
    
33.     如果(返回值==真)
    
34.         //注册成功 退出函数
    
35.         返回 真
    
36.     否则
    
37.         //如果注册失败 更换注册方式
    
38.         变量 资源路径
    
39.         //获取dm.dll路径
    
40.         资源路径=辅助.获取资源路径("rc:dm.dll")
    
41.         //调用regsvr32注册
    
42.         辅助.命令("regsvr32 " & 资源路径 & " /s",真)
    
43.         //创建对象
    
44.         dm=com("dm.dmsoft")
    
45.         //判断版本号是否存在
    
46.         如果(str.strleng(dm.Ver())==0)
    
47.             //版本号不存在 调用regsvr32注册失败 删除对象 退出函数
    
48.             dm=null
    
49.             返回 假
    
50.         否则
    
51.             //调用regsvr32注册成功 退出函数
    
52.             返回 真
    
53.         如果结束
    
54.     如果结束
    
55. 功能结束
    

复制代码

简化代码

1. 
   
2. 
   
3. //调用注册大漠插件函数演示
   
4. 功能 主函数()
   
5.     如果(演示.注册大漠插件())
   
6.         辅助.消息框("注册大漠插件成功")
   
7.     否则
   
8.         辅助.消息框("注册大漠插件失败")
   
9.     如果结束
   
10. 功能结束
    
11. 
    
12. //注册大漠插件函数代码
    
13. 功能 注册大漠插件()
    
14.      变量 资源路径
    
15.     辅助.命令("regsvr32 atl.dll /s",真)
    
16.     如果(辅助.注册插件("rc:dm.dll",真))
    
17.         dm=com("dm.dmsoft")
    
18.         如果(str.strleng(dm.Ver())==0)
    
19.             dm=null
    
20.         否则
    
21.             返回 真
    
22.         如果结束
    
23.     如果结束
    
24. 
    
25.   资源路径=辅助.获取资源路径("rc:dm.dll")
    
26.     辅助.命令("regsvr32 " & 资源路径 & " /s",真)
    
27.     dm=com("dm.dmsoft")
    
28.     如果(str.strleng(dm.Ver())==0)
    
29.         dm=null
    
30.         返回 假
    
31.     否则
    
32.         返回 真
    
33.     如果结束
    
34. 功能结束
    

复制代码

rainshine

不错。支持。

haizhen005

支持

菜鸟狙丶

哈哈 , 对我这新手 帮助很大啊!

我是冰冻的番茄