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
Flasher



PostPosted: Mon Dec 07, 2015 07:00    Post subject: Reply with quote

ice_daemon
По большому счёту некий костыль сделать можно. Использовать, например, такой AHK-скрипт:
Code:
#NoTrayIcon
#KeyHistory 0
SetBatchLines,-1
#SingleInstance Force
#IfWinExist ahk_class TButtonBar1
#IfWinActive ahk_class TTOTAL_CMD

#If Control() = "TButtonBar1"
$+LButton::SendInput {RButton} & К
Return

#If Control() = "TButtonBar1"
$+RButton::
  ClipSaved := ClipboardAll
  Click Right
  SendInput К
  KeyWait К
  RunWait ..\VBS\RemoveButtonFromDefinedToolbars.vbs "%COMMANDER_PATH%\ButtonBars" Default.bar User.bar
  Clipboard := ClipSaved
Return

Control()
{ MouseGetPos,,,, Control
  Return Control
}
По Shift+ЛКМ кнопка копируется, по Shift+ПКМ кнопки удаляются. В 18-ой строке нужно установить верный относительный путь к vbs-скрипту
(.. - это общая папка для каталогов VBS и, например, AHK; если оба скрипта в одной папке, то достаточно имени) с верными параметрами. Остальное по старой схеме.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group