默认应用zc

Xiaomi525

  最近,精易模块出了一个浏览器的默认设置，但是我测试后发现win10无法使用，为了让大家能把自己的应用弄到win10的默认应用设置里，我仔细研究了 MSDN,让后我用新手可以看懂的（就是不搞遍历的替换的）e代码写了一个注册的模块

这里是源码，可能比较笨拙
希望可以帮到想做默认浏览器或者默认播放器的各位，希望能给点支持

  

子程序名	返回值类型	公开	备 注
写默认程序	逻辑型		写默认程序,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\Media\壁纸\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\” ＋ 程序名, 项目路径)
win_associated (程序路径, a, 图标路径, 文件备注, 关联名) ' 可以用精易模块的关联代替
SHChangeNotify (134217728, 0, 0, 0) ' 系统刷新函数

.版本 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\Media\壁纸\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 /> win_associated (程序路径, a, 图标路径, 文件备注, 关联名)'可以用精易模块的关联代替<br /> SHChangeNotify (134217728, 0, 0, 0)'系统刷新函数

abpyu

这个好，谢谢大佬分享

kyo9766

代码好评啊，很容易看懂，感谢分享

Xiaomi525

这个是zc信息（没这个模块里的默认浏览器设置不了，不过win10对非法应用的识别挺奇葩的，所以可能会失败），还有那个参数标注名貌似用重复了，大家用时注意改下，选择按原步骤来，貌似有些情况需要重启系统（win10特性）

1279868433

支持一下           

xjshuaishuai

谢谢分享！

凉城o

支持一下

momoko001

支持开源~！感谢分享

ghost12

互相讨论，共同进步

南笙北执

0000000000000000000000000000000