怎么把易语言写的程序？自动设置成系统设置中的默认应用 - 精易论坛

子程序名	返回值类型	公开	备注
写默认程序	逻辑型		写默认程序,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)'系统刷新函数