AutoHotkey: Locate in TC: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
(Added category AutoHotkey scripts) |
||
| (5 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
Pressing '''Ctrl-F''' in [http://locate32.webhop.org/ Locate] finds the selected file in TC. | Pressing '''Ctrl-F''' in [http://locate32.webhop.org/ Locate] finds the selected file in TC. | ||
Original credits go to [http://ghisler.ch/board/viewtopic.php?p=76027#76027 gbo] and [http://ghisler.ch/board/viewtopic.php?p=76034#76034 icfu] | |||
;Ctrl-F (Locate: finds selected file in TC) | ;Ctrl-F (Locate: finds selected file in TC) | ||
;This works only with the english localization of Locate | |||
;To make it work with your language, replace 'Presets' with the corresponding string! | |||
#IfWinActive Locate, Presets | |||
^f:: | |||
sFileName := "" | sFileName := "" | ||
sPath := "" | sPath := "" | ||
ControlGet | ControlGet sActiveRow, LIST, SELECTED, SysListView321, A | ||
StringSplit aRowElements, sActiveRow, %A_Tab% | StringSplit aRowElements, sActiveRow, %A_Tab% | ||
sFileName := aRowElements1 | sFileName := aRowElements1 | ||
sPath := aRowElements2 | sPath := aRowElements2 | ||
MsgBox %sActiveRow% | |||
if (sFileName != "") | if (sFileName != "") | ||
{ | { | ||
Run | Run "%COMMANDER_PATH%\Totalcmd.exe" /O /T "%sPath%" | ||
WinWaitActive | WinWaitActive ahk_class TTOTAL_CMD | ||
PostMessage | PostMessage 1075, 2915 ;call quicksearch box | ||
WinWaitActive ahk_class TQUICKSEARCH | WinWaitActive ahk_class TQUICKSEARCH | ||
ControlSetText TTabEdit1, %sFileName% | ControlSetText TTabEdit1, %sFileName% | ||
| Line 28: | Line 27: | ||
Return | Return | ||
{{translated|AutoHotkey: Locate im TC|AutoHotkey}} | |||
{{translated||AutoHotkey}} | |||
[[Category:AutoHotkey scripts|Locate in TC]] | |||
Latest revision as of 22:51, 1 June 2008
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)
;This works only with the english localization of Locate
;To make it work with your language, replace 'Presets' with the corresponding string!
#IfWinActive Locate, Presets
^f::
sFileName := ""
sPath := ""
ControlGet sActiveRow, LIST, SELECTED, SysListView321, A
StringSplit aRowElements, sActiveRow, %A_Tab%
sFileName := aRowElements1
sPath := aRowElements2
MsgBox %sActiveRow%
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
Back to AutoHotkey