Untitled

kiwijunglist

Aug 1st, 2013

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

text 6.07 KB | None | 0 0

raw download clone embed print report

#singleinstance force
#Persistent
Menu, Tray, Icon, shell32.dll, 44
Menu, Tray, Tip, Tray Shortcuter
FileCreateDir, %A_AppData%\TraySC
FileCreateDir, %A_AppData%\TraySC\Shortcuts
IniRead, vSCFolder, %A_AppData%\TraySC\TraySC.ini, Settings, Shortcut Folder, % A_AppData "\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu"
gosub CreateShortcutMenu
SetTimer, CreateShortcutMenu, 2000, -999999 ; Refresh the menu
OnMessage(0x404, "ShowMenu") ; WM_USER + 4
Return
; ------------------------------------------------------------------------------
CreateShortcutMenu:
vShortcuts := Object()
vShortcuts := []
Loop, %vSCFolder%\*.*,1
{
vShortcuts[A_Index,"file"] := A_LoopFileFullPath
vName := A_LoopFileName
StringTrimRight, vName, vName, 4
vShortcuts[A_Index,"name"] := vName
} until A_Index = 50
Menu, Tray, NoStandard
Menu, Tray, DeleteAll
for x, in vShortcuts
menu, tray, add, % vShortcuts[x,"name"], Shortcut%x%
menu, tray, add
Menu, SettingsMenu, Add, Add, AddShortcuts
Menu, SettingsMenu, Add, Edit, EditShortcuts
Menu, FolderMenu, Add, Use Pinned, Pinned
Menu, FolderMenu, Add, Use TaskBar, Taskbar
Menu, FolderMenu, Add, Use Quick Launch, Quick
Menu, FolderMenu, Add, Use Desktop, Desktop
Menu, FolderMenu, Add, Use Desktop (All user), DesktopAll
Menu, FolderMenu, Add, Use Custom, Custom
Menu, FolderMenu, Add, Choose Folder, Chooser
Menu, SettingsMenu, Add, Change, :FolderMenu
Menu, SettingsMenu, Add, Exit, ExitApplication
Menu, Tray, Add, Settings, :SettingsMenu
Return
; ------------------------------------------------------------------------------
ShowMenu(wParam, lParam)
{
If lParam = 0x201
Menu, Tray, Show
}
; ------------------------------------------------------------------------------
AddShortcuts:
FileSelectFile, vShortcutFile
Inputbox, vShortcutName,,Choose a name for this shortcut
FileCreateShortcut, %vShortcutFile%, %vSCFolder%\%vShortcutName%.lnk
gosub CreateShortcutMenu
Return
EditShortcuts:
Run, %vSCFolder%
Return
Pinned:
vSCFolder := A_AppData "\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu"
IniWrite, %vSCFolder%, %A_AppData%\TraySC\TraySC.ini, Settings, Shortcut Folder
gosub CreateShortcutMenu
Return
Taskbar:
vSCFolder := A_AppData "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"
IniWrite, %vSCFolder%, %A_AppData%\TraySC\TraySC.ini, Settings, Shortcut Folder
gosub CreateShortcutMenu
Return
Quick:
vSCFolder := A_AppData "\Microsoft\Internet Explorer\Quick Launch"
IniWrite, %vSCFolder%, %A_AppData%\TraySC\TraySC.ini, Settings, Shortcut Folder
gosub CreateShortcutMenu
Return
DeskTop:
vSCFolder := A_Desktop
IniWrite, %vSCFolder%, %A_AppData%\TraySC\TraySC.ini, Settings, Shortcut Folder
gosub CreateShortcutMenu
Return
DeskTopAll:
vSCFolder := A_Desktop
IniWrite, %vSCFolder%, %A_AppData%\TraySC\TraySC.ini, Settings, Shortcut Folder
gosub CreateShortcutMenu
Return
Custom:
vSCFolder := A_AppData "\TraySC\Shortcuts"
IniWrite, %vSCFolder%, %A_AppData%\TraySC\TraySC.ini, Settings, Shortcut Folder
gosub CreateShortcutMenu
Return
Chooser:
msgbox, , System Tray Shortcuts, This will change the folder that shortcuter uses to store it's shortcuts. You can point to any folder on your computer that contains files or shortcuts
FileSelectFolder, vInput, *%vSCFolder%, Choose folder
if FileExist(vInput)
{
vSCFolder := vInput
IniWrite, %vSCFolder%, %A_AppData%\TraySC\TraySC.ini, Settings, Shortcut Folder
gosub CreateShortcutMenu
}
Return
ExitApplication:
ExitApp
Return
; ------------------------------------------------------------------------------
Shortcut1:
Run, % vShortcuts[1,"file"]
Return
Shortcut2:
Run, % vShortcuts[2,"file"]
Return
Shortcut3:
Run, % vShortcuts[3,"file"]
Return
Shortcut4:
Run, % vShortcuts[4,"file"]
Return
Shortcut5:
Run, % vShortcuts[5,"file"]
Return
Shortcut6:
Run, % vShortcuts[6,"file"]
Return
Shortcut7:
Run, % vShortcuts[7,"file"]
Return
Shortcut8:
Run, % vShortcuts[8,"file"]
Return
Shortcut9:
Run, % vShortcuts[9,"file"]
Return
Shortcut10:
Run, % vShortcuts[10,"file"]
Return
Shortcut11:
Run, % vShortcuts[11,"file"]
Return
Shortcut12:
Run, % vShortcuts[12,"file"]
Return
Shortcut13:
Run, % vShortcuts[13,"file"]
Return
Shortcut14:
Run, % vShortcuts[14,"file"]
Return
Shortcut15:
Run, % vShortcuts[15,"file"]
Return
Shortcut16:
Run, % vShortcuts[16,"file"]
Return
Shortcut17:
Run, % vShortcuts[17,"file"]
Return
Shortcut18:
Run, % vShortcuts[18,"file"]
Return
Shortcut19:
Run, % vShortcuts[19,"file"]
Return
Shortcut20:
Run, % vShortcuts[20,"file"]
Return
Shortcut21:
Run, % vShortcuts[21,"file"]
Return
Shortcut22:
Run, % vShortcuts[22,"file"]
Return
Shortcut23:
Run, % vShortcuts[23,"file"]
Return
Shortcut24:
Run, % vShortcuts[24,"file"]
Return
Shortcut25:
Run, % vShortcuts[25,"file"]
Return
Shortcut26:
Run, % vShortcuts[26,"file"]
Return
Shortcut27:
Run, % vShortcuts[27,"file"]
Return
Shortcut28:
Run, % vShortcuts[28,"file"]
Return
Shortcut29:
Run, % vShortcuts[29,"file"]
Return
Shortcut30:
Run, % vShortcuts[30,"file"]
Return
Shortcut31:
Run, % vShortcuts[31,"file"]
Return
Shortcut32:
Run, % vShortcuts[32,"file"]
Return
Shortcut33:
Run, % vShortcuts[33,"file"]
Return
Shortcut34:
Run, % vShortcuts[34,"file"]
Return
Shortcut35:
Run, % vShortcuts[35,"file"]
Return
Shortcut36:
Run, % vShortcuts[36,"file"]
Return
Shortcut37:
Run, % vShortcuts[37,"file"]
Return
Shortcut38:
Run, % vShortcuts[38,"file"]
Return
Shortcut39:
Run, % vShortcuts[39,"file"]
Return
Shortcut40:
Run, % vShortcuts[40,"file"]
Return
Shortcut41:
Run, % vShortcuts[41,"file"]
Return
Shortcut42:
Run, % vShortcuts[42,"file"]
Return
Shortcut43:
Run, % vShortcuts[43,"file"]
Return
Shortcut44:
Run, % vShortcuts[44,"file"]
Return
Shortcut45:
Run, % vShortcuts[45,"file"]
Return
Shortcut46:
Run, % vShortcuts[46,"file"]
Return
Shortcut47:
Run, % vShortcuts[47,"file"]
Return
Shortcut48:
Run, % vShortcuts[48,"file"]
Return
Shortcut49:
Run, % vShortcuts[49,"file"]
Return
Shortcut50:
Run, % vShortcuts[50,"file"]
Return

Add Comment

Please, Sign In to add comment