赞
踩
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
//------大漠注册-------------------------------------------------------------
DMPath = "c:\test_game\"'注册大漠的文件夹
DMVer = "3.1233"'当前使用的大漠版本号
//
//Call 大漠注册标准版(DMPath, DMVer)
//------------------
//------大漠注册标准版-------------------------------------------------------
//--------------------------------------------------------------------------
Function 大漠注册标准版(sPath, sVer)
// 建立大漠插件的基本目录,即存放所有资源的文件夹
Plugin.File.CreateFolder (sPath)
// 向文件夹复制文件
PutAttachment sPath, "*.*"
// 要用到RegDll来注册插件,所以需要释放到Plugin文件夹
PutAttachment ".\plugin", "RegDll.dll"
// 用RegDll注册大漠
Call Plugin.RegDll.Reg(sPath & "dm.dll")
Delay 200
// 建立大漠实例对象
Set dm = CreateObject("dm.dmsoft")
// 判断
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。