|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题在代码中提出!————要长————请高手不吝赐教!
//检测
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
|
|