Сами колонки переключает, но названия колонок не переключает. Ну и еще, конечно переходит на следующий набор колонок. Не пойдет.Orion9 писал(а): А если попробовать команды:
Если Тотал один раз считывает ключ Titles из секции [CustomFields] и больше не перечитывает его в ходе своей работы, то всё - "труба". Это и есть то самое "страшное", что должно было рано или поздно случиться, и то почему так нужна команда повторного перечитывания всей конфигурации. Иначе придется просить Гислера каждый раз, чтобы он добавлял всё новые и новые команды для перечитывания тех или иных секций по мере возникающих потребностей, как это было сделано с расцветкой или перечитыванием значков, похоже.AkulaBig писал(а):При этом язык колонок меняется. А вот описание не меняется.
Ну он-же ответил, что такую команду сделать невозможно.Orion9 писал(а):так нужна команда повторного перечитывания всей конфигурации.
Вот найти-бы место, где он хранит эти названия. Никакие изменения названий колонок в инишнике не отражаются. При этом при переключении на английский и редактирования колонок. Эти русские названия записываются в английскую секцию.Orion9 писал(а):Если Тотал один раз считывает ключ Titles из секции [CustomFields] и больше не перечитывает его в ходе своей работы, то всё - "труба".
Прямо-таки невозможно?AkulaBig писал(а):Ну он-же ответил, что такую команду сделать невозможно.
Многие его просили.
Ничего страшного не случилось. Стандартные наборы колонок язык меняют, а значит и шансы есть, что переключение никогда не произойдет во время пользовательских колонок. А цикл, который у вас крутится, все-равно вам еще пригодится.AkulaBig писал(а):Я так и думал, что этим закончится... Но я оставлю уже отработанный алгоритм.
Посмотрю при первой возможности. Но использовать диалог, имхо, очень хорошее решение. Однако если вы используете MsgBox для этого, то, к сожалению, нужно помнить, что она не всегда срабатывает в TC x64. Сам с таким сталкивался.AkulaBig писал(а):Сделал перезагрузку ТС при смене языка. Можете посмотреть, что получилось.
Я думал имеется ввиду, что если он срабатывает в данном коде, то будет срабатывать всегда. То-есть есть вероятность, что он то сработает, то не сработает? А чем тогда MsgBox можно заменить? Я ведь задействовал его ответы.Orion9 писал(а):если вы используете MsgBox для этого, то, к сожалению, нужно помнить, что она не всегда срабатывает в TC x64. Сам с таким сталкивался.
Основная проблема не в колонках. Их хоть и криво, но обновить можно. А вот список колонок никак не обновишь. Да и далее надо будет и утильки переключать и т.д. Так что к необходимости перезагрузки я давно был готов. Просто пока получалось без этого, не задействовал перезагрузку.Orion9 писал(а):еще можно попробовать следить за наборами колонок, т.е. проверять их при переключении: если на панелях нет пользовательских наборов, можно и не запрашивать перезагрузку.
Да, я тоже так думал (и всё ещё думаю), но лучше уточнить у Loopback. Просто я ТС х64 не часто использую, чтобы можно было сказать с уверенностью.AkulaBig писал(а):Я думал имеется ввиду, что если он срабатывает в данном коде, то будет срабатывать всегда.
Наверное, вызовом из AutoIt. Но зачем спешить — ведь всё работает. Я у себя тоже проверил.AkulaBig писал(а):А чем тогда MsgBox можно заменить?
Моя ошибка. Речь действительно шла о названиях наборов и пунктах меню, а не о колонках. Вообще, довольно курьёзно смотрится, когда часть меню на русском, а часть на английском, но Гислера понять можно. Всё, что вводит пользователь и сохраняет в ТС через диалоговые окна, делается на одном языке, поэтому при переключении на другой язык, данным взяться больше неоткуда — они остаются "как есть". Выход один — делать дополнительный языковой файл и хранить в нём данные пользователя, начиная от меню "Запуск" и заканчивая наборами колонок. А пользователь пусть сам следить за содержимым этих файлов.AkulaBig писал(а):Основная проблема не в колонках.
Да ладно, зато размялись неплохо )) И скрипт теперь лежит у меня в коллекции и даже полезную роль выполняет.) Кстати, заметил, что вы добавили TCASwitcher к сборке. На мой взгляд, лучше стало. Главное ведь, ничего не пострадало и не потерялось, наоборот — пользователь приобрел возможность переключать ассоциации. Почему бы и дальше не развить эту тему и "дожать" IrfanView?AkulaBig писал(а):Как чувствовал, что подведет меня этот vbs.
Может, я чего-то не понимаю, но как это не поддерживает? Если vbs-файл сохранить в UTF-16, то юникодные символы в MsgBox отображаются нормально:AkulaBig писал(а): Помимо того, что его движок не установлен в оськах типа PE, он еще и юникод не поддерживает.
Код: Выделить всё
MsgBox "Michel Teló - Ai Se Eu Te Pego", vbOKOnly, "Unicode"Это понятно. Но тогда придется писать кучу кода, заменяющего отслеживание нажатия клавиш MsgBox. Сейчас-то я в Autorun это делаю и очень удобно. В общем пока работает, трогать не буду.Orion9 писал(а): Наверное, вызовом из AutoIt.
Теперь еще и на au3 можете в архив добавить. Будет тоже самое делатьOrion9 писал(а): И скрипт теперь лежит у меня в коллекции и даже полезную роль выполняет.)
Я решил не делать экзешники. Так что скрипт в текстовом виде выложен.
Ну вы объяснили, для чего это надо. Я согласился. Периодически я добавляю, что кто-нибудь просит, хотя сам я этим не пользуюсь. Главное, чтобы это не жирное было. Я ведь разобрался до конца с MPC и с его клоном. Оказывается даже при наличии возможности подключения внешних кодеков, в них все-равно есть вшитые кодеки. Соответственно надо смотреть, можно-ли на внешние LAV натравить внутренний плеер ТС. Тогда можно подумать о плагине. А так не мой вариант, делать масло масляным.Orion9 писал(а): заметил, что вы добавили TCASwitcher к сборке. На мой взгляд, лучше стало.
Я чего-то не понимаю, что-ли? У меня ведь и так у расширений, поддерживаемых Ирфаном разные иконки для каждого файла. Зачем ассоциировать каждое расширение отдельно?Orion9 писал(а): Почему бы и дальше не развить эту тему и "дожать" IrfanView?
Хм, у меня так и сделано. Чего-то я недопонимаю.Orion9 писал(а): Но такие "портабельные" ассоциации очень хорошо смотрятся на различных РЕ и чистых Windows, когда все значки и связи в ТС остаются на месте.
А теперь перекодируйте DirMenu.ini в юникод (иначе на англоязычной Винде будут крякозябры) и попробуйте обработать его скриптом на vbs. Увидите, что получится. То-есть vbs не работает с юникодными файлами. Это важно. Кстати, если вы скачали сборку, в которой еще нет скрипта на au3, выложите под кат DirMenu.ini, если не трудно. Я при написании скрипта на au3 испортил его. Восстановил, но возможно не полностью.Orion9 писал(а): Может, я чего-то не понимаю, но как это не поддерживает? Если vbs-файл сохранить в UTF-16, то юникодные символы в MsgBox отображаются нормально
Опечатка. Потому что на русском написано "презагрузить". Букву пропустил. Заметил, что странный перевод, но не до него было.Orion9 писал(а): Там у вас, кажется, забавная опечатка получилась с "preload", или это так задумано?
Имелось в виду, что можно перезагрузить процесс ТС из самого AutoIt-скрипта, но согласен, что:AkulaBig писал(а):Но тогда придется писать кучу кода, заменяющего отслеживание нажатия клавиш MsgBox.
Из самого Autorun это гораздо удобнее.AkulaBig писал(а):Сейчас-то я в Autorun это делаю и очень удобно.
Посмотрим )AkulaBig писал(а):Теперь еще и на au3 можете в архив добавить.
Я затронул эту тему только потому, что по ошибке подумал, что MPC-BE это что-то "небольшое, портабельное и то, что работает на внешних LAV-кодеках". Поскольку Гислер занялся своим плеером, который к счастью у него не так много места занимает, но которому также требуются внешние LAV-кодеки для обеспечения портабельности, то я и подумал, что альтернатива в виде плагина MPC-BE была бы достаточно интересной и перспективной идеей, а может быть даже и полноценной заменой внутреннему плееру. Ведь есть хороший плагин MMedia, которым я, кстати, до сих пор пользуюсь, но он уже "как бы" устарел и завязан на системные кодеки, а хотелось бы чего-то такого же, но только портабельного. В принципе, размер тут не помеха (каталог MPC-BE занимает ~ 40Mb), но кто станет считать лишние мегабайты, если вопрос заключается в полной работоспособности и полной портабельности. Кстати, сделал разметку mpciconlib.dll от MPC-BE, если кому-то будет интересно попробовать:AkulaBig писал(а):Я ведь разобрался до конца с MPC
У вас разные иконки, потому что ассоциации прописаны в системе. Если извлечь папку TotalCommanderPortable из вашего установщика на "голую" систему, никаких иконок IrfanView там, конечно, не будет. Можете провести такой тест: подмените файл %COMMANDER_PATH%\Plugins\wlx\TCIrfanView\IrfanView\Plugins\Icons.dll на любой другой, содержащий иконки, и посмотрите, как переключаются внутренние и внешние ассоциации. А еще лучше - скопируйте библиотеку Icons.dll в другое место и поменяйте к ней путь в файле Associations.ini из предыдущего поста - тогда вы точно увидете разницу.AkulaBig писал(а):У меня ведь и так у расширений, поддерживаемых Ирфаном разные иконки для каждого файла. Зачем ассоциировать каждое расширение отдельно?
Всё зависит от кодировки. Например, UTF-8 работать не будет, но UTF-16 LE должна:AkulaBig писал(а):А теперь перекодируйте DirMenu.ini в юникод
Код: Выделить всё
Text = CreateObject("Scripting.FileSystemObject").OpenTextFile(ini, 1, false, -1).ReadAll
With CreateObject("Scripting.FileSystemObject")
.OpenTextFile(ini, 2,, -1).Write Text
.OpenTextFile(ini, 1,, -1).Close
End WithНе совсем понял, что нужно, но вот весь подкаталог на всякий случай:AkulaBig писал(а):Кстати, если вы скачали сборку, в которой еще нет скрипта на au3, выложите под кат DirMenu.ini, если не трудно.
Это все понятно. Но загонять перезагрузку в скрипт смены языка не самое красивое решение. Значит придется писать скрипт-прослойку между Autorun и скриптом смены языка. Жутко все это некрасиво.Orion9 писал(а):Имелось в виду, что можно перезагрузить процесс ТС из самого AutoIt-скрипта
Теперь понял. Вы не изучали настройки Ирфана. Я вам выше писал, что в Ирфан встроена поддержка библиотеки иконок. Icons.dll является плагином Ирфана. И, скорей всего, будет работать любая с таким-же название и содержанием. Конечно если у Ирфана нет проверки на легальность. Так что иконки у меня именно на внутренних ассоциациях и будут отображаться на любой системе. Что неоднократно проверено.Orion9 писал(а): У вас разные иконки, потому что ассоциации прописаны в системе. Если извлечь папку TotalCommanderPortable из вашего установщика на "голую" систему, никаких иконок IrfanView там, конечно, не будет.
Не изучил внимательно параметры OpenTextFile. Действительно работает.Orion9 писал(а): Всё зависит от кодировки. OpenTextFile(ini, 1, false, -1)
Спасибо. Можно удалять.Orion9 писал(а): Удалю, как он вам перестанет быть нужным.
Настроек Ирфана я действительно не изучал, отрицать не стану. Но распаковав вашу сборку, никакие значки у меня не сопоставились (что было ожидаемо), не смотря на то, что внутренняя ассоциация открывает именно IrfanView, а не системное приложение. Переключение внутренних и внешних ассоциаций, в таком случае, переключает только связи, не значки. Но если сделать полное сопоставление значков в секции [Associations], то переключаться будут и связи, и значки. Хотя я ещё поизучаю этот вопрос, когда найду время. А пока еще одна эксперементальная кнопка:AkulaBig писал(а):Теперь понял. Вы не изучали настройки Ирфана.
Код: Выделить всё
Global DirVbs = %COMMANDER_PATH% & "\Scripts\Vbs"
Global ExeAkel = %COMMANDER_PATH% & "\Utilites\AkelPad\AkelPad.exe"
RegisterCommand 62009 "CreateSearchesExt"
RegisterCommand 62010 "SearchesItem"
Global aSearchesMenu = List(), aSearchesExt = List(), aSearchesTemp = List()
Func CreateSearchesExt(lParam)
Local out, key, val, ini = %COMMANDER_PATH% & "\Ini\Searches.ini", j
If Not FileExist(ini) Then
ShowHint("Не найден " & ini)
Return
EndIf
ProcessExecGetOutput out %COMSPEC% '/c type "%ini%"'
Local aFile = List()
aFile.Text = out
aSearchesExt.Count = 0
aSearchesMenu.Count = 0
For j = 0 To aFile.Count - 1
If StrPos(aFile[j], "SearchFor") > 0 Then
key = StrPart(aFile[j], "=", 1)
val = StrPart(aFile[j], "=", 2)
If StrPos(val, ".") > 0 Then
aSearchesExt.Add(val)
aSearchesMenu.Add(StrPart(key, "_", 1))
EndIf
EndIf
Next
Free(aFile)
#ShowPopupMenu /D /F "CreateSearchesMenu"
CreateSearchesBar()
EndFunc
Func CreateSearchesBar()
Local txt, bar = %COMMANDER_PATH% & "\Bars\Auto_Searches.bar", j
txt = "[Buttonbar]"
txt &= auCRLF & "Buttoncount=" & aSearchesMenu.Count
For j = 0 To aSearchesMenu.Count - 1
txt &= auCRLF & "Cmd" & j+1 & "=cm_SearchesMenuItem " & j+1
#txt &= auCRLF & "Param" & j+1 & "=" & j+1
txt &= auCRLF & "Menu" & j+1 & "=" & aSearchesMenu[j]
txt &= auCRLF & "Button" & j+1 & "=wcmicons.dll,14"
Next
ClipPut(txt)
If SaveClipToFile(bar) Then ShowPopupMenu /D %bar%
EndFunc
Func CreateSearchesMenu()
Local i, txt
For i = 0 To aSearchesMenu.Count - 1
txt = txt & 'MENUITEM "' & aSearchesMenu[i] & '\t' & i & '", 100000 ' & i & auCRLF
Next
Return txt
EndFunc
Func SearchesItem(lParam)
Local s, j, k = 1
s = StrReplace(aSearchesExt[lParam-1], ";", " ")
s = StrReplace(s, " ", " ")
s = StrReplace(s, " ", auCRLF)
aSearchesTemp.Text = s
If IsPressed(0x5B) Then
s = ""
For j = 0 To aSearchesTemp.Count - 1
s &= aSearchesTemp[j] & " "
k += 1
If k > 30 Then
k = 1
s &= auCRLF
EndIf
Next
ShowHint(s)
Return
EndIf
If IsPressed(0x11) Then
If IsPressed(0x10) Then
s = ""
For j = 0 To aSearchesTemp.Count - 1
If StrPos(aSearchesTemp[j], "|") > 0 Then Break
x = StrReplace(aSearchesTemp[j], "*", "file" & j)
x = StrReplace(x, "?", "x")
s &= "echo " & j & " >" & x & auCRLF
Next
EndIf
ClipPut(s)
If WinFind(0, "AkelPad4") > 0 Then
ShellExec /SW_SHOWNORMAL %ExeAkel% '/Command(4101) /Command(4155) /Call("Scripts::Main", 1, "GoHome.vbs")'
Else
ShellExec /SW_SHOWNORMAL %ExeAkel% '/Command(4155) /Call("Scripts::Main", 1, "GoHome.vbs")'
Endif
Return
EndIf
ShowPopupMenu /D /F "CreateSearchExtMenu"
EndFunc
Func CreateSearchExtMenu()
Local i, txt
For i = 0 To aSearchesTemp.Count - 1
txt = txt & 'MENUITEM "' & aSearchesTemp[i] & '\t' & i & '", 100000 ' & i & auCRLF
Next
Return txt
EndFunc
Func SaveClipToFile(Filename)
# путь к скрипту
# глобальная переменная DirVbs
Local vbsp = DirVbs
Local vbsf = vbsp & "Clip.vbs"
If Not FileExist(vbsf) Then
ShowDarkHint("Скрипт не найден " & vbsf, 0)
Return 0
EndIf
ShellExec /SW_HIDE /WAIT:2000 %vbsf% '"%Filename%"' %vbsp%
Return 1
EndFunc
Код: Выделить всё
[________Autorun_________]=0
cm_SearchesMenuItem=62010;Searches Ini MenuКод: Выделить всё
echo 0 >file0.aac
echo 1 >file1.ac3
echo 2 >file2.aif
echo 3 >file3.aiff
echo 4 >file4.aifc
echo 5 >file5.afc
echo 6 >file6.ape
echo 7 >file7.au
echo 8 >file8.snd
echo 9 >file9.cda
echo 10 >file10.dsf
echo 11 >file11.dts
echo 12 >file12.dtswav
echo 13 >file13.dtshd
echo 14 >file14.dtsma
echo 15 >file15.eac3
echo 16 >file16.flac
echo 17 >file17.fla
echo 18 >file18.m1a
echo 19 >file19.m2a
echo 20 >file20.mka
echo 21 >file21.mpa
echo 22 >file22.mp1
echo 23 >file23.mp2
echo 24 >file24.mp3
echo 25 >file25.mp4
echo 26 >file26.m4a
echo 27 >file27.m4b
echo 28 >file28.m4r
echo 29 >file29.mod
echo 30 >file30.mpc
Проверил в песочнице, да. Не все так просто. Надо нажать на ассоциировать файлы. Только после этого значки появляются. И в Проводнике тоже. Получается это внешняя ассоциация. Убедили, что надо каждое расширение ассоциировать.Orion9 писал(а): распаковав вашу сборку, никакие значки у меня не сопоставились
Код: Выделить всё
Func SaveClipToFile(Filename)
# путь к скрипту
# глобальная переменная DirVbs
Local vbsp = DirVbs
Local vbsf = vbsp & "Clip.vbs"
If Not FileExist(vbsf) Then
ShowDarkHint("Скрипт не найден " & vbsf, 0)
Return 0
EndIf
ShellExec /SW_HIDE /WAIT:2000 %vbsf% '"%Filename%"' %vbsp%
Return 1
EndFunc
Func ShowDarkHint(DarkHint, HintSleep = 1000)
# формат подсказки
SetHintParam("ShowHint", "Font", 10, "Arial")
SetHintParam("ShowHint", "BackColor", 0x001C1C1C)
SetHintParam("ShowHint", "Text", 0xFFFFFF)
ShowHint(DarkHint)
If HintSleep > 0 Then
Sleep(HintSleep)
WinSetState(23)
Else
Sleep(100)
Endif
SetHintParam("ShowHint", "Reload")
EndFunc
Код: Выделить всё
If WScript.Arguments.Count = 0 Then
FileName = "Clip.txt"
Else
FileName = WScript.Arguments(0)
End If
Set objHTML = CreateObject("htmlfile")
ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(FileName, 2, true)
objFile.WriteLine ClipboardText
objFile.Close