【易语言】如何关联文件？

提供个子程：.版本 2.子程序 文件关联, 逻辑型, 公开, 成功返回真，失败假 (任意参数为空则取消文件关联)

.参数 关联应用程序, 文本型, 可空, 当双击对应的文件时就运行该应用程序打开（命令行方式）

.参数 关联文件类型, 文本型, 可空, 欲关联的文件类型，如“ABC”

.参数 关联文件图标, 文本型, 可空, ICQ文件路径或EXE文件路径，注销后才有效.如果真 (是否为空 (关联应用程序) 或 是否为空 (关联文件类型) 或 是否为空 (关联文件图标))

删除注册项 (#根类, “.” ＋ “关联文件类型”)

删除注册项 (#根类, 关联文件类型 ＋ “file\DefaultIcon”)

删除注册项 (#根类, 关联文件类型 ＋ “file\shell\open\command”)

删除注册项 (#根类, 关联文件类型 ＋ “file\shell\open”)

删除注册项 (#根类, 关联文件类型 ＋ “file\shell”)

删除注册项 (#根类, 关联文件类型 ＋ “file”)

返回 (假)

.如果真结束.如果真 (写注册项 (#根类, “.” ＋ 关联文件类型 ＋ “\”, 关联文件类型 ＋ “file”) ＝ 真 且 写注册项 (#根类, 关联文件类型 ＋ “file\”, 关联文件类型) ＝ 真 且 写注册项 (#根类, 关联文件类型 ＋ “file\DefaultIcon\”, 关联文件图标 ＋ “,0”) ＝ 真 且 写注册项 (#根类, 关联文件类型 ＋ “file\shell\open\command\”, 关联应用程序 ＋ “ %1”) ＝ 真)

返回 (真)

.如果真结束

返回 (假)

.版本 2

 

_文件关联 (“D:\vdsnm.exe”, “rack”, “D:\vdsnm.exe”)

.子程序 _文件关联

.参数 关联应用程序, 文本型, , 当双击对应的文件时就运行该应用程序打开

.参数 关联文件类型, 文本型, , 欲关联的文件类型，如“mp3”

.参数 关联文件图标, 文本型, , ICQ文件路径或EXE文件路径，注销后才有效

.参数 设置默认, 逻辑型, , 是否设为默认

.如果真 (设置默认)

    删除注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.” ＋ 关联文件类型 ＋ “\OpenWithList”)

    删除注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.” ＋ 关联文件类型 ＋ “\OpenWithProgids”)

    删除注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.” ＋ 关联文件类型 ＋ “\”)

.如果真结束

写注册项 (#根类, “.” ＋ 关联文件类型 ＋ “\”, 关联文件类型 ＋ “file”)

写注册项 (#根类, 关联文件类型 ＋ “file\”, 关联文件类型)

写注册项 (#根类, 关联文件类型 ＋ “file\DefaultIcon\”, 关联文件图标 ＋ “,0”)

写注册项 (#根类, 关联文件类型 ＋ “file\shell\open\command\”, 关联应用程序 ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号)

---