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: Переход в каталог а-ля Opera 
Author Message
Flasher



PostPosted: Sun Jun 13, 2010 15:37    Post subject: Reply with quote

DoctorIkari
Это объясняется тем, что команда TCS.SendKeystroke вводит не заданные буквы, в имитирует нажатия заданных клавиш вне зависимости от раскладки. Поэтому "cd" и прописывается как "св". Я, честно говоря, не понимаю, зачем, находясь в Тотале, нужно копировать отдельно путь самому. Было бы логичней открывать активную папку в новой вкладке, либо в новой вкладке другой панели. У меня момент с "св" решается автокорректором текста/раскладки (в сети таких несколько). Только, чтобы он успел изменить текст на нужный, желательно перед TCS.SendKeystroke "{ENTER}" поставить TCS.Pause = 400 , ну или больше. Например, как у меня
Code:
'Открыть новую вкладку с путём активного каталога
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
TCS.SendCommand "cm_CopySrcPathToClip"
TCS.SendCommand "cm_OpenNewTab"
TCS.SendCommand "cm_FocusCmdLine"
TCS.SendKeystroke "cd " & TCS.GetTextFromClip
TCS.Pause = 400
TCS.SendKeystroke "{ENTER}"
TCS.ClearClip
Set TCS = Nothing
Wscript.Quit
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group