求教TC免注册调用大漠代码

lcy944046

这是按键平台的代码，但是放在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") 全局变量的初始化值,只是常量

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

dongyijun1979

夏末

写到初始化里面啊

dongyijun1979

你咋弄的那么复杂

李老虎

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

nmqlzh

看这里，也许会对你有所帮助TC调用大漠，以及字库设置，界面美化

cht870422

你们没有懂他的意思 免注册