拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
拖放对象1.接收文件 ＝ 真
取命令行 (a)
.如果真 (取数组下标 (a, 1) ≠ 0)
接收到的文件路径 ＝ a [1]
.判断开始 (接收到的文件路径 ＝ “”)
返回 ()
.判断 (取文本长度 (接收到的文件路径) ＝ 3)
返回 ()
.默认
.判断结束
_拖放对象1_得到文件 (接收到的文件路径)
.如果真结束
写注册项 (#根类, “Folder\shell\文件夹密锁\command\”, 取运行目录 () ＋ “\” ＋ 取执行文件名 ())
上一篇 标签变透明效果的模块
下一篇 ASP网络验证大幅度修改版