注册Windows10的默认程序(之前的帖子代码有问题)

Xiaomi525

原贴:https://bbs.125.la/forum.php?mod=viewthread&tid=14713702
两年前写的错误代码不知道已经误导了多少人了，现在我重新发布这个代码希望管理可以帮我删除之前那个错误的帖子

说明:协议就是关联的特定注册项
程序名可以自己随便写，说明也是无关紧要的

  

子程序名	返回值类型	公开	备 注
写默认程序	逻辑型		写默认程序,win10可用
参数名	类 型	参考	可空	数组	备 注
程序名称	文本型				用来显示的，自己编一个
关联项	文本型				后缀如.html,自行填充数组
关联项备注	文本型				上一项的备注，成员数与上一个相同
程序路径	文本型				设置启动的程序路径
标注名	文本型
协议	文本型				如Media(默认视频播放器)
系统协议	文本型				如http,https,sms…
图标路径	文本型				ico图标
是否刷新	逻辑型				真确定刷新
文件备注	文本型				自填
关联名	文本型				自填

变量名	类 型	静态	数组	备 注
n	整数型
n1	整数型
项目路径	整数型
a	文本型

' 不直接使用变量是为了让大家看得更清晰
程序名 ＝ 程序名称
项目路径 ＝ “SOFTWARE\Clients\” ＋ 协议 +"\"＋ 程序名 ＋ “\Capabilities”
写注册项 ( #现行用户, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\” ＋ 程序名 ＋ “\DisplayName”, 标注名)
写注册项 ( #现行用户, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\” ＋ 程序名 ＋ “\DisplayIcon”, 标注名)
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议+"\" ＋ 程序名 ＋ “\”, 标注名)
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议+"\" ＋ 程序名 ＋ “\Capabilities\ApplicationIcon”, 图标路径)
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议 +"\"＋ 程序名 ＋ “\Capabilities\ApplicationDescription”, 标注名)
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议 +"\"＋ 程序名 ＋ “\Capabilities\ApplicationName”, 标注名)
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议+"\" ＋ 程序名 ＋ “\Capabilities\Startmenu\StartMenuInternet”, 标注名)
' 注册
计次循环首 (取数组成员数 (系统协议), n)
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋ 程序名 ＋ “\Capabilities\URLAssociations\” ＋ 系统协议 [n], 标注名)
计次循环尾 ()
计次循环首 (取数组成员数 (关联项), n1)
写注册项 ( #本地机器, “SOFTWARE\Clients\"+协议+"\"+程序名+"\Capabilities\FileAssociations\” ＋ 关联项 [n1], 关联项备注 [n1])
a ＝ a ＋ “|” ＋ 关联项 [n1]
计次循环尾 ()
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋ “\”+程序名 ＋ “\DefaultIcon\”, 程序路径)
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋ “\”+程序名 ＋ “\InstallInfo\ShowIconsCommand”, 图标路径 ＋ “ --show-icons”)
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋ “\”+程序名 ＋ “\InstallInfo\ReinstallCommand”, 程序路径 ＋ “ --make-default-media”)
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋“\”+ 程序名 ＋ “\InstallInfo\HideIconsCommand”, 图标路径 ＋ “ --hide-icons”)
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋“\”+ 程序名 ＋ “\InstallInfo\IconsVisible”, 1)
写注册项 ( #本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋“\”+ 程序名 ＋ “\shell\open\command\”, 程序路径)
写注册项 ( #本地机器, “SOFTWARE\” ＋ 程序名 ＋ “\”, 标注名)
写注册项 ( #本地机器, “SOFTWARE\RegisteredApplications\” ＋ 程序名, 项目路径)
' 这里用精易模块的文件_关联你要用的后缀
' 关联
系统_刷新 ()

.版本 2<br /> <br /> .子程序 写默认程序, 逻辑型, 公开, 写默认程序,win10可用<br /> .参数 程序名称, 文本型, , 用来显示的，自己编一个<br /> .参数 关联项, 文本型, 数组, 后缀如.html,自行填充数组<br /> .参数 关联项备注, 文本型, 数组, 上一项的备注，成员数与上一个相同<br /> .参数 程序路径, 文本型, , 设置启动的程序路径<br /> .参数 标注名, 文本型<br /> .参数 协议, 文本型, , 如Media(默认视频播放器)<br /> .参数 系统协议, 文本型, 数组, 如http,https,sms…<br /> .参数 图标路径, 文本型, , ico图标<br /> .参数 是否刷新, 逻辑型, , 真确定刷新<br /> .参数 文件备注, 文本型, , 自填<br /> .参数 关联名, 文本型, , 自填<br /> .局部变量 n, 整数型<br /> .局部变量 n1, 整数型<br /> .局部变量 项目路径, 整数型<br /> .局部变量 a, 文本型<br /> <br /> ' 不直接使用变量是为了让大家看得更清晰<br /> 程序名 ＝ 程序名称<br /> 项目路径 ＝ “SOFTWARE\Clients\” ＋ 协议 +"\"＋ 程序名 ＋ “\Capabilities”<br /> 写注册项 (#现行用户, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\” ＋ 程序名 ＋ “\DisplayName”, 标注名)<br /> 写注册项 (#现行用户, “SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\” ＋ 程序名 ＋ “\DisplayIcon”, 标注名)<br /> 写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议+"\" ＋ 程序名 ＋ “\”, 标注名)<br /> 写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议+"\" ＋ 程序名 ＋ “\Capabilities\ApplicationIcon”, 图标路径)<br /> 写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议 +"\"＋ 程序名 ＋ “\Capabilities\ApplicationDescription”, 标注名)<br /> 写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议 +"\"＋ 程序名 ＋ “\Capabilities\ApplicationName”, 标注名)<br /> 写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议+"\" ＋ 程序名 ＋ “\Capabilities\Startmenu\StartMenuInternet”, 标注名)<br /> ' 注册<br /> .计次循环首 (取数组成员数 (系统协议), n)<br />     写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋ 程序名 ＋ “\Capabilities\URLAssociations\” ＋ 系统协议 [n], 标注名)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (关联项), n1)<br />     写注册项 (#本地机器, “SOFTWARE\Clients\"+协议+"\"+程序名+"\Capabilities\FileAssociations\” ＋ 关联项 [n1], 关联项备注 [n1])<br />     a ＝ a ＋ “|” ＋ 关联项 [n1]<br /> .计次循环尾 ()<br /> 写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋ “\”+程序名 ＋ “\DefaultIcon\”, 程序路径)<br /> 写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋ “\”+程序名 ＋ “\InstallInfo\ShowIconsCommand”, 图标路径 ＋ “ --show-icons”)<br /> 写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋ “\”+程序名 ＋ “\InstallInfo\ReinstallCommand”, 程序路径 ＋ “ --make-default-media”)<br /> 写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋“\”+ 程序名 ＋ “\InstallInfo\HideIconsCommand”, 图标路径 ＋ “ --hide-icons”)<br /> 写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋“\”+ 程序名 ＋ “\InstallInfo\IconsVisible”, 1)<br /> 写注册项 (#本地机器, “SOFTWARE\Clients\” ＋ 协议 ＋“\”+ 程序名 ＋ “\shell\open\command\”, 程序路径)<br /> 写注册项 (#本地机器, “SOFTWARE\” ＋ 程序名 ＋ “\”, 标注名)<br /> 写注册项 (#本地机器, “SOFTWARE\RegisteredApplications\” ＋ 程序名, 项目路径)<br /> <br /> '这里用精易模块的文件_关联你要用的后缀<br /> <br /> '关联<br /> 系统_刷新()