Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Эту утилиту я поставил еще до создание данного поста. Скачал утилиту, закинул в папку с программой, создал папку, как указана в скрипте. (utils/tcfs2/). Сейчас еще добавил 2 файла ДЛЛ в ту же папку, ничего не произошло. Что я делаю не так?Flasher писал(а):TCFS2Tools тоже нужно поставить.
Еще скинул ИНИ файл в ту же папку, теперь пишет ошибку "Функция не реализована 65551"Flasher писал(а):TCFS2Tools тоже нужно поставить.
С буфером могу привести некоторую редакцию. Только обсуждание пора бы уже в тот топик переносить.
Ридми можно взять из релиза на wincmd.ru.hjiapex писал(а):В архиве нет ридми файла
Хотя нет. Только заметил. Это разбивка по полям. Значением должен быть только 0.вписываю значение "TCFSTools.Autorun > 0" (без ковычек). Плагин, свойство, значение, все по дефолту? Правильно делаю?
то есть сначала нужно его установить как wdx? Как это сделать?Flasher писал(а):hjiapex
Да, как и расписано, это всё следует после установки его как wdx-плагина.
а куда вписывать TCFSTools.Autorun?Flasher писал(а):hjiapex
Хотя нет. Только заметил. Это разбивка по полям. Значением должен быть только 0.
Там некорректное описание. Имеется в виду плагин - tcfs2tools, cвойство - Autorun, операция - >, значение - 0.hjiapex писал(а):а куда вписывать TCFSTools.Autorun?
Именно.hjiapex писал(а):Как я понимаю, после регистрации wdx этого у меня появится строчка в выпадающем списке плагин - tcfs2tools, cвойство - Autorun?
Это те, что с IQ < 90? Я просто не особо секу в том, как отличать обычных от необычных.hjiapex писал(а):Я не понимаю, как обычные люди устанавливают все?
Эти? Пока только один обсуждается. Всё индивидуально. Во многих случаях всё это не требуется, поэтому расписывать для частных не нашлось потребности.hjiapex писал(а):Есть какой то четкий мануал по НАЧАЛЬНОЙ установке на ГОЛУЮ программу ваших плагинов, чтоб потом работали эти скрипты?
Dll выбирается в диалоге, вызываемом нажатием кнопки "Добавить" при стандартной установке плагина. Касаемо снятия фильтра по * я написал выше. Произвести замену на переменную среды нужно в пути к плагину в соотв. ключе секции ContentPlugins.hjiapex писал(а):куда там выбирать этот ДЛЛ и зачем в ИНИ прописывать %COMMANDER_PATH% если он и так там прописан в строчке cmd1=cd %COMMANDER_PATH%
Мне такая панель неизвестна. Скрипт можно перетянуть в пустую область панели инструментов либо с зажатым шифтом между её кнопками, где уже появится новая.hjiapex писал(а):передвинул скрипт на кнопку на панели быстрого доступа
Значит, что-то делается не так. Когда окно касаемо буфера появилось, было подтверждение?hjiapex писал(а):при запуске ничего не происходит
Код: Выделить всё
'=====================================================================
' Выделение в панелях одноимённых файлов и/или папок
' Параметры: "%P" "%T" <файлы/каталоги/всё: 1/2/3>
'======================= Путь к утилите TCFS2 ========================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'=====================================================================
With WScript.Arguments
If .Count < 3 Then MsgBox "Укажите все требуемые параметры!", 48,_
Space(13) & "Выделение элементов в панели" : WScript.Quit
P = .Item(0) : T = .Item(1) : C = .Item(2)
End With : Set FSO = CreateObject("Scripting.FileSystemObject")
Select Case C : Case 1 Tp = 192 : Case 2 Tp = 160 : Case 3 Tp = 224 : End Select
Set Dict = CreateObject("Scripting.Dictionary")
Set SHA = CreateObject("Shell.Application")
Set Items = SHA.NameSpace(P).Items : Items.Filter Tp, "*"
For Each F in Items : Dict.Add CStr(F), "" : Next
Set Items = SHA.NameSpace(T).Items : Items.Filter Tp, "*"
For Each F in Items
If Dict.Exists(CStr(F)) Then
If Tp <> 192 And F.IsFolder Then F = F & "\"
List = List & vbNewLine & F
End If
Next
If List <> "" Then
With CreateObject("WScript.Shell")
TempFile = CreateObject("Shell.Application")._
NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
FSO.OpenTextFile(TempFile, 2, True, -1).Write List
.Run "%comspec% /c clip < """ & TempFile & """",0,True
.Run TCFS2 & " /ef msg($0B,0) tcm(2033,0) send({TAB})"&_
" tcm(2033,0) send({TAB}) msg($0B,1) redraw()",,True
.Run "%comspec% /c type|clip",0
End With : FSO.DeleteFile TempFile, 1
End If