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: Thu Nov 21, 2013 11:30    Post subject: Reply with quote

Примерчик с ожиданием закрытия окна поиска. Кнопка запускает поиск, максимум 10 секунд ждёт его окончания, ежесекундно пытаясь вызвать результаты поиска на панель и, в случае закрытия окна поиска в отведённое время, переводит панель в краткий режим:
Code:
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe /ef "tcm(501,1) delay(200) send(`{BKSP}+{TAB}{RIGHT}~(%ш%o){TAB 2}{UP}{ENTER}`, findwnd(`TFindFile`))
if(wait_for_s(findwnd(`TFindFile`)==0, 10), tcm(301,1))"
WCMICONS.DLL,47
Поиск файлов/каталогов не старше 1 часа с выводом на панель и переходом в краткий режим

0
-1
Для правильной работы кнопки нужно добавить в TCFS2.ini макрос:
Code:
wait_for_s=if(#2<=0, 0, if (#1, 1, 0*send(`~(%л%l)`, findwnd(`TFindFile`))*delay(1000)+wait_for_s(#1, #2-1)))
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group