老问题，大漠注册卸载，求老师完善！带源码！

wangbaihong

//开始按钮_点击操作
function Reg_click()

    var ret = regdll("rc:dm.dll",true)                //注册大漠插件
    if(ret)
        messagebox("注册成功")
    else
        messagebox("注册失败,请尝试其他方式注册")
    end  
end

//退出按钮_点击操作
function exitReg_click()
    var dm = com("dm.dmsoft")
    if(vartype(dm) != "com")                //检查大漠是否注册
        messagebox("没有注册插件,请先注册插件")
        return ""
    end
    exit()
end


function 大漠注册修订版_init()
    //检测是否安装大漠插件
    var dm = com("dm.dmsoft")
    if(vartype(dm) != "com")
        messagebox("没有注册插件,请先注册插件")
    else
        var need_ver = 2.1133
        var ver = dm.ver()
        messagebox(dm.ver())
        if(ver == need_ver)                //检查大漠版本是否正确
            messagebox("插件已安装且版本正确!可以正常使用所有功能!")
        else
            messagebox("插件版本不正确,请点击\"开始\"注册!")
        end

        var base_path = dm.GetBasePath()        //获取大漠dll注册路径
        messagebox(base_path)
        var reg = regdll("base_path:dm.dll",false)        //卸载已注册大漠dll

        if(reg)
            messagebox("卸载成功")
        else
            messagebox("卸载失败")
        end
        var dmdel=filedelete("base_path\\dm.dll")        //删除已注册大漠dll
        if(dmdel)
            messagebox("删除成功")
        else
            messagebox("删除失败")
        end
    end
end
//运行效果:如果系统未使用过大漠插件,一切正常.
//如果系统中已注册大漠dll,程序可以检测出"已注册,以及版本是否正确,
//但用附件DM.DLL替换时,会出现无法反注册,不能删除已注册DM.DLL文件
//请教解决办法,谢谢

sam7894604

强制删除我有开源，你测试不行么？

wangbaihong

sam7894604 发表于 2015-11-27 19:16
强制删除我有开源，你测试不行么？

Tc有卸载命令，我想试下。汽册表没试，不太懂，再就是今不会对系作有要求

千叶de悠一

... 卸载路径问题

wangbaihong

千叶de悠一 发表于 2015-11-28 11:58
... 卸载路径问题

你好，路径有什么问题，能指点下吗

wangbaihong

千叶de悠一 发表于 2015-11-28 11:58
... 卸载路径问题

你好，路径有什么问题，能指点下吗