谁能给个大漠注册的代码

haohuaiqi

谁能给个大漠注册的代码

玖天_Teemo

变量 全局路径
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)
        调试输出("字库设置成功")
        
    如果结束
功能结束

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