黑月界面类模块写的动态菜单软件简洁快捷启动器源码

另外源码使用两个模块，黑月界面类都是开源的。
.如果真 (取文本右边 (路径, 1) ≠ “\”)
    路径 ＝ 路径 ＋ “\”
.如果真结束
id ＝ cd.创建子菜单 (主菜单id, 文件_取名字 (目录去斜杠 (路径), ))
.计次循环首 (取数组成员数 (文件扩展名), i)
    文件名 ＝ 寻找文件 (路径 ＋ 文件扩展名 [i], )
    .判断循环首 (文件名 ≠ “”)
        .如果真 (取文本左边 (文件名, 1) ≠ “.”)
            文件信息.路径 ＝ 路径 ＋ 文件名
            文件信息.文件名 ＝ 文件名
            文件信息.菜单ID ＝ 取数组成员数 (_文件信息) ＋ 10000
            加入成员 (_文件信息, 文件信息)
            tx.载入字节集 (文件_取图标 (窗口.取窗口句柄 (), 文件信息.路径, 13, 13, #白色))
            cd.添加子项目 (id, 选择 (隐藏后缀名, 文件_取名字 (文件名, 假), 文件名), 文件信息.菜单ID, tx)
        .如果真结束
        文件名 ＝ 寻找文件 (, )
    .判断循环尾 ()
.计次循环尾 ()
文件名 ＝ 寻找文件 (路径 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
    .如果真 (取文本左边 (文件名, 1) ≠ “.”)
        子_枚举文件 (路径 ＋ 文件名, id)
    .如果真结束
    文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()