更新 文件_关联

LLJ

更新说明：
1.修正取消关联不干净，导致文件还残留图标。
2.由于 删除zc项()  需要没有子项才能删除成功，改用 SHDeleteKeyA()
3.修正ICO文件路径没有添加引号，可能不支持带空格路径

  

子程序名	返回值类型	公开	备 注
文件_关联			关联指定后缀名到指定文件 (打开该后缀名文件,该后缀名文件路径将作为参数传递给指定文件)
参数名	类 型	参考	可空	数组	备 注
程序路径	文本型				可空，关联到程序的路径，如果留空将取消关联。
后缀	文本型				欲关联的后缀名,多个后缀用|分开 (如: asp|htm|html)
ICO图标路径	文本型				被关联文件的图标 可空为执行文件(程序)图标，也可以直接指向一个其它一个可执行的文件。
文件类型	文本型				关联文件的说明 被关联文件属性中的文件类型
关联名	文本型				可空为后缀

变量名	类 型	静态	数组	备 注
所有后缀	文本型		0
a	整数型
局_关联名	文本型

所有后缀 ＝ 分割文本 (后缀, “|”, )
如果 (删首尾空 (程序路径) ＝ “”)  ' 取消关联
计次循环首 (取数组成员数 (所有后缀), a)
局_关联名 ＝ 取文本zc项 ( #根类, “.” ＋ 所有后缀 [a] ＋ “\”, )
SHDeleteKeyA ( #HKEY_CLASSES_ROOT, “.” ＋ 所有后缀 [a])
SHDeleteKeyA ( #HKEY_CLASSES_ROOT, 局_关联名)
局_关联名 ＝ 取文本zc项 ( #本地机器, “Software\Classes\.” ＋ 所有后缀 [a] ＋ “\”, )
SHDeleteKeyA ( #HKEY_LOCAL_MACHINE, “Software\Classes\.” ＋ 所有后缀 [a])
SHDeleteKeyA ( #HKEY_LOCAL_MACHINE, “Software\Classes\” ＋ 局_关联名)
局_关联名 ＝ 取文本zc项 ( #现行用户, “Software\Classes\.” ＋ 所有后缀 [a] ＋ “\”, )
SHDeleteKeyA ( #HKEY_CURRENT_USER, “Software\Classes\.” ＋ 所有后缀 [a])
SHDeleteKeyA ( #HKEY_CURRENT_USER, “Software\Classes\” ＋ 局_关联名)
SHDeleteKeyA ( #HKEY_CURRENT_USER, “Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.” ＋ 所有后缀 [a])
SHDeleteKeyA ( #HKEY_CURRENT_USER, “Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs\.” ＋ 所有后缀 [a])
计次循环尾 ()

如果真 (ICO图标路径 ＝ “”)
ICO图标路径 ＝ 程序路径
如果真 (关联名 ＝ “”)
关联名 ＝ 后缀
写zc项 ( #根类, 关联名 ＋ “\”, 文件类型)  ' 关联文件说明
写zc项 ( #根类, 关联名 ＋ “\EditFlags”, 2)  ' 文件的读写权限
写zc项 ( #根类, 关联名 ＋ “\Shell\Open\Command\”, #引号 ＋ 程序路径 ＋ #引号 ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号 )  ' 以关联后缀文件的路径作为执行文件(程序)的命令行
写zc项 ( #根类, 关联名 ＋ “\DefaultIcon\”, #引号 ＋ ICO图标路径 ＋ #引号 ＋ “,0”)
计次循环首 (取数组成员数 (所有后缀), a)
写zc项 ( #根类, “.” ＋ 所有后缀 [a] ＋ “\”, 关联名)  ' 关联后缀
计次循环尾 ()
SHChangeNotify (134217728, 0, 0, 0)
' SHCNE_ASSOCCHANGED=134217728 一个文件类型关联发生了变化。SHCNF_IDLIST必须指定在uFlags参数。dwItem1和dwItem2不使用，必须为NULL。

DLL命令名	返回值类型	公开	备 注
SHDeleteKeyA	整数型		删除子项及其所有子项。此函数从zc表中删除键和所有键的值。
DLL库文件名:
Shlwapi.dll
在DLL库中对应命令名:
SHDeleteKeyA
参数名	类 型	传址	数组	备 注
hKey	整数型
pszSubKey	文本型

.版本 2<br /> <br /> .子程序 文件_关联, , 公开, 关联指定后缀名到指定文件 (打开该后缀名文件,该后缀名文件路径将作为参数传递给指定文件)<br /> .参数 程序路径, 文本型, , 可空，关联到程序的路径，如果留空将取消关联。<br /> .参数 后缀, 文本型, , 欲关联的后缀名,多个后缀用|分开 (如: asp|htm|html)<br /> .参数 ICO图标路径, 文本型, 可空, 被关联文件的图标 可空为执行文件(程序)图标，也可以直接指向一个其它一个可执行的文件。<br /> .参数 文件类型, 文本型, 可空, 关联文件的说明 被关联文件属性中的文件类型<br /> .参数 关联名, 文本型, 可空, 可空为后缀<br /> .局部变量 所有后缀, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 局_关联名, 文本型<br /> <br /> 所有后缀 ＝ 分割文本 (后缀, “|”, )<br /> .如果 (删首尾空 (程序路径) ＝ “”)  ' 取消关联<br />     .计次循环首 (取数组成员数 (所有后缀), a)<br />         局_关联名 ＝ 取文本zc项 (#根类, “.” ＋ 所有后缀 [a] ＋ “\”, )<br />         SHDeleteKeyA (#HKEY_CLASSES_ROOT, “.” ＋ 所有后缀 [a])<br />         SHDeleteKeyA (#HKEY_CLASSES_ROOT, 局_关联名)<br /> <br />         局_关联名 ＝ 取文本zc项 (#本地机器, “Software\Classes\.” ＋ 所有后缀 [a] ＋ “\”, )<br />         SHDeleteKeyA (#HKEY_LOCAL_MACHINE, “Software\Classes\.” ＋ 所有后缀 [a])<br />         SHDeleteKeyA (#HKEY_LOCAL_MACHINE, “Software\Classes\” ＋ 局_关联名)<br /> <br />         局_关联名 ＝ 取文本zc项 (#现行用户, “Software\Classes\.” ＋ 所有后缀 [a] ＋ “\”, )<br />         SHDeleteKeyA (#HKEY_CURRENT_USER, “Software\Classes\.” ＋ 所有后缀 [a])<br />         SHDeleteKeyA (#HKEY_CURRENT_USER, “Software\Classes\” ＋ 局_关联名)<br /> <br />         SHDeleteKeyA (#HKEY_CURRENT_USER, “Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.” ＋ 所有后缀 [a])<br />         SHDeleteKeyA (#HKEY_CURRENT_USER, “Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs\.” ＋ 所有后缀 [a])<br />     .计次循环尾 ()<br /> <br /> .否则<br />     .如果真 (ICO图标路径 ＝ “”)<br />         ICO图标路径 ＝ 程序路径<br />     .如果真结束<br />     .如果真 (关联名 ＝ “”)<br />         关联名 ＝ 后缀<br />     .如果真结束<br />     写zc项 (#根类, 关联名 ＋ “\”, 文件类型)  ' 关联文件说明<br />     写zc项 (#根类, 关联名 ＋ “\EditFlags”, 2)  ' 文件的读写权限<br />     写zc项 (#根类, 关联名 ＋ “\Shell\Open\Command\”, #引号 ＋ 程序路径 ＋ #引号 ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号)  ' 以关联后缀文件的路径作为执行文件(程序)的命令行<br />     写zc项 (#根类, 关联名 ＋ “\DefaultIcon\”, #引号 ＋ ICO图标路径 ＋ #引号 ＋ “,0”)<br />     .计次循环首 (取数组成员数 (所有后缀), a)<br />         写zc项 (#根类, “.” ＋ 所有后缀 [a] ＋ “\”, 关联名)  ' 关联后缀<br />     .计次循环尾 ()<br /> .如果结束<br /> SHChangeNotify (134217728, 0, 0, 0)<br /> ' SHCNE_ASSOCCHANGED=134217728 一个文件类型关联发生了变化。SHCNF_IDLIST必须指定在uFlags参数。dwItem1和dwItem2不使用，必须为NULL。<br /> <br /> .版本 2<br /> <br /> .DLL命令 SHDeleteKeyA, 整数型, "Shlwapi.dll", "SHDeleteKeyA", , 删除子项及其所有子项。此函数从zc表中删除键和所有键的值。<br />     .参数 hKey, 整数型<br />     .参数 pszSubKey, 文本型

van944527

666666666666