|
写默认程序 | 逻辑型 | |
|
程序名称 | 文本型 | | | |
关联项 | 文本型 | | | | 关联项备注 | 文本型 | | | | 程序路径 | 文本型 | | | | 标注名 | 文本型 | | | | 协议 | 文本型 | | | | 系统协议 | 文本型 | | | | 图标路径 | 文本型 | | | | 是否刷新 | 逻辑型 | | | | 文件备注 | 文本型 | | | | 关联名 | 文本型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
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
)