Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Adding a dll function to QM
#8
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 "" ""     Help - how to add the trigger to the macro
Code:
Copy      Help
;\
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.all

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..


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)