TC官方合作论坛

标题: 自己做的大漠注册、卸载，请高手指点！！ [打印本页]

作者: wangbaihong 时间: 2016-1-5 13:24
标题: 自己做的大漠注册、卸载，请高手指点！！
问题在代码中提出！————要长————请高手不吝赐教！

//检测
function RegCheck()
// 检测是否安装大漠插件
var ret = isregister("dm.dmsoft") //TC自带函数检测(方法一)

// var dm = com("dm.dmsoft") //返回值检测(方法2)
// if(vartype(dm) != "com")

if(ret)
      var dm = com("dm.dmsoft")
      var need_ver = 2.1133
      var ver = dm.ver()
      var base_path = dm.GetBasePath() //获取大漠dll注册路径

      if(ver == need_ver) //检查大漠版本是否正确
         messagebox("大漠已注册!" & "\r\n" & "大漠插件注册路径:" & base_path & "\r\n" & "大漠插件注册版本:" & ver)
         exit() //想用这个跳出注册,有没更好更合适的命令？求教!!!————要长
      else
         UnReg()
         Reg() //问题:————————要长————————如果版本不同,卸载后直接注册会将原版本继续注册
   //比如:原版本3.1233,资源版本2.1133,原版本卸载正常,紧接注册后还是3.1233,不能正常注册2.1133
                  //求高手指点————————要长
      end

else
      Reg()
      var dm = com("dm.dmsoft")
      messagebox("大漠插件注册路径:" & dm.GetBasePath() & "\r\n" & "大漠插件注册版本:" & dm.ver())
      exit() //想用这个跳出注册,有没更好更合适的命令？求教!!!————要长
end

end
//注册
function Reg()
var ret = regdll("rc:dm.dll",true)  //注册大漠插件
if(ret)
      messagebox("TC函数注册成功")
elseif(cmd("regsvr32 /s " & "rc:dm.dll",true))
      messagebox("TC函数注册失败,用regsvr32注册成功!")
else
      messagebox("注册失败,请尝试其他方式注册!")
end
end
//卸载
function UnReg()
var dm = com("dm.dmsoft")
var need_ver = 2.1133
var ver = dm.ver()
var base_path = dm.GetBasePath() //获取大漠dll注册路径
var reg = regdll(base_path & "dm.dll",false) //使用TC自带函数反注册大漠dll

if(reg) //TC自带函数反注册不成功的话,用regsver32进行反注册
      messagebox("TC卸载成功" & "\r\n" & "已卸载大漠插件注册路径:" & base_path & "\r\n" & "已卸载大漠插件注册版本:" & ver)
else
      cmd("regsvr32 /u /s " & base_path & "dm.dll",true)
      messagebox("TC卸载失败,regsver32卸载成功" & "\r\n" & "已卸载大漠插件注册路径:" & base_path & "\r\n" & "已卸载大漠插件注册版本:" & ver)
end
end
//Main
function 大漠注册修订版_init()
RegCheck()
end

作者: wangbaihong 时间: 2016-1-6 08:25
顶下，求指教

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)