易语言把软件图标嵌入我的电脑里面 支持WIN11 /32/64位

青春的思念

  

子程序名	返回值类型	公开	备 注
写我的电脑
参数名	类 型	参考	可空	数组	备 注
软件_编号	文本型
软件_名称	文本型
软件_名称_简介	文本型
软件_名称_鼠标提醒信息	文本型
软件_路径	文本型
图标_路径	文本型

写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\”, 编码_Ansi到Unicode (软件_名称))
写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\Shell\open\command\”, 软件_路径)
写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\DefaultIcon\”, 图标_路径)  ' 图标的路径
写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\InfoTip”, 编码_Ansi到Unicode (软件_名称_鼠标提醒信息))  ' 图标的路径
写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\System.ItemAuthors”, 软件_名称_简介)
写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\TileInfo”, “prop:System.ItemAuthors”)
写注册项 (3, “SOFTWARE\Classes\WOW6432Node\CLSID\” ＋ 软件_编号 ＋ “\”, 编码_Ansi到Unicode (软件_名称))  ' 软件名称
写注册项 (3, “SOFTWARE\Classes\WOW6432Node\CLSID\” ＋ 软件_编号 ＋ “\InfoTip”, 编码_Ansi到Unicode (软件_名称_鼠标提醒信息))  ' 提醒内容
写注册项 (3, “SOFTWARE\Classes\WOW6432Node\CLSID\” ＋ 软件_编号 ＋ “\System.ItemAuthors”, 软件_名称_简介)
写注册项 (3, “SOFTWARE\Classes\WOW6432Node\CLSID\” ＋ 软件_编号 ＋ “\TileInfo”, “prop:System.ItemAuthors”)
写注册项 (3, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\” ＋ 软件_编号 ＋ “\”, 软件_编号)
写注册项 (3, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\” ＋ 软件_编号 ＋ “\”, 软件_编号)

.版本 2<br /> <br /> .子程序 写我的电脑<br /> .参数 软件_编号, 文本型<br /> .参数 软件_名称, 文本型<br /> .参数 软件_名称_简介, 文本型<br /> .参数 软件_名称_鼠标提醒信息, 文本型<br /> .参数 软件_路径, 文本型<br /> .参数 图标_路径, 文本型<br /> <br /> <br /> 写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\”, 编码_Ansi到Unicode (软件_名称))<br /> 写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\Shell\open\command\”, 软件_路径)<br /> 写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\DefaultIcon\”, 图标_路径)  ' 图标的路径<br /> 写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\InfoTip”, 编码_Ansi到Unicode (软件_名称_鼠标提醒信息))  ' 图标的路径<br /> 写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\System.ItemAuthors”, 软件_名称_简介)<br /> 写注册项 (1, “CLSID\” ＋ 软件_编号 ＋ “\TileInfo”, “prop:System.ItemAuthors”)<br /> <br /> <br /> <br /> 写注册项 (3, “SOFTWARE\Classes\WOW6432Node\CLSID\” ＋ 软件_编号 ＋ “\”, 编码_Ansi到Unicode (软件_名称))  ' 软件名称<br /> 写注册项 (3, “SOFTWARE\Classes\WOW6432Node\CLSID\” ＋ 软件_编号 ＋ “\InfoTip”, 编码_Ansi到Unicode (软件_名称_鼠标提醒信息))  ' 提醒内容<br /> 写注册项 (3, “SOFTWARE\Classes\WOW6432Node\CLSID\” ＋ 软件_编号 ＋ “\System.ItemAuthors”, 软件_名称_简介)<br /> 写注册项 (3, “SOFTWARE\Classes\WOW6432Node\CLSID\” ＋ 软件_编号 ＋ “\TileInfo”, “prop:System.ItemAuthors”)<br /> 写注册项 (3, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\” ＋ 软件_编号 ＋ “\”, 软件_编号)<br /> 写注册项 (3, “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\” ＋ 软件_编号 ＋ “\”, 软件_编号)

调用方法
写我的电脑 (“{F649AFE0-6756-79D0-8AEC-00A0C90C0402}”, “CF高清大区X”, “CF高清大区XXX ”, “双击进入软件”, 软件路径.内容, 图标路径.内容)


{F649AFE0-6756-79D0-8AEC-00A0C90C0402}这玩意是GUID随便写


需要管理员模式运行







补充内容 (2021-11-3 15:46):
删除zc项 (1, GO (“CLSID\”) ＋ 软件_编号)
删除zc项 (3, GO (“SOFTWARE\Classes\WOW6432Node\CLSID\”) ＋ 软件_编号)

补充内容 (2021-11-3 15:47):
删除zc项 (3, GO (“SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\”) ＋ 软件_编号)
删除zc项 (3, GO (“SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer...

青春的思念

  

删除zc项 (1, GO (“CLSID\”) ＋ 软件_编号)
删除zc项 (3, GO (“SOFTWARE\Classes\WOW6432Node\CLSID\”) ＋ 软件_编号)
删除zc项 (3, GO (“SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\”) ＋ 软件_编号)
删除zc项 (3, GO (“SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\”) ＋ 软件_编号)

删除zc项 (1, GO (“CLSID\”) ＋ 软件_编号)<br /> 删除zc项 (3, GO (“SOFTWARE\Classes\WOW6432Node\CLSID\”) ＋ 软件_编号)<br /> 删除zc项 (3, GO (“SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\”) ＋ 软件_编号)<br /> 删除zc项 (3, GO (“SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\”) ＋ 软件_编号)

青春的思念

蓝雅婷 发表于 2021-11-2 09:08
怎么删除？

删除zc项 (1, GO (“CLSID\”) ＋ 软件_编号)
删除zc项 (3, GO (“SOFTWARE\Classes\WOW6432Node\CLSID\”) ＋ 软件_编号)
删除zc项 (3, GO (“SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\”) ＋ 软件_编号)
删除zc项 (3, GO (“SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\”) ＋ 软件_编号)

蓝雅婷

怎么删除？

hankitenn103

支持开源·~

语义错误ABR

支持开源·~

易团槽

支持一下！

HackDark

确实 Win10不行。。。应该有些zc表项楼主还没找到

hk6242337

看看，感谢分享

忧郁之子

学到了，谢谢分享