.版本 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 ＋ #信息图标, , )