Change icon of a pushbutton on quick launch bar

[ssimop]

I wonder whether there exists a QM function to dynamically change at run-time the icon of a pushbutton on the quick launch bar. I understand this can be done using QM-Editor "Shortcut" create on quick launch bar. Many thanks in advance.

[ssimop]

This is my solution. It works. Any comments are mostly welcome.

Function tempf11

Code:

Copy      Help

str shcut="$appdata$\Microsoft\Internet Explorer\Quick Launch\tempf01.lnk"
SHORTCUTINFO sio
int i=GetShortcutInfoEx(shcut &sio)
sio.iconfile="$My QM$\icons\lykaio.ico"
CreateShortcutEx(shcut sio)

[ssimop]

Better solution :
Update .lnk icon

Macro ReplaceQLShcutIcon

Code:

Copy      Help

str shcut="$appdata$\Microsoft\Internet Explorer\Quick Launch\tempf01.lnk"
ChangeShortcutIcon shcut "$My QM$\icons\lykaio.ico"