1

Тема: АХК: добавление в автозагрузку

Всем привет. Вопрос такой уважаемые знатоки:
Как в ахк сделать авто добавление этого ахк в автозагрузку при первом запуске
и удаление по нажатию "End". Если кто нибудь может сделать с меня плюха.

Если можно вопрос в вопросе задам.

АХК добавился в авто загрузку. После запуска Windows (любого с любым пользователем) программа открывается и как сделать так чтобы он себя из трея скрывала ?!

P.S Тема уже была но там как-то не понятно.

2 (изменено: stealzy, 2018-01-13 16:31:44)

Re: АХК: добавление в автозагрузку

; Menu Tray, NoIcon
Menu Tray, NoStandard
Menu Tray, Add, % AutoRun("MenuIni"), AutoRun
Menu Tray, Add, Выход, _Exit

IniRead FirstRun, % A_ScriptName ".ini", Pref, FirstRun, 1
If FirstRun
	IniWrite % AutoRun("On"), % A_ScriptName ".ini", Pref, FirstRun
Return

End::AutoRun("Off")
Esc::
_Exit:
	ExitApp

AutoRun(p:="Toggle") {
	static tAdd := "Добавить в автозагрузку", tRem := "Убрать из автозагрузки"
	ShortcutPath := A_StartupCommon "\" A_ScriptName ".lnk"

	If e:=FileExist(ShortcutPath) {
		FileGetShortcut % ShortcutPath, linkTarget,, linkParam
		If (linkTarget != A_ScriptFullPath)
			FileCreateShortcut % A_ScriptFullPath, % ShortcutPath, "%A_ScriptDir%"
			; If AHK not install - FileCreateShortcut "%A_AHKPath%", % ShortcutPath, "%A_ScriptDir%", "%A_ScriptFullPath%"
	}

	If (p = "MenuIni")
		Return e ? tRem : tAdd

	If e {
		If (p != "On")
			FileDelete % ShortcutPath
		Else
			ErrorLevel := true
	}
	Else {
		If (p != "Off")
			FileCreateShortcut % A_ScriptFullPath, % ShortcutPath, "%A_ScriptDir%"
		Else
			ErrorLevel := true
	}

	If Not ErrorLevel
		Menu Tray, Rename, % e ? tRem : tAdd, % e ? tAdd : tRem
}

3

Re: АХК: добавление в автозагрузку

А можешь пожалуйста описать что за что отвечает, и как скрыть иконку запускаемого приложения в трее. stealzy

4

Re: АХК: добавление в автозагрузку

Где иконка скрывается нашел, спасибо огромное. Можешь описать что за что отвечает, чтобы я понимал что и куда вставляю. stealzy

5 (изменено: stealzy, 2018-01-13 17:57:17)

Re: АХК: добавление в автозагрузку

Без меню в трее:

#NoTrayIcon
IniRead FirstRun, % A_ScriptName ".ini", Pref, FirstRun, 1
If FirstRun
	IniWrite % AutoRun("On"), % A_ScriptName ".ini", Pref, FirstRun
Run explorer %A_StartupCommon%
Return

End::AutoRun("Off")
Home::AutoRun("On")
Tab::AutoRun("Toggle")
Esc::ExitApp

AutoRun(p) {
	ShortcutPath := A_StartupCommon "\" A_ScriptName ".lnk"

	If (p = "On")
		FileCreateShortcut % A_ScriptFullPath, % ShortcutPath, "%A_ScriptDir%"
	Else If (p = "Off")
		FileDelete % ShortcutPath
	Else If (p = "Toggle")
		FileExist(ShortcutPath) ? AutoRun("Off") : AutoRun("On")
}