易语言右键新建源码

资源介绍：

易语言右键新建源码例程程序结合易语言扩展功能支持库，通过读写注册表项实现鼠标右键新建易语言的选项。

点评：易语言右键新建源码是易语言注册表项的应用例程。

资源作者：

三叶资源网

资源界面：

.版本 2
.支持库 shellEx

.程序集 窗口程序集_启动窗口
.程序集变量 程_热键_浏览, 整数型
.程序集变量 程_热键_一键新增, 整数型
.程序集变量 程_热键_一键删除, 整数型

.子程序 __启动窗口_创建完毕

程_热键_浏览 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 4, #B键)
程_热键_一键新增 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 4, #E键)
程_热键_一键删除 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 4, #D键)

.子程序 增加右键新建
.参数 参_后缀名, 文本型
.参数 参_程序目录, 文本型

.如果真 (注册项是否存在 (#根类, 参_后缀名 ＋ “ShellNew\FileName”) ＝ 假)
    写注册项 (#根类, 参_后缀名 ＋ “ShellNew\FileName”, 参_程序目录 ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号)
.如果真结束


.子程序 删除右键, 逻辑型
.参数 参_后缀名, 文本型

返回 (删除注册项 (#根类, 参_后缀名 ＋ “ShellNew\FileName”))

.子程序 _按钮_浏览_被单击
.局部变量 局_主程序目录, 文本型

通用对话框1.打开 ()
局_主程序目录 ＝ 通用对话框1.文件名
.如果真 (局_主程序目录 ≠ “”)
    编辑框1.内容 ＝ 局_主程序目录
.如果真结束


.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.判断开始 (参数一 ＝ 程_热键_浏览)
    _按钮_浏览_被单击 ()
.判断 (参数一 ＝ 程_热键_一键新增)
    _按钮_一键新增_被单击 ()
.判断 (参数一 ＝ 程_热键_一键删除)
    _按钮_一键删除_被单击 ()
.默认

.判断结束


.子程序 _按钮_一键新增_被单击
.局部变量 局_易程序目录, 文本型

局_易程序目录 ＝ 编辑框1.内容
.如果 (局_易程序目录 ＝ “”)
    信息框 (“易主程序目录不能为空!”, 0 ＋ 16, , )
    返回 ()
.否则
    增加右键新建 (“.e”, 局_易程序目录)
    增加右键新建 (“.e8”, 局_易程序目录)
    信息框 (“增加成功!”, 0 ＋ #信息图标, , )
.如果结束


.子程序 _按钮_一键删除_被单击

删除右键 (“.e”)
删除右键 (“.e8”)
信息框 (“已删除!”, 0 ＋ #信息图标, , )

资源下载：