|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
这是按键平台的代码,但是放在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") 全局变量的初始化值,只是常量
请大师们解决!真诚地感谢!
|
|