/
ToStartup.ahk
26 lines (25 loc) · 1.03 KB
/
ToStartup.ahk
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
; ToStartup(sFile,True) : add sFile to Startup
; ToStartup(sFile,False) : remove sFile from Startup
; ToStartup(sFile) returns True if File Shortcut exists in startup and False else
ToStartup(sFile,Toggle := ""){
sLnk := PathX(sFile, "Ext:.lnk").Full
;sLnk := RegExReplace(sFile,"\..*",".lnk")
sLnk := RegExReplace(sLnk,".*\\",A_Startup . "\")
; sLnk := PathX(sFile, "Dir:%A_Startup%").Full
If (Toggle="")
return FileExist(sLnk)
Else If (Toggle = 1) {
FileIcon := StrReplace(sFile,".ahk",".ico")
If FileExist(FileIcon)
FileCreateShortcut, %sFile%, %sLnk% ,,,,%FileIcon% ; will overwrite existing shortcut
Else
FileCreateShortcut, %sFile%, %sLnk% ; will overwrite existing shortcut
TrayTipAutoHide("Startup setting", "File ''" . RegExReplace(sLnk,".*\\","") . "'' was added to Startup!")
} Else If (Toggle=0) {
If FileExist(sLnk) {
FileDelete, %sLnk%
TrayTipAutoHide("Startup setting", "File ''" . RegExReplace(sLnk,".*\\","") . "'' was removed from Startup!")
}
}
Run, %A_Startup%
}