Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое 
Author Message
sa



PostPosted: Fri Mar 21, 2014 10:13    Post subject: Reply with quote

Имеется такая кнопка:
Code:
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe
/ef "tcm(524) tcm(2017) send(`{TAB}`) delay(200) tcm(540) tcm(501,1) delay(200) send(`({BKSP}^V{ENTER})`, findwnd(`TFindFile`)) loop(if(findwnd(`TFindFile`)==0, 0, 0*sendmsg(findwnd(`TFindFile`), $104, $12, $1, 1)*sendmsg(findwnd(`TFindFile`), $104, $30, $1, 1)*delay(1000)+1)) if(findwnd(`TFindFile`)==0, tcm(3302) + send(`{TAB}`) + delay(200) + tcm(3101,1) + delay(200) + send(`%%о%%ц%%o%%p`, findwnd(`TInpComboDlg`)))"
WCMICONS.DLL,14
Копировать файл в папку/подпапки целевой панели с одноимённым файлом (вывод результатов поиска на панель по Alt-0 или "ручками")


-1
Работает, но не устраивает, в частности, что портит буфер из-за использования cm_CopyNamesToClip (2017) с последующей вставкой по Ctrl+V. Как поизящней передать имя файла под курсором в поле “Искать файлы:” в диалоге поиска?
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group