win10拖放对象直接注册开机启动实现

endless1

调用了精易模块，此问题困扰自己已有很久。
win10拖放对象的权限不能使用管理员权限，但注册开机启动须管理员权限。
   利用两个程序完成：
  一个是拖放对象，一个是注册开机启动， 程序之间用ini配置文件联系

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

写到文件 (取运行目录 () ＋ “\reg.exe”, 到字节集 ( #图片1 ))
拖放对象1.注册拖放控件 (分组框1.取窗口句柄 ())  ' 用来接收拖放对象的组件的句柄
拖放对象1.接收文件 ＝ 真  ' 设置拖放对象的接受文件类型
拖放对象2.注册拖放控件 (分组框2.取窗口句柄 ())  ' 用来接收拖放对象的组件的句柄
拖放对象2.接收文件 ＝ 真  ' 设置拖放对象的接受文件类型

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件			事件，为传进来的
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型				返回一个拖入文件的全路径

判断 (取反 (文件_是否存在 (取运行目录 () ＋ “\reg.ini”)))
文件_创建 (取运行目录 () ＋ “\reg.ini”, 0)


判断 (寻找文本 (接收到的文件路径, “.lnk”, , 假) ≠ -1)
接收到的文件路径 ＝ 取快捷方式目标 (接收到的文件路径, , , , , , , )


标签1.标题 ＝ 接收到的文件路径
写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “name”, 接收到的文件路径)
写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “way”, “1”)
写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “new”, “1”)
系统_以管理员模式创建进程 (取运行目录 () ＋ “\reg.exe”, )
结束 ()

子程序名	返回值类型	公开	备 注
_拖放对象2_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

判断 (取反 (文件_是否存在 (取运行目录 () ＋ “\reg.ini”)))
文件_创建 (取运行目录 () ＋ “\reg.ini”, 0)


判断 (寻找文本 (接收到的文件路径, “.lnk”, , 假) ≠ -1)
接收到的文件路径 ＝ 取快捷方式目标 (接收到的文件路径, , , , , , , )


标签2.标题 ＝ 接收到的文件路径
写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “name”, 接收到的文件路径)
写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “way”, “0”)
写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “new”, “1”)
系统_以管理员模式创建进程 (取运行目录 () ＋ “\reg.exe”, )
结束 ()

i支持库列表	支持库注释
edroptarget	拖放支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 edroptarget<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 写到文件 (取运行目录 () ＋ “\reg.exe”, 到字节集 (#图片1))<br /> 拖放对象1.注册拖放控件 (分组框1.取窗口句柄 ())  ' 用来接收拖放对象的组件的句柄<br /> 拖放对象1.接收文件 ＝ 真  ' 设置拖放对象的接受文件类型<br /> 拖放对象2.注册拖放控件 (分组框2.取窗口句柄 ())  ' 用来接收拖放对象的组件的句柄<br /> 拖放对象2.接收文件 ＝ 真  ' 设置拖放对象的接受文件类型<br /> <br /> .子程序 _拖放对象1_得到文件, , , 事件，为传进来的<br /> .参数 接收到的文件路径, 文本型, , 返回一个拖入文件的全路径<br /> <br /> <br /> .判断开始 (取反 (文件_是否存在 (取运行目录 () ＋ “\reg.ini”)))<br />     文件_创建 (取运行目录 () ＋ “\reg.ini”, 0)<br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (寻找文本 (接收到的文件路径, “.lnk”, , 假) ≠ -1)<br />     接收到的文件路径 ＝ 取快捷方式目标 (接收到的文件路径, , , , , , , )<br /> .默认<br /> <br /> .判断结束<br /> 标签1.标题 ＝ 接收到的文件路径<br /> 写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “name”, 接收到的文件路径)<br /> 写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “way”, “1”)<br /> 写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “new”, “1”)<br /> 系统_以管理员模式创建进程 (取运行目录 () ＋ “\reg.exe”, )<br /> 结束 ()<br /> <br /> <br /> .子程序 _拖放对象2_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> .判断开始 (取反 (文件_是否存在 (取运行目录 () ＋ “\reg.ini”)))<br />     文件_创建 (取运行目录 () ＋ “\reg.ini”, 0)<br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (寻找文本 (接收到的文件路径, “.lnk”, , 假) ≠ -1)<br />     接收到的文件路径 ＝ 取快捷方式目标 (接收到的文件路径, , , , , , , )<br /> .默认<br /> <br /> .判断结束<br /> 标签2.标题 ＝ 接收到的文件路径<br /> 写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “name”, 接收到的文件路径)<br /> 写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “way”, “0”)<br /> 写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “new”, “1”)<br /> 系统_以管理员模式创建进程 (取运行目录 () ＋ “\reg.exe”, )<br /> 结束 ()

以下即是#图片1的数据，可直接写到拖放文件中，运行释放即可。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
操作	文本型
是否最新操作	文本型

判断 (取反 (文件_是否存在 (取运行目录 () ＋ “\reg.ini”)))
信息框 (“未找到配置文件”, 0, , )
文本 ＝ 读配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “name”, )
操作 ＝ 读配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “way”, )
是否最新操作 ＝ 读配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “new”, “”)
判断 (取反 (是否最新操作 ＝ “1”) 或 是否最新操作 ＝ “”)
结束 ()


判断 (文本 ＝ “”)
信息框 (“未找到配置文本”, 0, , )
判断 (操作 ＝ “”)
信息框 (“未找到操作方式”, 0, , )
标签4.标题 ＝ 文本
判断 (操作 ＝ “1”)  ' 注册
标签6.标题 ＝ “注册”
注册 (文本)
标签6.标题 ＝ “删除”
删除 (文本)

结束 ()

子程序名	返回值类型	公开	备 注
注册			事件，为传进来的 1
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型				返回一个拖入文件的全路径

变量名	类 型	静态	数组	备 注
注册	注册表操作
文件名	文本型

文件名 ＝ 文本_取右边 (接收到的文件路径, “\”, , )
文件名 ＝ 文本_取左边 (文件名, “.”)
输出调试文本 (接收到的文件路径, 文件名)
判断 (注册.写字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Run”, 文件名, 接收到的文件路径))
信息框 (“注册成功！”, 0, , )
信息框 (“注册失败！”, 0, , )
写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “new”, “0”)

子程序名	返回值类型	公开	备 注
删除
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

变量名	类 型	静态	数组	备 注
注册	注册表操作
文件名	文本型

文件名 ＝ 文本_取右边 (接收到的文件路径, “\”, , )
文件名 ＝ 文本_取左边 (文件名, “.”)
判断 (注册.删除键名 (“HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Run”, 文件名))
信息框 (“删除成功！”, 0, , )
信息框 (“删除失败！”, 0, , )
写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “new”, “0”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 操作, 文本型<br /> .局部变量 是否最新操作, 文本型<br /> <br /> .判断开始 (取反 (文件_是否存在 (取运行目录 () ＋ “\reg.ini”)))<br />     信息框 (“未找到配置文件”, 0, , )<br /> .默认<br />     文本 ＝ 读配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “name”, )<br />     操作 ＝ 读配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “way”, )<br />     是否最新操作 ＝ 读配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “new”, “”)<br />     .判断开始 (取反 (是否最新操作 ＝ “1”) 或 是否最新操作 ＝ “”)<br />         结束 ()<br />     .默认<br /> <br /> <br />     .判断结束<br />     .判断开始 (文本 ＝ “”)<br />         信息框 (“未找到配置文本”, 0, , )<br />     .判断 (操作 ＝ “”)<br />         信息框 (“未找到操作方式”, 0, , )<br />     .默认<br />         标签4.标题 ＝ 文本<br />         .判断开始 (操作 ＝ “1”)  ' 注册<br />             标签6.标题 ＝ “注册”<br />             注册 (文本)<br />         .默认<br />             标签6.标题 ＝ “删除”<br />             删除 (文本)<br />         .判断结束<br /> <br />     .判断结束<br /> <br /> .判断结束<br /> 结束 ()<br /> <br /> .子程序 注册, , , 事件，为传进来的 1<br /> .参数 接收到的文件路径, 文本型, , 返回一个拖入文件的全路径<br /> .局部变量 注册, 注册表操作<br /> .局部变量 文件名, 文本型<br /> <br /> 文件名 ＝ 文本_取右边 (接收到的文件路径, “\”, , )<br /> 文件名 ＝ 文本_取左边 (文件名, “.”)<br /> 输出调试文本 (接收到的文件路径, 文件名)<br /> .判断开始 (注册.写字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Run”, 文件名, 接收到的文件路径))<br />     信息框 (“注册成功！”, 0, , )<br /> .默认<br />     信息框 (“注册失败！”, 0, , )<br /> .判断结束<br /> 写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “new”, “0”)<br /> <br /> .子程序 删除<br /> .参数 接收到的文件路径, 文本型<br /> .局部变量 注册, 注册表操作<br /> .局部变量 文件名, 文本型<br /> <br /> 文件名 ＝ 文本_取右边 (接收到的文件路径, “\”, , )<br /> 文件名 ＝ 文本_取左边 (文件名, “.”)<br /> .判断开始 (注册.删除键名 (“HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Run”, 文件名))<br />     信息框 (“删除成功！”, 0, , )<br /> .默认<br />     信息框 (“删除失败！”, 0, , )<br /> .判断结束<br /> 写配置项 (取运行目录 () ＋ “\reg.ini”, “zc”, “new”, “0”)

小小侠

楼主上传一个e吧，方便一点

墓志铭

lxwan 发表于 2017-6-29 11:35
支持开源~！感谢分享

？？自己顶贴？？

kentfung

能上传一下源文件吗？

猥琐小胖子

我记得这个有源码修复的吧

思雪°

你可以命令行的方式调用.

lxwan

        支持开源~！感谢分享