TC官方合作论坛

标题: 谁能给个大漠注册的代码 [打印本页]

作者: haohuaiqi 时间: 2014-2-15 20:36
标题: 谁能给个大漠注册的代码
谁能给个大漠注册的代码

作者: 玖天_Teemo 时间: 2014-2-15 22:08
本帖最后由玖天_Teemo 于 2014-2-15 14:09 编辑

变量全局路径
dm=com("dm.dmsoft")
功能注册()
ret=辅助.是否注册("dm.dmsoft")
如果(ret)
      调试输出("插件已经提前注册,销毁,重新注册.")
      dm=com("dm.dmsoft")
      大漠插件路径 =  dm.GetBasePath()
      ret = 辅助.注册插件(大漠插件路径,假)
      dm = null
      ret = 辅助.注册插件("rc:dm.dll",真)
      如果(ret)
         dm = com("dm.dmsoft")
         调试输出("大漠插件注册成功,版本号:"&dm.ver()&"插件路径:"&dm.GetBasePath())

      如果结束
否则
      调试输出("现在进行注册")
      ret = 辅助.注册插件("rc:dm.dll",真)
      如果(ret)
         dm = com("dm.dmsoft")
         调试输出("大漠插件注册成功,版本号:"&dm.ver()&"插件路径:"&dm.GetBasePath())

      如果结束
endif

全局路径 = 辅助.获取资源路径("rc:")
dm_ret = dm.SetPath(全局路径)
如果(dm_ret == 1)
      调试输出("全局路径设置成功")

如果结束

dm_ret = dm.SetDict(0,"字库.txt")
如果(dm_ret == 1)
      调试输出("字库设置成功")

如果结束
功能结束

如果没有字库就删了绿字那部分。  看↓↓↓↓↓↓↓↓↓

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