设置文件夹图标

528235171

先上效果图

这个方法说起来其实非常简单
把文件夹属性设置为系统，在文件夹下写出一个文件，设置为隐藏+系统就OK的
代码如下

  

子程序名	返回值类型	公开	备 注
设定文件夹图标			有时候需要重启资源管理器才能看到效果
参数名	类 型	参考	可空	数组	备 注
文件夹路径	文本型
文件路径	文本型				ICO文件或exe等文件路径
图标顺序	整数型

变量名	类 型	静态	数组	备 注
path	文本型
T	文本型

path ＝ 文件夹路径 ＋ 选择 (取文本右边 (文件夹路径, 1) ＝ “\”, “”, “\”) ＋ “desktop.ini”
' 将文件夹设置为系统属性
' 将desktop.ini设置为隐藏属性
' OK
置文件属性 (文件夹路径, 4)
如果真 (文件是否存在 (path))
输出调试文本 (删除文件 (path))
输出调试文本 (path)
T ＝ 子文本替换 ( #ico, “[icon]”, 文件路径, , , 真)
如果真 (是否为空 (图标顺序) ＝ 假)
T ＝ 子文本替换 (T, “,0”, “,” ＋ 到文本 (图标顺序), , , 真)
写到文件 (path, 到字节集 (T))
置文件属性 (path, 2 ＋ 4)

.版本 2<br /> <br /> .子程序 设定文件夹图标, , 公开, 有时候需要重启资源管理器才能看到效果<br /> .参数 文件夹路径, 文本型<br /> .参数 文件路径, 文本型, , ICO文件或exe等文件路径<br /> .参数 图标顺序, 整数型, 可空<br /> .局部变量 path, 文本型<br /> .局部变量 T, 文本型<br /> <br /> path ＝ 文件夹路径 ＋ 选择 (取文本右边 (文件夹路径, 1) ＝ “\”, “”, “\”) ＋ “desktop.ini”<br /> ' 将文件夹设置为系统属性<br /> ' 将desktop.ini设置为隐藏属性<br /> ' OK<br /> 置文件属性 (文件夹路径, 4)<br /> .如果真 (文件是否存在 (path))<br />     输出调试文本 (删除文件 (path))<br /> .如果真结束<br /> 输出调试文本 (path)<br /> T ＝ 子文本替换 (#ico, “[icon]”, 文件路径, , , 真)<br /> .如果真 (是否为空 (图标顺序) ＝ 假)<br />     T ＝ 子文本替换 (T, “,0”, “,” ＋ 到文本 (图标顺序), , , 真)<br /> .如果真结束<br /> 写到文件 (path, 到字节集 (T))<br /> 置文件属性 (path, 2 ＋ 4)

  

常量名称	常量值	公 开	备 注
ico	<文本长度: 88>

.版本 2<br /> <br /> .常量 ico, "<文本长度: 88>"

常量值如下
[.ShellClassInfo]
IconResource=[icon],0
[ViewState]
Mode=
Vid=
FolderType=Generic

阿婆

改进了下，更改完图标及时生效，雷锋不谢！

  

子程序名	返回值类型	公开	备 注
DirSetIcon
参数名	类 型	参考	可空	数组	备 注
sDir	文本型				文件夹路径
sIconPath	文本型				如：“%SystemRoot%\system32\Shell32.dll,43” 如：“./wmp.ico,0”

变量名	类 型	静态	数组	备 注
ini	文本型			desktop.ini

ini ＝ sDir ＋ 选择 (取文本右边 (sDir, 1) ＝ “\”, “”, “\”) ＋ “desktop.ini”
置文件属性 (sDir, #系统文件 )
写配置项 (ini, “.ShellClassInfo”, “IconResource”, sIconPath)
置文件属性 (ini, #系统文件 ＋ #隐藏文件 )
PostMessageA (GetDesktopWindow (), 256, #F5键, 0)  ' WM_KEYDOWN
SHChangeNotify ( #SHCNE_ASSOCCHANGED, #SHCNF_FLUSH, 0, 0)

.版本 2<br /> <br /> .子程序 DirSetIcon, , 公开<br /> .参数 sDir, 文本型, , 文件夹路径<br /> .参数 sIconPath, 文本型, , 如：“%SystemRoot%\system32\Shell32.dll,43” 如：“./wmp.ico,0” <br /> .局部变量 ini, 文本型, , , desktop.ini<br /> <br /> ini ＝ sDir ＋ 选择 (取文本右边 (sDir, 1) ＝ “\”, “”, “\”) ＋ “desktop.ini”<br /> 置文件属性 (sDir, #系统文件)<br /> 写配置项 (ini, “.ShellClassInfo”, “IconResource”, sIconPath)<br /> 置文件属性 (ini, #系统文件 ＋ #隐藏文件)<br /> PostMessageA (GetDesktopWindow (), 256, #F5键, 0)  ' WM_KEYDOWN<br /> SHChangeNotify (#SHCNE_ASSOCCHANGED, #SHCNF_FLUSH, 0, 0)

  

常量名称	常量值	公 开	备 注
SHCNE_ASSOCCHANGED	134217728
SHCNF_FLUSH	4096

.版本 2<br /> <br /> .常量 SHCNE_ASSOCCHANGED, "134217728"<br /> .常量 SHCNF_FLUSH, "4096"

  

DLL命令名	返回值类型	公开	备 注
SHChangeNotify			刷新关联图标
DLL库文件名:
shell32
在DLL库中对应命令名:
SHChangeNotify
参数名	类 型	传址	数组	备 注
SHCNE_ASSOCCHANGED	整数型			134217728
SHCNF_IDLIST	整数型			0
nil	整数型			0
nil	整数型			0

DLL命令名	返回值类型	公开	备 注
PostMessageA	整数型		投递消息
DLL库文件名:
user32.dll
在DLL库中对应命令名:
PostMessageA
参数名	类 型	传址	数组	备 注
hWnd	整数型
Msg	整数型
wParam	整数型
lParam	整数型

.版本 2<br /> <br /> .DLL命令 SHChangeNotify, , "shell32", "SHChangeNotify", , 刷新关联图标<br />     .参数 SHCNE_ASSOCCHANGED, 整数型, , 134217728<br />     .参数 SHCNF_IDLIST, 整数型, , 0<br />     .参数 nil, 整数型, , 0<br />     .参数 nil, 整数型, , 0<br /> .版本 2<br /> <br /> .DLL命令 PostMessageA, 整数型, "user32.dll", "PostMessageA", , 投递消息<br />     .参数 hWnd, 整数型<br />     .参数 Msg, 整数型<br />     .参数 wParam, 整数型<br />     .参数 lParam, 整数型

tank2012t

我已测试  好使

曲终人散

感谢分享，辛苦了，论坛有你更精彩

shuxiang

阿婆 发表于 2018-2-1 23:10
改进了下，更改完图标及时生效，雷锋不谢！

[e=1].版本 2

还是不行！就是不显示图标

8554308

学习了啊啊啊啊。

8554308

%D1%A7%CF%B0%C1%CB%B0%A1%B0%A1%BA%C7%BA%C7

天空飞翔

谢谢分享啊

gaoqing

谢谢分享试试、

xiaole1118

666啊            

拿破锅仑

chi1187141761

6666666666666666666666666