511遇见易语言多线程大漠多线程-24大漠免注册类模块制作方法2

文章目录[隐藏]

模块源码:

.版本 2

.程序集 大漠, , 公开
.程序集变量 obj, 对象

.子程序 _初始化, , , 当基于本类的对象被创建后,此方法会被自动调用

创建目录 (取运行目录 () + “\game”)
置文件属性 (取运行目录 () + “\game”, 2 + 4)
写到文件 (取运行目录 () + “\game\greg.dll”, #dmmreg)
置文件属性 (取运行目录 () + “\game\greg.dll”, 2 + 4)

.子程序 _销毁, , , 当基于本类的对象被销毁前,此方法会被自动调用

CoUninitialize ()
释放 ()

.子程序 初始化插件, , 公开
.参数 是否收费版, 逻辑型, 可空, 为空免费

CoInitialize ()
.判断开始 (是否收费版)
写到文件 (取运行目录 () + “\game\dmsf.dll”, #dmsf)
置文件属性 (取运行目录 () + “\game\dmsf.dll”, 2 + 4 + 32)
SetDllPathA (取运行目录 () + “\game\dmsf.dll”, 0)

.默认
写到文件 (取运行目录 () + “\game\dmmf.dll”, #dmmf)
置文件属性 (取运行目录 () + “\game\dmmf.dll”, 2 + 4 + 32)
SetDllPathA (取运行目录 () + “\game\dmmf.dll”, 0)

.判断结束

创建 ()

.子程序 创建, , 公开

释放 ()
obj.创建 (“dm.dmsoft”, )
SetParam64ToPointer ()

.子程序 释放, , 公开

obj.清除 ()


发布日期:

所属分类: 编程 标签:   


没有相关文章!