|
发表于 2019-7-11 08:11:09
|
显示全部楼层
广东省广州市
- .版本 2
- .子程序 系统_关联右键菜单带图标, , 公开, 在win7系统中的右键菜单最上方添加一个带图标的菜单
- .参数 右键名称, 文本型
- .参数 程序路径, 文本型, 可空, 可空,留空为程序自身
- .参数 图标路径, 文本型, 可空, 留空为程序的图标
- .参数 是否删除, 逻辑型, 可空, 真为删除指定右键名称
- .局部变量 zc表, zc表操作
- .如果真 (是否删除 = 真)
- zc表.删除项 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\” + 右键名称)
- 返回 ()
- .如果真结束
- zc表.写字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\”, 右键名称, “”)
- zc表.写多字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\” + 右键名称, “”, 右键名称)
- .如果真 (是否为空 (程序路径) = 真)
- 程序路径 = 取运行目录 () + “\” + 取执行文件名 ()
- .如果真结束
- .如果 (是否为空 (图标路径) = 真)
- zc表.写字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\” + 右键名称, “Icon”, 程序路径 + “,0”) ' 取程序的图标为右击图标
- .否则
- zc表.写字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\” + 右键名称, “Icon”, 图标路径 + “,0”)
- .如果结束
- zc表.写字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell\” + 右键名称 + “\command”, “”, 程序路径 + “ ” + #引号 + “%1” + #引号)
- .子程序 系统_关联文件夹右键菜单带图标, , 公开, 在windows系统中的右键菜单最上方添加一个带图标的菜单
- .参数 右键名称, 文本型
- .参数 程序路径, 文本型, 可空, 可空,留空为程序自身
- .参数 图标路径, 文本型, 可空, 留空为程序的图标
- .参数 是否删除, 逻辑型, 可空, 真为删除指定右键名称
- .局部变量 zc表, zc表操作
- .如果真 (是否删除 = 真)
- zc表.删除项 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\” + 右键名称)
- 返回 ()
- .如果真结束
- zc表.写字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\”, 右键名称, “”)
- zc表.写多字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\” + 右键名称, “”, 右键名称)
- .如果真 (是否为空 (程序路径) = 真)
- 程序路径 = 取运行目录 () + “\” + 取执行文件名 ()
- .如果真结束
- .如果 (是否为空 (图标路径) = 真)
- zc表.写字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\” + 右键名称, “Icon”, 程序路径 + “,0”) ' 取程序的图标为右击图标
- .否则
- zc表.写字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\” + 右键名称, “Icon”, 图标路径 + “,0”)
- .如果结束
- zc表.写字符串值 (“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\” + 右键名称 + “\command”, “”, 程序路径 + “ ” + #引号 + “%1” + #引号)
复制代码 |
|