set groupname SomeCompany set progname MyProgram set programs_menu [registry get {HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders} Programs] set menu_dir [file join $programs_menu $groupname] file mkdir $menu_dir file link [file join $menu_dir $progname] $realfilename
Category Windows