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: Сравнить в панелях списки каталогов 
Author Message
sa



PostPosted: Thu Aug 18, 2011 16:19    Post subject: Reply with quote

Чтобы принудительно не оказываться в итоге на правой панели:
1) тем, кто не опасается "нажимать" из скрипта клавишу TAB, можно заменить кусок кода (4 строки) между .LockTC True и .LockTC False на
Code:
  .SendCommand 2033
  .SendKeystroke "{TAB}"
  .SendCommand 2033
  .SendKeystroke "{TAB}"

2) пользователям утилиты TCFS2 (с модулем TCFS2Tools) можно заменить кусок кода (6 строк) между .SetTextToClip(S) и .SetTextToClip(T) на что-то вроде
Code:
  CreateObject("WScript.Shell").Exec("%COMMANDER_PATH%\Utils\TCFS2.exe /ef ""tcm(2033) tcm(4002) tcm(2033) tcm(4001), test(L_isActive) | tcm(2033) tcm(4001) tcm(2033) tcm(4002)""")
  Wscript.Sleep(50)
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group