Cannot set Public desktop shortcut icon

[fastlane65]

I'm creating a desktop shortcut in the "all users" desktop folder and it does not show the default icon.  I added a shortcutextra to specifically point to the icon and it still does not show.  Right click on link properties, change icon, and icon is in the box to select and will show on desktop when applied.  Is this a restriction to the all users folder?  Compiled app is running with admin rights.  Target "application.exe" is compiled winbatch. 


alluserdir = shortcutdir(25,0,0)
shortcutmake(strcat(alluserdir,"\Application.lnk"), strcat(localpath,"application.exe"), "", "", @normal,0)
ShortcutExtra(strcat(alluserdir,"\Application.lnk"), "", strcat(localpath,"application.exe"),"",0,0)

[Deana]

I'm creating a desktop shortcut in the "all users" desktop folder and it does not show the default icon.  I added a shortcutextra to specifically point to the icon and it still does not show.  Right click on link properties, change icon, and icon is in the box to select and will show on desktop when applied.  Is this a restriction to the all users folder?  Compiled app is running with admin rights.  Target "application.exe" is compiled winbatch. 


alluserdir = shortcutdir(25,0,0)
shortcutmake(strcat(alluserdir,"\Application.lnk"),strcat(localpath,"application.exe"), "", "", @normal,0)
ShortcutExtra(strcat(alluserdir,"\Application.lnk"),"", strcat(localpath,"application.exe"),"",0,0)

The ShortcutExtra function expects the icon-file as the FOURTH parameter. However you seems to be specifying it as the THIRD.

Code Select Expand

ShortcutExtra(link-name, description, hotkey, icon-file, icon-index [, shortcut-type])

Try this instead:

Code (winbatch) Select Expand

alluserdir = shortcutdir(25,0,0)
shortcutmake(strcat(alluserdir,"\Application.lnk"), strcat(localpath,"application.exe"), "", "", @normal,0)
ShortcutExtra(strcat(alluserdir,"\Application.lnk"), "", "",strcat(localpath,"application.exe"),0,0)