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文件
//请教解决办法,谢谢