AutoHotkey: Locate in TC

Pressing Ctrl-F in Locate finds the selected file in TC. Original credits go to gbo and icfu

;Ctrl-F (Locate: finds selected file in TC)
$^f::
	;This works only with the english localization of Locate
	If not WinActive( "Locate", "Presets" )
	{
		Send ^f
		Return
	}

	sFileName := ""
	sPath := ""
	ControlGet sActiveRow, LIST, SELECTED, SysListView321
	StringSplit aRowElements, sActiveRow, %A_Tab%
	sFileName := aRowElements1
	sPath := aRowElements2

	if (sFileName != "")
	{
		Run "%COMMANDER_PATH%\Totalcmd.exe" /O /T "%sPath%"
		WinWaitActive ahk_class TTOTAL_CMD

		PostMessage 1075, 2915 ;call quicksearch box
		WinWaitActive ahk_class TQUICKSEARCH
		ControlSetText TTabEdit1, %sFileName%
		ControlSend TTabEdit1, {Down}{Esc}
	}
	Return

Back to AutoHotkey