易文件关联修复工具源码读写注册表操作

.如果 (修复易语言源码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\ShellNew\”, “”)
写注册项 (#根类, “.e\ShellNew\NullFile”, “”) ' 右键新建
写注册项 (#根类, “E.Document\”, “易语言程序”) ' 文件描述 ' 此值影响右键新建名称和文
写注册项 (#根类, “E.Document\DefaultIcon\”, 编辑框_易语言主程序.内容 ＋ “ ,-127”) ' 图标关联
写注册项 (#根类, “E.Document\shell\”, “”)
写注册项 (#根类, “E.Document\shell\open\”, “”)
写注册项 (#根类, “E.Document\shell\open\command\”, 编辑框_易语言主程序.内容 ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号) ' 打开命令