设置文件夹图标

伤小磊

666只改为系统数学3不就可用了

528235171

1279868433 发表于 2018-2-1 23:33
还有这样灌水的？

没看见隐藏了吗

1279868433

1623863129 发表于 2018-2-1 21:07
把文件夹属性设置为系统，在文件夹下写出一个文件，设置为隐藏+系统就OK的
代码如下

还有这样灌水的？

阿婆

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

  

子程序名	返回值类型	公开	备 注
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, 整数型

qiuyingjia

可以的，支持

阿婆

学习 感谢分享