自己做的大漠注册、卸载，请高手指点！！

wangbaihong

问题在代码中提出！————要长————请高手不吝赐教！

//检测
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

顶下，求指教