TC官方合作论坛

标题: 求教TC免注册调用大漠代码 [打印本页]

作者: lcy944046 时间: 2013-9-25 18:20
标题: 求教TC免注册调用大漠代码
这是按键平台的代码，但是放在TC里就不行详情如下：
下面分别介绍下各个平台的使用方法,需要注意的是,这个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")

2. E语言平台
首先在DLL命令自定义表里增加一个DLL函数导入接口,比如
.版本 2
.DLL命令 SetDllPathA, , "c:\test\dmreg.dll", "SetDllPathA"
.参数 path, 文本型
.参数 mode, 整数型
然后在使用插件之前,调用这个接口
.版本 2
SetDllPathA (“c:\3.1235\dm.dll”, 0)
dm.创建 (“dm.dmsoft”, )
信息框 (dm.文本方法 (“ver”, ), 0, )
3. 其他平台，都类似，就不多说了。
比如vc
LoadLibrary 然后调用SetDllPathA或者SetDllPathW都可以

TC论坛里也有高手发布
代码如下：
dmpath = help.getrcpath("rc:dm.dll")
dllcallret=dllcall(help.getrcpath("rc:DmReg.dll"),"int","SetDllPathA","char *",dmpath,"int",0)
dm=com("dm.dmsoft")

// 这样子写一定又会有人问如果不是在资源目录怎么办
dmpath = "c:\\dm.dll"
dllcallret=dllcall("c:\\DmReg.dll","int","SetDllPathA","char *",dmpath,"int",0)
dm=com("dm.dmsoft")

我用了，但是报错： help.getrcpath("rc:dm.dll") 全局变量的初始化值,只是常量

请大师们解决！真诚地感谢！

作者: 夏末 时间: 2013-9-25 18:36
写到初始化里面啊

作者: dongyijun1979 时间: 2013-9-25 19:05
[attach]11537[/attach]

作者: dongyijun1979 时间: 2013-9-25 19:06
你咋弄的那么复杂

作者: 李老虎 时间: 2013-9-25 21:25
功能初始化()
//这里添加你要执行的代码
大漠找图.大漠注册()
功能结束
功能大漠注册()
注册成功=辅助.注册插件("rc:dm.dll",真)
如果(注册成功)
      调试输出("注册成功")
      dm=com("dm.dmsoft")
      ver = dm.Ver()
      调试输出("版本"&ver)
否则
      辅助.消息框("注册失败,请查看是否被安全软件拦截")
如果结束
功能结束

作者: nmqlzh 时间: 2013-9-25 21:40
看这里，也许会对你有所帮助TC调用大漠，以及字库设置，界面美化

作者: cht870422 时间: 2014-10-15 19:46
你们没有懂他的意思免注册

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