不注册大漠调用dm.dll的方法

187144831

首先解释一下,不注册调用大漠插件，实际上是使用dmreg.dll来配合实现,这个文件有2个导出接口
SetDllPathW和SetDllPathA。 SetDllPathW对应unicode，SetDllPathA对应ascii接口.
参数如下
SetDllPathA  字符串(Ascii码表示插件所在的路径),整数(0表示STA，1表示MTA)
SetDllPathW  字符串(Unicode码表示插件所在的路径),整数(0表示STA，1表示MTA)
那么这2个函数就可以代替以往我们使用的 regsvr32注册方式，或者RegDll注册方式。
下面分别介绍下各个平台的使用方法,需要注意的是,这个dll仅仅给3.1235之后的版本使用，之前的版本无效.
1. 按键平台(按键8及以上)
代码如下
// 如果你把DmReg.dll释放在了plugin目录 比如
PutAttachment ".\plugin","dmreg.dll"
Public Declare Function SetDllPathW Lib "dmreg.dll" Alias "SetDllPathW" (ByVal path As String, ByVal mode As Long) As Long
TracePrint SetDllPathW("c:\3.1235\dm.dll", 0)
// 下面就可以正常创建对象使用插件了
set dm = createobject("dm.dmsoft")
// 如果你把DmReg.dll释放在了别的目录 比如
PutAttachment "c:\test,"dmreg.dll"
Public Declare Function SetDllPathW Lib "c:\test\dmreg.dll" Alias "SetDllPathW" (ByVal path As String, ByVal mode As Long) As Long
TracePrint SetDllPathW("c:\3.1235\dm.dll", 0)
// 下面就可以正常创建对象使用插件了
set dm = createobject("dm.dmsoft")


谁能给我举个例子 在TC里面怎么写

如果TC里面用不了 也说一下  我就不浪费时间琢磨了

  肯定会采纳的

jimye0526

我刚好以我那拙劣的技术弄出来了
你要不 ？
第一使用要相对麻烦一些
第二 我也是根据你的这个dll来的  所以 只能对3.1235版以上的大漠有效，3.1235版以上的大漠是免费的函数是没有了，插件是完全收费了的

187144831

代码贴上来吧 我忽略了 3.1235了
就当学习了

jimye0526

回复 3楼187144831的帖子

就是重新拿vb封装下就好了么 搞成tc能调用的dll

vb里的源码
Private Declare Function SetDllPathA Lib "DmReg.dll" (ByVal path As String, ByVal mode As Long) As Long

Function SetDllPathA_(ByVal path_ As String, ByVal mode_ As Long) As Long

     SetDllPathA_ = SetDllPathA(path_, mode_)

End Function

187144831

能转成TC给我看吗？  按键多少能看懂些  VB完全不懂啊

jimye0526

回复 5楼187144831的帖子

这没办法 就是vb重新封装下 生成一个新dll 然后再tc里调用

zdy77233647

其实就在初始化加个辅助注册插件和辅助是否注册就可以搞定的事，感觉你们弄麻烦了

187144831

回复 7楼zdy77233647的帖子

你看看帖子标题

zdy77233647

回复 8楼187144831的帖子

我看到了，TC 封装大漠！直接在初始化自动注册就行了

jimye0526

回复 9楼zdy77233647的帖子

人家要的是免注册，这样可以防部分检测注册表，判断是否注册了大漠的，游戏。