易语言通过注册表将易文件关联修复的源码

.版本 2.DLL命令 API_SendMessage, 整数型, "user32", "SendMessageA" .参数 窗口句柄, 整数型 .参数 消息值, 整数型 .参数 参数一, 整数型 .参数 参数二, 整数型.DLL命令 API_SendMessageTimeout, 整数型, "user32", "SendMessageTimeoutA", , , .参数 hWnd, 整数型, , 要接收消息的一个窗口的句柄 .参数 Msg, 整数型, , 消息的标识符 .参数 wParam, 整数型, , 由消息决定 .参数 lParam, 整数型, , 由消息决定 .参数 fuFlags, 整数型, , 下述常数的一个或多个;SMTO_ABORTIFHUNG：如目标进程挂起，则函数立即返回;SMTO_BLOCK：除非函数返回，否则调用线程不能处理消息;SMTO_NORMAL：允许调用线程处理消息，同时保持函数继续执行 .参数 uTimeout, 整数型, , 超时值，采用毫秒为单位 .参数 lpdwResult, 整数型, 传址, 用于装载函数结果的一个变量;.DLL命令 注册表_RegDeleteKeyA, 整数型, "advapi32.dll", "RegDeleteKeyA", 公开, _注册表_删除项删除现有项下方一个指定的子项 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码 .参数 hKey, 整数型, , 一个已打开项的句柄，或者标准项名之一 .参数 lpSubKey, 文本型, , 要删除项的名字。这个项的所有子项也会删除;.DLL命令 注册表_RegCloseKey, 整数型, , "RegCloseKey", 公开, _注册表_关闭项 advapi32.dll关闭系统注册表中的一个项（或键） 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码 .参数 hKey, 整数型, , 要关闭的项;.DLL命令 注册表_RegCreateKeyA, 整数型, , "RegCreateKeyA", 公开, _注册表_创建项 advapi32.dll在指定的项下创建一个新项。如指定的项已经存在，那么函数会打开现有的项 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码 .参数 hKey, 整数型, , 要打开项的句柄，或者一个标准项名 .参数 lpSubKey, 文本型, , 欲创建的新子项。可同时创建多个项，只需用反斜杠将它们分隔开即可。例如level1/level2/newkey .参数 phkResult, 整数型, 传址, 指定一个变量，用于装载新子项的句柄;.DLL命令 注册表_RegOpenKeyA, 整数型, "advapi32.dll", "RegOpenKeyA", 公开, _注册表_打开项 打开一个现有的注册表项 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码 .参数 hKey, 整数型, , 一个已打开项的句柄，或指定一个标准项名 .参数 lpSubKey, 文本型, , 要打开的项名 .参数 phkResult, 整数型, 传址, 指定一个变量，用于装载（保存）打开注册表项的一个句柄;.DLL命令 注册表_RegEnumKeyA, 整数型, "advapi32.dll", "RegEnumKeyA", 公开, _注册表_枚举子项 .参数 hKey, 整数型 .参数 dwIndex, 整数型 .参数 lpName, 文本型, 传址 .参数 cbName, 整数型.DLL命令 注册表_RegQueryValueExA, 整数型, "advapi32.dll", "RegQueryValueExA", 公开, _注册表_取值获取一个项的设置值 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码 .参数 hKey, 整数型, , 一个已打开项的句柄，或者指定一个标准项名 .参数 lpValueName, 文本型, , 要获取值的名字 .参数 lpReserved, 整数型, , 未用，设为零 .参数 lpType, 整数型, 传址, 用于装载取回数据类型的一个变量 .参数 lpData, 字节集, 传址, 用于装载指定值的一个缓冲区 .参数 lpcbData, 整数型, 传址, 用于装载lpData缓冲区长度的一个变量。一旦返回，它会设为实际装载到缓冲区的字节数;.DLL命令 注册表_RegDeleteValueA, 整数型, "advapi32.dll", "RegDeleteValueA", , _注册表_删除值删除指定项下方的一个值 零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码 .参数 hKey, 整数型, , 一个已打开项的句柄，或标准项名之一 .参数 lpValueName, 文本型, , 要删除的值名。可设为vbNull或一个空串，表示删除那个项的默认值;.DLL命令 注册表_RegFlushKey, 整数型, "advapi32.dll", "RegFlushKey", , _注册表_实际写入将对项和它的子项作出的改动实际写入磁盘 Long，零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码 .参数 hKey, 整数型, , Long，欲刷新的一个项的句柄，或指定一个标准项名

.版本 2.常量 HWND_BROADCAST, "65535".常量 WM_SETTINGCHANGE, "26".常量 SMTO_NORMAL, "0".常量 图标126, "<文本长度: 5>", , ,-126 红.常量 图标127, "<文本长度: 5>", , ,-127 蓝.常量 图标134, "<文本长度: 5>", , ,-134 红

.版本 2.程序集 注册表.子程序 _打开项, 整数型.参数 项名称, 文本型.参数 是否创建, 逻辑型, 可空, 默认为假:打开 真:如果项不存在则创建项.局部变量 局_根句柄, 整数型.局部变量 局_项句柄, 整数型.局部变量 局_项文本, 文本型.局部变量 局_位置, 整数型.局部变量 b, 整数型局_位置 ＝ 寻找文本 (项名称, “/”, , 假)局_项文本 ＝ 取文本左边 (项名称, 局_位置 － 1).判断开始 (局_项文本 ＝ “HKEY_CLASSES_ROOT”) 局_根句柄 ＝ 2147483648.判断 (局_项文本 ＝ “HKEY_CURRENT_USER”) 局_根句柄 ＝ 2147483649.判断 (局_项文本 ＝ “HKEY_LOCAL_MACHINE”) 局_根句柄 ＝ 2147483650.判断 (局_项文本 ＝ “HKEY_USERS”) 局_根句柄 ＝ 2147483651.判断 (文本比较 (局_项文本, “HKEY_CURRENT_CONFIG”, 假) ＝ 0) 局_根句柄 ＝ 2147483653.默认 返回 (0).判断结束.如果 (是否创建) b ＝ 注册表_RegCreateKeyA (局_根句柄, 取文本右边 (项名称, 取文本长度 (项名称) － 局_位置), 局_项句柄).否则 b ＝ 注册表_RegOpenKeyA (局_根句柄, 取文本右边 (项名称, 取文本长度 (项名称) － 局_位置), 局_项句柄).如果结束.如果真 (b ＝ 0) 返回 (局_项句柄).如果真结束返回 (0).子程序 注册表_枚举子项, 整数型, 公开, 枚举指定项名称下的子项(成功返回子项目数,失败返回-1).参数 项名称, 文本型.参数 子项, 文本型, 可空 数组, 获取的子项数组.局部变量 局_a, 整数型.局部变量 局_计次, 整数型.局部变量 局_项名, 文本型清除数组 (子项)局_a ＝ _打开项 (项名称).如果真 (局_a ＝ 0) 返回 (-1).如果真结束局_项名 ＝ 取空白文本 (256).判断循环首 (注册表_RegEnumKeyA (局_a, 局_计次, 局_项名, 256) ＝ 0) 加入成员 (子项, 局_项名) 局_计次 ＝ 局_计次 ＋ 1 处理事件 ().判断循环尾 ()注册表_RegCloseKey (局_a)返回 (取数组成员数 (子项)).子程序 注册表_删除项, 逻辑型, 公开, 删除指定项名称以及它的所有子项与键值.参数 项名称, 文本型, , 欲删除的项名称,尾部不要加"/".局部变量 a, 整数型.局部变量 b, 整数型.局部变量 c, 整数型.局部变量 子项, 文本型, , "0".局部变量 局_计次, 整数型.如果真 (取文本右边 (项名称, 1) ＝ “/”) 返回 (假).如果真结束c ＝ 倒找文本 (项名称, “/”, , 假)a ＝ _打开项 (取文本左边 (项名称, c)).如果真 (a ＝ 0) 返回 (假).如果真结束.计次循环首 (注册表_枚举子项 (项名称, 子项), 局_计次) 注册表_删除项 (项名称 ＋ “/” ＋ 子项 [局_计次]).计次循环尾 ()b ＝ 注册表_RegDeleteKeyA (a, 取文本右边 (项名称, 取文本长度 (项名称) － c))注册表_RegCloseKey (a)返回 (b ＝ 0).子程序 注册表_是否存在, 逻辑型, 公开, 判断指定注册项名称(键名)是否存在(存在返回真,否则返回假).参数 项名称, 文本型, , 欲判断的项名称.参数 键名, 文本型, 可空, 欲判断的键名.如果为空则只判断项名称是否存在.局部变量 a, 整数型.局部变量 b, 整数型.局部变量 值, 字节集a ＝ _打开项 (项名称).如果真 (是否为空 (键名)) 注册表_RegCloseKey (a) 返回 (a ≠ 0).如果真结束值 ＝ 取空白字节集 (256)b ＝ 注册表_RegQueryValueExA (a, 键名, 0, 0, 值, 256)注册表_RegCloseKey (a)返回 (b ＝ 0).子程序 注册表_删除键名, 逻辑型, 公开, 删除指定项下的某个键名.参数 项名称, 文本型, , 欲删除键名所在的项名称.参数 键名, 文本型, , 欲删除的键名.局部变量 a, 整数型.局部变量 b, 整数型a ＝ _打开项 (项名称).如果真 (a ＝ 0) 返回 (假).如果真结束b ＝ 注册表_RegDeleteValueA (a, 键名)注册表_RegCloseKey (a).子程序 注册表_刷新项, 逻辑型, 公开, 将对项和它的子项作出的改动实际写入磁盘.参数 项名称, 文本型.局部变量 a, 整数型.局部变量 b, 整数型.局部变量 值, 字节集a ＝ _打开项 (项名称).如果真 (a ＝ 0) 返回 (假).如果真结束b ＝ 注册表_RegFlushKey (a)注册表_RegCloseKey (a)返回 (b ＝ 0)

.版本 2.支持库 eAPI.程序集 窗口程序集_启动窗口.程序集变量 局部_路径, 文本型.子程序 __启动窗口_创建完毕图片框2.图片 ＝ #ICON_e1图片框3.图片 ＝ #ICON_e2图片框4.图片 ＝ #ICON_EC图片框5.图片 ＝ #ICON_EDB图片框6.图片 ＝ #ICON_FNE图片框7.图片 ＝ #ICON_LIB判断注册表 ().子程序 判断注册表, , , 根据注册表项键值判断是否关联.如果真 (注册项是否存在 (#根类, “E.Document/shell/open/command/”) ＝ 真) 局部_路径 ＝ 取文本注册项 (#根类, “E.Document/shell/open/command/”, ) 局部_路径 ＝ 取文本左边 (局部_路径, 取文本长度 (局部_路径) － 5) 编辑框_易语言主程序.内容 ＝ 局部_路径 ' ＋ “e.exe” 通用对话框.初始目录 ＝ 局部_路径 .如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/.e”))  .如果 (取文本注册项 (#根类, “.e/”, ) ＝ “E.Document”)   .如果 (寻找文本 (取文本注册项 (#根类, “E.Document/shell/open/command/”, ), 编辑框_易语言主程序.内容, , 假) ≠ -1)    选择框_易语言源码_文件双击打开.选中 ＝ 真    选择框_易语言源码_文件双击打开.禁止 ＝ 真   .否则    选择框_易语言源码_文件双击打开.选中 ＝ 真   .如果结束   .如果 (寻找文本 (取文本注册项 (#根类, “E.Document/DefaultIcon/”, ), 编辑框_易语言主程序.内容, , 假) ≠ -1 或 文件是否存在 (取文本注册项 (#根类, “E.Document/DefaultIcon/”, )) ＝ 真)    选择框_易语言源码_图标显示.选中 ＝ 真    选择框_易语言源码_图标显示.禁止 ＝ 真   .否则    选择框_易语言源码_图标显示.选中 ＝ 真   .如果结束   .如果 (注册项是否存在 (#根类, “.e/ShellNew/NullFile”) ＝ 真)    选择框_易语言源码_右键新建易程序.选中 ＝ 真    选择框_易语言源码_右键新建易程序.禁止 ＝ 真   .否则    选择框_易语言源码_右键新建易程序.选中 ＝ 真   .如果结束  .否则   选择框_易语言源码_文件双击打开.选中 ＝ 真   选择框_易语言源码_图标显示.选中 ＝ 真   选择框_易语言源码_右键新建易程序.选中 ＝ 真  .如果结束  .如果 (取文本注册项 (#根类, “.e8/”, ) ＝ “E8.Document”)   .如果 (寻找文本 (取文本注册项 (#根类, “E8.Document/DefaultIcon/”, ), 编辑框_易语言主程序.内容, , 假) ≠ -1 或 文件是否存在 (取文本注册项 (#根类, “E8.Document/DefaultIcon/”, )) ＝ 真)    选择框_易语言配置信息_图标显示.选中 ＝ 真    选择框_易语言配置信息_图标显示.禁止 ＝ 真   .否则    选择框_易语言配置信息_图标显示.选中 ＝ 真   .如果结束   .如果 (寻找文本 (取文本注册项 (#根类, “E8.Document/Shell/Command/”, ), 编辑框_易语言主程序.内容, , 假) ≠ -1 或 文件是否存在 (取文本注册项 (#根类, “E8.Document/Shell/Command/”, )) ＝ 真)    选择框_易语言配置信息_文件双击打开.选中 ＝ 真    选择框_易语言配置信息_文件双击打开.禁止 ＝ 真   .否则    选择框_易语言配置信息_文件双击打开.选中 ＝ 真   .如果结束   .如果 (注册项是否存在 (#根类, “.e8/ShellNew/NullFile”) ＝ 真)    选择框_易语言配置信息_右键新建易程序配置信息.选中 ＝ 真    选择框_易语言配置信息_右键新建易程序配置信息.禁止 ＝ 真   .否则    选择框_易语言配置信息_右键新建易程序配置信息.选中 ＝ 真   .如果结束   .如果 (寻找文本 (取文本注册项 (#根类, “E8.Document/Shell/用记事本打开/Command/”, ), 编辑框_易语言主程序.内容, , 假) ≠ -1 或 文件是否存在 (取文本注册项 (#根类, “E8.Document/Shell/用记事本打开/Command/”, )) ＝ 真)    选择框_易语言配置信息_右键用易语言打开.选中 ＝ 真    选择框_易语言配置信息_右键用易语言打开.禁止 ＝ 真   .否则    选择框_易语言配置信息_右键用易语言打开.选中 ＝ 真   .如果结束   .如果 (文件是否存在 (取文本注册项 (#根类, “E8.Document/Shell/用记事本打开/Command/”, “notepad.exe” ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号)) ＝ 真)    选择框_易语言配置信息_右键用记事本打开.选中 ＝ 真    选择框_易语言配置信息_右键用记事本打开.禁止 ＝ 真   .否则    选择框_易语言配置信息_右键用记事本打开.选中 ＝ 真   .如果结束  .否则   选择框_易语言配置信息_图标显示.选中 ＝ 真   选择框_易语言配置信息_文件双击打开.选中 ＝ 真   选择框_易语言配置信息_右键新建易程序配置信息.选中 ＝ 真   选择框_易语言配置信息_右键用易语言打开.选中 ＝ 真   选择框_易语言配置信息_右键用记事本打开.选中 ＝ 真  .如果结束  .如果 (取文本注册项 (#根类, “.ec/”, ) ＝ “ec_auto_file”)   .如果 (寻找文本 (取文本注册项 (#根类, “ec_auto_file/DefaultIcon/”, ), 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注册项 (#根类, “ec_auto_file/DefaultIcon/”, )) ＝ 真)    选择框_易语言模块_图标显示.选中 ＝ 真    选择框_易语言模块_图标显示.禁止 ＝ 真   .否则    选择框_易语言模块_图标显示.选中 ＝ 真   .如果结束  .否则   选择框_易语言模块_图标显示.选中 ＝ 真  .如果结束  .如果 (取文本注册项 (#根类, “.edb/”, ) ＝ “EDB.Document”)   .如果 (寻找文本 (取文本注册项 (#根类, “EDB.Document/DefaultIcon/”, ), 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注册项 (#根类, “EDB.Document/DefaultIcon/”, )) ＝ 真)    选择框_易数据库文件_图标显示.选中 ＝ 真    选择框_易数据库文件_图标显示.禁止 ＝ 真   .否则    选择框_易数据库文件_图标显示.选中 ＝ 真   .如果结束   .如果 (寻找文本 (取文本注册项 (#根类, “EDB.Document/Shell/Command/”, ), 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注册项 (#根类, “EDB.Document/Shell/Command/”, )) ＝ 真)    选择框_易数据库文件_文件双击打开.选中 ＝ 真    选择框_易数据库文件_文件双击打开.禁止 ＝ 真   .否则    选择框_易数据库文件_文件双击打开.选中 ＝ 真   .如果结束  .否则   选择框_易数据库文件_图标显示.选中 ＝ 真   选择框_易数据库文件_文件双击打开.选中 ＝ 真  .如果结束  .如果 (取文本注册项 (#根类, “.fne/”, ) ＝ “FNE.Document”)   .如果 (寻找文本 (取文本注册项 (#根类, “FNE.Document/DefaultIcon/”, ), 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注册项 (#根类, “FNE.Document/DefaultIcon/”, )) ＝ 真)    选择框_易支持库文件_图标显示.选中 ＝ 真    选择框_易支持库文件_图标显示.禁止 ＝ 真   .否则    选择框_易支持库文件_图标显示.选中 ＝ 真   .如果结束   .如果 (寻找文本 (取文本注册项 (#根类, “FNE.Document/Shell/复制到易语言目录/Command/”, ), 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注册项 (#根类, “FNE.Document/Shell/复制到易语言目录/Command/”, )) ＝ 真)    选择框_易支持库文件_右键复制到易语言目录.选中 ＝ 真    选择框_易支持库文件_右键复制到易语言目录.禁止 ＝ 真   .否则    选择框_易支持库文件_右键复制到易语言目录.选中 ＝ 假   .如果结束  .否则   选择框_易支持库文件_图标显示.选中 ＝ 真  .如果结束  .如果 (取文本注册项 (#根类, “.lib/”, ) ＝ “LIB.Document”)   .如果 (寻找文本 (取文本注册项 (#根类, “LIB.Document/DefaultIcon/”, ), 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注册项 (#根类, “FNE.Document/DefaultIcon/”, )) ＝ 真)    选择框_易静态库文件_图标显示.选中 ＝ 真    选择框_易静态库文件_图标显示.禁止 ＝ 真   .否则    选择框_易静态库文件_图标显示.选中 ＝ 真   .如果结束   .如果 (寻找文本 (取文本注册项 (#根类, “LIB.Document/Shell/复制到易语言目录/Command/”, ), 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5), , 假) ≠ -1 且 文件是否存在 (取文本注册项 (#根类, “FNE.Document/Shell/复制到易语言目录/Command/”, )) ＝ 真)    选择框_易静态库文件_右键复制到易语言目录.选中 ＝ 真    选择框_易静态库文件_右键复制到易语言目录.禁止 ＝ 真   .否则    选择框_易静态库文件_右键复制到易语言目录.选中 ＝ 假   .如果结束  .否则   选择框_易静态库文件_图标显示.选中 ＝ 真  .如果结束 .如果真结束.如果真结束.子程序 _按钮_一键修复_被单击.如果 (修复易语言源码E () ＝ 真 且 修复易程序配置信息E8 () ＝ 真 且 修复易语言模块EC () ＝ 真 且 修复易数据库EDB () ＝ 真 且 修复易支持库FNE () ＝ 真 且 修复易静态库LIB () ＝ 真) 注册表_刷新项 (“HKEY_CLASSES_ROOT/.e”) 注册表_刷新项 (“HKEY_CLASSES_ROOT/E.Document”) 注册表_刷新项 (“HKEY_CLASSES_ROOT/.e8”) 注册表_刷新项 (“HKEY_CLASSES_ROOT/E8.Document”) 注册表_刷新项 (“HKEY_CLASSES_ROOT/.ec”) 注册表_刷新项 (“HKEY_CLASSES_ROOT/ec_auto_file”) 注册表_刷新项 (“HKEY_CLASSES_ROOT/.edb”) 注册表_刷新项 (“HKEY_CLASSES_ROOT/EDB.Document”) 注册表_刷新项 (“HKEY_CLASSES_ROOT/.fne”) 注册表_刷新项 (“HKEY_CLASSES_ROOT/FNE.Document”) 注册表_刷新项 (“HKEY_CLASSES_ROOT/.lib”) 注册表_刷新项 (“HKEY_CLASSES_ROOT/LIB.Document”) 刷新注册表 () 刷新注册表2 () 信息框 (“文件关联 修复成功”, 64, “提示”, _启动窗口.取窗口句柄 ()).否则 信息框 (“修复失败，请以管理员身份运行”, 64, , _启动窗口.取窗口句柄 ()).如果结束.子程序 e文件关联, , , 测试写注册项 (#根类, “.e/”, “”)写注册项 (#根类, “.e/ShellNew/”, “”)写注册项 (#根类, “.e/ShellNew/NullFile”, “”) ' 右键新建写注册项 (#根类, “E.Document/”, “易语言程序”) ' 文件描述 ' 此值影响右键新建名称和文写注册项 (#根类, “E.Document/DefaultIcon/”, 编辑框_易语言主程序.内容 ＋ “ ,-127”) ' 图标关联写注册项 (#根类, “E.Document/shell/”, “”)写注册项 (#根类, “E.Document/shell/open/”, “”)写注册项 (#根类, “E.Document/shell/open/command/”, 编辑框_易语言主程序.内容 ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号) ' 打开命令.子程序 _按钮_删除所有_被单击.如果真 (信息框 (“此操作将从系统清除所有关联信息” ＋ #换行符 ＋ “包括：*.e 、*.e8 、*.ec 、*.edb 、*.fne 、*.lib。” ＋ #换行符 ＋ #换行符 ＋ “点击[确认]则继续操作，点击[取消]则退出。”, 1 ＋ 32 ＋ 256, “是否继续操作？”, _启动窗口.取窗口句柄 ()) ＝ #确认钮) .如果 (删除易语言源码E () ＝ 真 且 删除易程序配置信息E8 () ＝ 真 且 删除易语言模块EC () ＝ 真 且 删除易数据库EDB () ＝ 真 且 删除易支持库FNE () ＝ 真 且 删除易静态库LIB () ＝ 真)  刷新注册表 ()  信息框 (“文件关联 修复成功”, 64, “提示”, _启动窗口.取窗口句柄 ()) .否则  信息框 (“修复失败，请以管理员身份运行”, 64, , _启动窗口.取窗口句柄 ()) .如果结束.如果真结束.子程序 修复易语言源码E, 逻辑型, , 写注册表，成功返回真，失败返回假。.局部变量 返回E, 逻辑型, , , 记录返回值返回E ＝ 真.如果真 (选择框_易语言源码_图标显示.选中 ＝ 真 且 选择框_易语言源码_图标显示.禁止 ＝ 假) .如果 (写注册项 (#根类, “.e/”, “E.Document”) ＝ 真 且 写注册项 (#根类, “E.Document/”, “易语言程序”) ＝ 真 且 写注册项 (#根类, “E.Document/DefaultIcon/”, 编辑框_易语言主程序.内容 ＋ #图标127) ＝ 真)  返回E ＝ 真 .否则  返回E ＝ 假 .如果结束.如果真结束.如果真 (选择框_易语言源码_文件双击打开.选中 ＝ 真 且 选择框_易语言源码_文件双击打开.禁止 ＝ 假) .如果 (写注册项 (#根类, “.e/”, “E.Document”) ＝ 真 且 写注册项 (#根类, “E.Document/”, “易语言程序”) ＝ 真 且 写注册项 (#根类, “E.Document/shell/open/command/”, 编辑框_易语言主程序.内容 ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号) ＝ 真)  返回E ＝ 真 .否则  返回E ＝ 假 .如果结束.如果真结束.如果真 (选择框_易语言源码_右键新建易程序.选中 ＝ 真 且 选择框_易语言源码_右键新建易程序.禁止 ＝ 假) .如果 (写注册项 (#根类, “.e/”, “E.Document”) ＝ 真 且 写注册项 (#根类, “E.Document/”, “易语言程序”) ＝ 真 且 写注册项 (#根类, “.e/ShellNew/NullFile”, “”) ＝ 真)  返回E ＝ 真 .否则  返回E ＝ 假 .如果结束.如果真结束返回 (返回E).子程序 删除易语言源码E, 逻辑型, , 删注册表，成功返回真，失败返回假。.局部变量 删除返回E, 逻辑型删除返回E ＝ 真.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/.e”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/.e”) ＝ 真)  删除返回E ＝ 真 .否则  删除返回E ＝ 假 .如果结束.如果真结束.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/E.Document”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/E.Document”) ＝ 真)  删除返回E ＝ 真 .否则  删除返回E ＝ 假 .如果结束.如果真结束返回 (删除返回E).子程序 修复易语言模块EC, 逻辑型, , 写注册表，成功返回真，失败返回假。.局部变量 _路径, 文本型.局部变量 返回EC, 逻辑型, , , 记录返回值返回EC ＝ 真.如果真 (选择框_易语言模块_图标显示.选中 ＝ 真 且 选择框_易语言模块_图标显示.禁止 ＝ 假) _路径 ＝ 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5) .如果 (写注册项 (#根类, “.ec/”, “ec_auto_file”) ＝ 真 且 写注册项 (#根类, “ec_auto_file/”, “易语言模块”) ＝ 真 且 写注册项 (#根类, “ec_auto_file/DefaultIcon/”, _路径 ＋ “help/ec.ico”) ＝ 真)  写到文件 (局部_路径 ＋ “help/ec.ico”, #ICON_EC)  返回EC ＝ 真 .否则  返回EC ＝ 假 .如果结束.如果真结束返回 (返回EC).子程序 删除易语言模块EC, 逻辑型, , 删注册表，成功返回真，失败返回假。.局部变量 删除返回EC, 逻辑型删除返回EC ＝ 真.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/.ec”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/.ec”) ＝ 真)  删除返回EC ＝ 真 .否则  删除返回EC ＝ 假 .如果结束.如果真结束.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/ec_auto_file”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/ec_auto_file”) ＝ 真)  删除返回EC ＝ 真 .否则  删除返回EC ＝ 假 .如果结束.如果真结束返回 (删除返回EC).子程序 修复易程序配置信息E8, 逻辑型, , 写注册表，成功返回真，失败返回假。.局部变量 返回E8, 逻辑型, , , 记录返回值返回E8 ＝ 真.如果真 (选择框_易语言配置信息_图标显示.选中 ＝ 真 且 选择框_易语言配置信息_图标显示.禁止 ＝ 假) .如果 (写注册项 (#根类, “.e8/”, “E8.Document”) ＝ 真 且 写注册项 (#根类, “E8.Document/”, “易程序配置信息”) ＝ 真 且 写注册项 (#根类, “E8.Document/DefaultIcon/”, 编辑框_易语言主程序.内容 ＋ #图标134) ＝ 真)  返回E8 ＝ 真 .否则  返回E8 ＝ 假 .如果结束.如果真结束.如果真 (选择框_易语言配置信息_文件双击打开.选中 ＝ 真 且 选择框_易语言配置信息_文件双击打开.禁止 ＝ 假) .如果 (写注册项 (#根类, “.e8/”, “E8.Document”) ＝ 真 且 写注册项 (#根类, “E8.Document/”, “易程序配置信息”) ＝ 真 且 写注册项 (#根类, “E8.Document/Shell/Open/Command/”, 编辑框_易语言主程序.内容 ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号) ＝ 真)  返回E8 ＝ 真 .否则  返回E8 ＝ 假 .如果结束.如果真结束.如果真 (选择框_易语言配置信息_右键新建易程序配置信息.选中 ＝ 真 且 选择框_易语言配置信息_右键新建易程序配置信息.禁止 ＝ 假) .如果 (写注册项 (#根类, “.e8/”, “E8.Document”) ＝ 真 且 写注册项 (#根类, “E8.Document/”, “易程序配置信息”) ＝ 真 且 写注册项 (#根类, “.e/ShellNew/NullFile”, “”) ＝ 真)  返回E8 ＝ 真 .否则  返回E8 ＝ 假 .如果结束.如果真结束.如果真 (选择框_易语言配置信息_右键用记事本打开.选中 ＝ 真 且 选择框_易语言配置信息_右键用记事本打开.禁止 ＝ 假) .如果 (写注册项 (#根类, “.e8/”, “E8.Document”) ＝ 真 且 写注册项 (#根类, “E8.Document/”, “易程序配置信息”) ＝ 真 且 写注册项 (#根类, “E8.Document/Shell/用记事本打开/Command/”, “notepad.exe” ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号) ＝ 真)  返回E8 ＝ 真 .否则  返回E8 ＝ 假 .如果结束.如果真结束.如果真 (选择框_易语言配置信息_右键用易语言打开.选中 ＝ 真 且 选择框_易语言配置信息_右键用易语言打开.禁止 ＝ 假) .如果 (写注册项 (#根类, “.e8/”, “E8.Document”) ＝ 真 且 写注册项 (#根类, “E8.Document/”, “易程序配置信息”) ＝ 真 且 写注册项 (#根类, “E8.Document/Shell/用易语言打开/Command/”, 编辑框_易语言主程序.内容 ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号) ＝ 真)  返回E8 ＝ 真 .否则  返回E8 ＝ 假 .如果结束.如果真结束返回 (返回E8).子程序 删除易程序配置信息E8, 逻辑型, , 删注册表，成功返回真，失败返回假。.局部变量 删除返回E8, 逻辑型删除返回E8 ＝ 真.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/.e8”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/.e8”) ＝ 真)  删除返回E8 ＝ 真 .否则  删除返回E8 ＝ 假 .如果结束.如果真结束.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/E8.Document”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/E8.Document”) ＝ 真)  删除返回E8 ＝ 真 .否则  删除返回E8 ＝ 假 .如果结束.如果真结束返回 (删除返回E8).子程序 修复易数据库EDB, 逻辑型, , 写注册表，成功返回真，失败返回假。.局部变量 EDB_路径, 文本型.局部变量 返回EDB, 逻辑型, , , 记录返回值EDB_路径 ＝ 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5)返回EDB ＝ 真.如果真 (选择框_易数据库文件_图标显示.选中 ＝ 真 且 选择框_易数据库文件_图标显示.禁止 ＝ 假) .如果 (写注册项 (#根类, “.edb/”, “EDB.Document”) ＝ 真 且 写注册项 (#根类, “EDB.Document/”, “易数据库文件”) 且 写注册项 (#根类, “LIB.Document/DefaultIcon”, EDB_路径 ＋ “help/edb.ico”) ＝ 真)  写到文件 (EDB_路径 ＋ “help/edb.ico”, #ICON_EDB)  返回EDB ＝ 真 .否则  返回EDB ＝ 假 .如果结束.如果真结束.如果真 (选择框_易数据库文件_文件双击打开.选中 ＝ 真 且 选择框_易数据库文件_文件双击打开.禁止 ＝ 假) .如果 (写注册项 (#根类, “.edb/”, “EDB.Document”) ＝ 真 且 写注册项 (#根类, “EDB.Document/”, “易数据库文件”) 且 写注册项 (#根类, “EDB.Document/Shell/Open/Command”, EDB_路径 ＋ “tools/EDBView.exe” ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号) ＝ 真)  写到文件 (局部_路径 ＋ “tools/EDBView.exe”, #EDBView)  返回EDB ＝ 真 .否则  返回EDB ＝ 假 .如果结束.如果真结束返回 (返回EDB).子程序 删除易数据库EDB, 逻辑型, , 删注册表，成功返回真，失败返回假。.局部变量 删除返回EDB, 逻辑型删除返回EDB ＝ 真.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/.edb”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/.edb”) ＝ 真)  删除返回EDB ＝ 真 .否则  删除返回EDB ＝ 假 .如果结束.如果真结束.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/EDB.Document”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/EDB.Document”) ＝ 真)  删除返回EDB ＝ 真 .否则  删除返回EDB ＝ 假 .如果结束.如果真结束返回 (删除返回EDB).子程序 修复易支持库FNE, 逻辑型, , 写注册表，成功返回真，失败返回假。.局部变量 FNE_路径, 文本型.局部变量 返回FNE, 逻辑型, , , 记录返回值FNE_路径 ＝ 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5)返回FNE ＝ 真.如果真 (选择框_易支持库文件_图标显示.选中 ＝ 真 且 选择框_易支持库文件_图标显示.禁止 ＝ 假) .如果 (写注册项 (#根类, “.fne/”, “FNE.Document”) ＝ 真 且 写注册项 (#根类, “FNE.Document/”, “易支持库文件”) ＝ 真 且 写注册项 (#根类, “FNE.Document/DefaultIcon/”, FNE_路径 ＋ “help/fne.ico”) ＝ 真)  写到文件 (局部_路径 ＋ “help/fne.ico”, #ICON_FNE)  返回FNE ＝ 真 .否则  返回FNE ＝ 假 .如果结束.如果真结束.如果真 (选择框_易支持库文件_右键复制到易语言目录.选中 ＝ 真 且 选择框_易支持库文件_右键复制到易语言目录.禁止 ＝ 假) FNE_路径 ＝ 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5) .如果 (写注册项 (#根类, “.fne/”, “FNE.Document”) ＝ 真 且 写注册项 (#根类, “FNE.Document/”, “易支持库文件”) ＝ 真 且 写注册项 (#根类, “FNE.Document/Shell/复制到易语言目录/Command/”, FNE_路径 ＋ “tools/CopytoE.exe” ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号) ＝ 真)  写到文件 (局部_路径 ＋ “tools/CopytoE.exe”, #CopytoE)  返回FNE ＝ 真 .否则  返回FNE ＝ 假 .如果结束.如果真结束返回 (返回FNE).子程序 删除易支持库FNE, 逻辑型, , 删注册表，成功返回真，失败返回假。.局部变量 删除返回FNE, 逻辑型删除返回FNE ＝ 真.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/.fne”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/.fne”) ＝ 真)  删除返回FNE ＝ 真 .否则  删除返回FNE ＝ 假 .如果结束.如果真结束.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/FNE.Document”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/FNE.Document”) ＝ 真)  删除返回FNE ＝ 真 .否则  删除返回FNE ＝ 假 .如果结束.如果真结束返回 (删除返回FNE).子程序 修复易静态库LIB, 逻辑型, , 写注册表，成功返回真，失败返回假。.局部变量 LIB_路径, 文本型.局部变量 返回LIB, 逻辑型, , , 记录返回值LIB_路径 ＝ 取文本左边 (编辑框_易语言主程序.内容, 取文本长度 (编辑框_易语言主程序.内容) － 5)返回LIB ＝ 真.如果真 (选择框_易静态库文件_图标显示.选中 ＝ 真 且 选择框_易静态库文件_图标显示.禁止 ＝ 假) .如果 (写注册项 (#根类, “.lib/”, “LIB.Document”) ＝ 真 且 写注册项 (#根类, “LIB.Document/”, “易静态库文件”) ＝ 真 且 写注册项 (#根类, “LIB.Document/DefaultIcon/”, LIB_路径 ＋ “help/lib.ico”) ＝ 真)  写到文件 (LIB_路径 ＋ “help/lib.ico”, #ICON_LIB)  返回LIB ＝ 真 .否则  返回LIB ＝ 假 .如果结束.如果真结束.如果真 (选择框_易静态库文件_右键复制到易语言目录.选中 ＝ 真 且 选择框_易静态库文件_右键复制到易语言目录.禁止 ＝ 假) .如果 (写注册项 (#根类, “.lib/”, “LIB.Document”) ＝ 真 且 写注册项 (#根类, “LIB.Document/”, “易静态库文件”) ＝ 真 且 写注册项 (#根类, “LIB.Document/Shell/复制到易语言目录/Command/”, LIB_路径 ＋ “tools/CopytoE.exe” ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号) ＝ 真)  写到文件 (LIB_路径 ＋ “tools/CopytoE.exe”, #CopytoE)  返回LIB ＝ 真 .否则  返回LIB ＝ 假 .如果结束.如果真结束返回 (返回LIB).子程序 删除易静态库LIB, 逻辑型, , 删注册表，成功返回真，失败返回假。.局部变量 删除返回LIB, 逻辑型删除返回LIB ＝ 真.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/.lib”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/.lib”) ＝ 真)  删除返回LIB ＝ 真 .否则  删除返回LIB ＝ 假 .如果结束.如果真结束.如果真 (注册表_是否存在 (“HKEY_CLASSES_ROOT/LIB.Document”)) .如果 (注册表_删除项 (“HKEY_CLASSES_ROOT/LIB.Document”) ＝ 真)  删除返回LIB ＝ 真 .否则  删除返回LIB ＝ 假 .如果结束.如果真结束返回 (删除返回LIB).子程序 刷新注册表API_SendMessage (#HWND_BROADCAST, #WM_SETTINGCHANGE, 0, 0).子程序 刷新注册表2.局部变量 dwResult, 整数型API_SendMessageTimeout (#HWND_BROADCAST, #WM_SETTINGCHANGE, 0, 0, #SMTO_NORMAL, 1000, dwResult).子程序 _透明标签1_鼠标左键被按下, 逻辑型.参数 横向位置, 整数型.参数 纵向位置, 整数型.参数 功能键状态, 整数型打开指定网址 (“//www.vevb.com/”).子程序 _按钮_浏览_被单击通用对话框.类型 ＝ 0通用对话框.标题 ＝ “选择易语言主程序”通用对话框.过滤器 ＝ “易语言主程序(e.exe)|e.exe”.如果真 (通用对话框.打开 ()) 编辑框_易语言主程序.内容 ＝ 通用对话框.文件名.如果真结束.子程序 __启动窗口_尺寸被改变_启动窗口.宽度 ＝ 455_启动窗口.高度 ＝ 480.子程序 __启动窗口_将被销毁_启动窗口.销毁 ()