AutoHotkey: AppendLnk option for packing (plus: Automatically assign name for archive)

Context sensitive extension of TC's suggested name in packing dialog (Alt-F5), emulating the missing AppendLnkPack option in TC. Successfully tested with TC 6.03a up to TC 7.50 rc1.

- Stays resident in memory, can be quit via its icon in the system tray.

- Gets invoked with Alt+F5, replacing TC's standard name suggestion.

- The originally suggested name can be restored by pressing Alt-Backspace once, if needed.

; // Resulting archive name:
; //   - if only 1 file selected -------------------- :  zip:filename.ext.zip (*.*.zip)
; //   - if multiple files /      same name  selected :  zip:filename.zip     (  *.zip)
; //   - if multiple files / different names selected :  zip:dirname.zip (as suggested by TC)

Related links:

• TC Forum discussion
• TCWiki: AHK: Automatically_assign_name_for_archive (related project)

	; ////////////////////////////////////////////////////////////////////////////
	; // TC_AppendLnkPack.ahk v1.2   -  (W) StatusQuo 2008-2009
	; //
	; // Context sensitive extension of TC's suggested name in packing dialog (Alt+F5),
	; // emulating the missing AppendLnkPack option,
	; // => http://ghisler.ch/board/viewtopic.php?p=120095#120095
	; //
	; // Option 2 ("multiple files, same name") inspired by
	; // http://www.ghisler.ch/wiki/index.php/AutoHotkey:_Automatically_assign_name_for_archive
	; //
	; ////////////////////////////////////////////////////////////////////////////
	; //
	; // Resulting archive name:
	; //   - only 1 file selected:            zip:filename.ext.zip
	; //   - multiple files, same name:       zip:filename.zip
	; //   - multiple files, different names: zip:dirname.zip (as suggested by TC)
	; //
	; ////////////////////////////////////////////////////////////////////////////

#SingleInstance force

; Menu, Tray, Icon, %SystemRoot%\system32\SHELL32.dll, 39, 1

	; end autoexec section here to prevent executing commands on startup without the defined keys being pressed;
	; the key definitions below work anyway
return

#IfWinActive ahk_class TTOTAL_CMD
!F5::
{
	; BlockInput, On	; deactivated, because of little benefit and possible probs in Win98/ME
	sClipSave = %Clipboard%
	IfWinNotExist,  ahk_class TTOTAL_CMD
		Goto, lExit
	IfWinNotActive, ahk_class TTOTAL_CMD,, WinActivate, ahk_class TTOTAL_CMD
	WinWaitActive,  ahk_class TTOTAL_CMD
		; save active control name (side of active panel);
		; while TC is inactive in background, nothing has the focus!
	ControlGetFocus, sLastFocus, ahk_class TTOTAL_CMD
		; check, if TC's main window is active
	If (not (InStr(sLastFocus, "TMyListBox")))
		Goto, lExit
	
		; 2017 - cm_CopyNamesToClip - copy selected file names to clipboard
	Clipboard=
	SendMessage, 1075, 2017
	ClipWait, 1
	if ErrorLevel
	{	Clipboard = %sClipSave%
		BlockInput, Off
		MsgBox, 49, TimeOut - %A_ScriptName%, - TimeOut - `n`nCould not get selected file names from TC`n(cm_CopyToClipboard).`n`nOK to use TC's name suggestion`,`nCancel to abort packing now., 5
		IfMsgBox, Cancel,  Goto, lExit
		IfMsgBox, Timeout, Goto, lExit
		ControlSend,  TPanel1, !{F5}
		Goto, lExit
	}
	
		;- parse selected file names
	 iLines = 0
	boUseName = 1
	 sFirstName =
	 sFirstFullName =
	Loop, Parse, Clipboard, `n, `r
	{	iLines += 1
			; cut path and extension
		SplitPath, A_LoopField, FullFileName, , , FileNameNoExt
		
			;- if no file name given, use dir name (this is the case with selected dirs)
		if (FullFileName = "")
		{	sTmp  = %A_LoopField%
			if not    (SubStr(sTmp, StrLen(sTmp), 1             ) != "\")	; backslash after dir name? => kill!
				sTmp := SubStr(sTmp, 1,            StrLen(sTmp)-1)
			StringGetPos, iTmp, sTmp, \, R	; more backslashes in front of dir name? => kill!
			if (iTmp >= 0)	; first position is nr. 0
				sTmp := SubStr(sTmp, iTmp+2)
			FullFileName  := sTmp

			StringGetPos, iTmp, sTmp, ., R	; contained extension? => kill!
			if (iTmp >= 0)	; first position is nr. 0
				sTmp := SubStr(sTmp, 1, iTmp)
			FileNameNoExt := sTmp
		}

			;- use first name for comparison
		if (sFirstName = "")
		{	sFirstName     = %FileNameNoExt%
			sFirstFullName = %FullFileName%
		} else {
				; check if there is a different file name
			if (FileNameNoExt <> sFirstName)
			{	boUseName = 0
				break
			}
		}
	}
	
	boTCUnicode=0

		;- multiple files selected:
	if (iLines > 1)
	{	ControlSend,  TPanel1, !{F5}
			;- different file names selected: => use dirname.zip
			; (change nothing at all, use TC's suggestion)
		IfEqual, boUseName,  0, Goto, lExit
			;- no file name found for pasting, so exit
		IfEqual, sFirstName,  , Goto, lError
			;- all files have same name:     => use filename.zip
		WinWait,       ahk_class TDLGZIP
		; ControlSend,  TEdit1, !{F5}%sFirstName%{HOME}+{END}
		ControlGetText, sFullPath, TEdit1	; <= TC 7.04a
		If (sFullPath = "")
		{
			boTCUnicode=1
			; ControlGetText, sFullPath, TAltEdit.UnicodeClass1	; >= TC 7.50 (beta 4)
			ControlGetText, sFullPath, TAltEdit1	; >= TC 7.50 (RC1)
		}
		sFullPath := ExchangeFN(sFullPath, sFirstName)
		If (boTCUnicode)
		{
			ControlSetText, TAltEdit1, %sFullPath%
			ControlSend,  TAltEdit1, {HOME}+{END}
		} else {
			ControlSetText, TEdit1, %sFullPath%
			ControlSend,  TEdit1, {HOME}+{END}
		}
		Goto, lExit
	}

		;- single file name selected:   => use filename.ext.zip
	ControlSend,  TPanel1, !{F5}
	WinWait,       ahk_class TDLGZIP
	; ControlSend,  TEdit1, !{F5}%sFirstFullName%{HOME}+{END}
	ControlGetText, sFullPath, TEdit1
	If (sFullPath = "")
	{
		boTCUnicode=1
		ControlGetText, sFullPath, TAltEdit1	; >= TC 7.50 (RC1)
	}
		;- no file name found for pasting, so exit
	IfEqual, sFirstFullName,  , Goto, lError
	sFullPath := ExchangeFN(sFullPath, sFirstFullName)
	If (boTCUnicode)
	{
		ControlSetText, TAltEdit1, %sFullPath%
		ControlSend,  TAltEdit1, {HOME}+{END}
	} else {
		ControlSetText, TEdit1, %sFullPath%
		ControlSend,  TEdit1, {HOME}+{END}
	}
	
lExit:
	BlockInput, Off
	Clipboard = %sClipSave%
	Return

lError:
	BlockInput, Off
	MsgBox, Error getting file name(s)`n`n- sFullPath = %sFullPath%`n- sFirstFullName = %sFirstFullName%`n- sFirstName = %sFirstName%
	Goto, lExit
}

Return

ExchangeFN(sEfnFullPath, sNewFN)
{
	StringGetPos,    i1, sEfnFullPath, \, R
	StringGetPos,    i2, sEfnFullPath, ., R
	StringLeft, sEfnOut, sEfnFullPath, i1
	Stringmid,  sEfnExt, sEfnFullPath, (i2 + 1)
	if StrLen(sEfnOut) > 0
		sEfnOut = %sEfnOut%\
	sEfnOut    = %sEfnOut%%sNewFN%%sEfnExt%
	Return %sEfnOut%
}
#IfWinActive

;

Back to AutoHotkey