11-09-2013, 06:13 PM
Does not work either.
here's my complete code, called from a function triggered by shellmenu trigger (gives the name of the folder).
Macro Macro24
Trigger $sm "test" 0x1 "" ""
As said works except that explorer does not refresh the icon folder except if I move it in another place.
If you see where the problem stands..
here's my complete code, called from a function triggered by shellmenu trigger (gives the name of the folder).
Macro Macro24
Trigger $sm "test" 0x1 "" ""

;\
function $files
ARRAY(str) a=files
str dest=a[0]
str file
file=F"{dest}\Folder.ico"
iff(file) del file
file=F"{dest}\desktop.ini"
iff(file) del file
;
str Chemin="T:\icônes"
OpenSaveDialog(0 _s "Icônes[]*.ico" "*.ico" Chemin "rr")
;;;
;
str desk=
;[.ShellClassInfo]
;ConfirmFileOp=0
;NoSharing=1
;IconFile=Folder.ico
;IconIndex=0
;InfoTip=
cop- _s F"{dest}\Folder.ico"
SetAttr(F"{dest}\Folder.ico" FILE_ATTRIBUTE_HIDDEN|FILE_ATTRIBUTE_SYSTEM 0|1)
desk.unicode
desk.setfile(F"{dest}\desktop.ini")
SetAttr(F"{dest}\desktop.ini" FILE_ATTRIBUTE_HIDDEN|FILE_ATTRIBUTE_SYSTEM 0|1)
_i=GetAttr(dest)
if(_i&FILE_ATTRIBUTE_SYSTEM)
,SetAttr(dest FILE_ATTRIBUTE_SYSTEM 2)
else SetAttr(dest FILE_ATTRIBUTE_SYSTEM 0|1)
_s.allAs said works except that explorer does not refresh the icon folder except if I move it in another place.
If you see where the problem stands..
