系统右键打开易语言

想学坏的小孩

.版本 2

.程序集 窗口程序集1
.程序集变量 路径35, 文本型
.程序集变量 路径, 文本型

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

路径35 ＝ 取文本注册项 (#现行用户, “Software\FlySky\E\Install\Path”, “”)
.如果 (路径35 ＝ “”)
    信息框 (“找不到易语言，可能您没有安装”, 0, )
    按钮1.禁止 ＝ 真
.否则
    路径35 ＝ 取文本左边 (路径35, 取文本长度 (路径35) － 4)
.如果结束

路径 ＝ 取文本注册项 (#现行用户, “Software\FlySky\E\Install\Path”, “”)
路径 ＝ 取文本左边 (路径, 取文本长度 (路径) － 4)
.如果真 (路径 ≠ “”)
    写到文件 (路径 ＋ “e.ico”, #图标)
.如果真结束


.子程序 _按钮1_被单击

.如果 (编辑框1.内容 ≠ “”)
    .如果 (寻找文本 (编辑框1.内容, “\”, , 假) ＝ -1)
        .如果 (写注册项 (#根类, “*\shell\” ＋ 编辑框1.内容 ＋ “\command\”, 路径35 ＋ “e.exe %1”) ＝ 真)
            信息框 (“添加成功”, 0, )
        .否则
            信息框 (“添加失败”, 0, )
        .如果结束

    .否则
        信息框 (“菜单名称中不能有” ＋ #引号 ＋ “\” ＋ #引号, 0, )
    .如果结束

.否则
    信息框 (“菜单名称不能为空”, 0, )
.如果结束


.子程序 _按钮3_被单击

.如果 (编辑框1.内容 ≠ “”)
    .如果 (删除注册项 (#根类, “*\shell\” ＋ 编辑框1.内容 ＋ “\command”) ＝ 真)
        删除注册项 (#根类, “*\shell\” ＋ 编辑框1.内容)
        信息框 (“删除成功”, 0, )
    .否则
        信息框 (“删除失败，可能您编辑框中内容不对，请填写已存在的菜单名称”, 0, )
    .如果结束

.否则
    信息框 (“菜单名称不能为空”, 0, )
.如果结束

不死小草

谢谢分享，学习了。