Плагины для Total Commander (часть 4) - [114] :: Программы

На досуге вернулся к старому вопросу, которым озадачивался более четырёх лет назад -
http://forum.ru-board.com/topic.cgi?forum=5&topic=48988&start=2140#21

В связи с миграцией на ТС 11.56 x64 решил всё таки сделать костыль для AmpView. Исходные данные:
- AmpView.wlx64 - 3.5.0.0
- AmpView.exe - 3.5.3.0
Для воспроизведения midi и kar подключен банк WeedsGM3.sf2 в файле \WLX\AmpView\Config\default.ini через абсолютный путь:
SoundFontPath=c:\TotalCommander\Plugins\WLX\AmpView\WeedsGM3.sf2

К сожалению, привязка к абсолютному пути лишает настроенный ТС портативности, а плагин не понимает переменную %COMMANDER_PATH% в своём ini-файле.
Указание же относительного пути вида
SoundFontPath=.\WeedsGM3.sf2
или
SoundFontPath=.\Plugins\WLX\AmpView\WeedsGM3.sf2
не работает корректно и вот почему -
когда при просмотре по F3 или Ctrl+Q вызывается AmpView.wlx64 и ТС передаёт ему строку с полным путём к файлу для проигрывания, плагин AmpView.wlx64 запускает из своего каталога плеер AmpView.exe.
Но при этом для AmpView.exe в качестве текущего каталога (Current directory) оказывается тот, в котором лежит файл для проигрывания.
Это наглядно видно на приложенном скриншоте Process Explorer'а слева.
Разумеется, построить относительный путь .\Plugins\WLX\AmpView\WeedsGM3.sf2 от такого текущего каталога невозможно и загрузка банка WeedsGM3.sf2 не происходит. Как итог, midi и kar не воспроизводятся.

В качестве решения нужно для AmpView.exe в момент его запуска явным образом задавать текущий каталог так, чтобы от него можно было корректно построить относительный путь .\Plugins\WLX\AmpView\WeedsGM3.sf2 или .\WeedsGM3.sf2.

Я решил задавать текущий каталог для AmpView.exe как "%COMMANDER_PATH%\Plugins\WLX\AmpView" с помощью vb-скрипта:
Код:

Set WshShell = CreateObject("WScript.Shell")
' Входные аргументы, переданные скрипту.
Set objArgs = WScript.Arguments
' Массив для входных аргументов.
Set objList = CreateObject("System.Collections.ArrayList")
' Если нет входных аргументов, то показать окно About.
If objArgs.Count = 0 Then
MsgBox "Script for AmpView Plugin.", vbInformation, "About"
WScript.Quit
End If
' Входные аргументы objArgs() заносим в массив objList()
For i = 0 To objArgs.Count - 1
objList.Add(objArgs(i))
Next
' Если первый аргумент равен "\n", то удаляем его.
If objArgs(0) = "\n" Then
objList.RemoveAt(0)
End If
' Сменить текущий каталог на "%COMMANDER_PATH%\Plugins\WLX\AmpView"
' и запустить AmpView.exe, передав ему первый аргумент из массива.
WshShell.Run "cmd.exe /c cd /d ""%COMMANDER_PATH%\Plugins\WLX\AmpView""&&.\AmpView.exe " & Chr(34) & objList(0) & Chr(34), 0, False

Содержимое скрипта сохранил в файле AmpView.vbs и положил рядом с AmpView.exe. Далее hex-редактором изменил строку запуска с \AmpView.exe на \AmpView.vbs в файле AmpView.wlx64.

Теперь при воспроизведении midi и kar всегда корректно загружается WeedsGM3.sf2 по относительному пути, прописанном в ini-файле плагина AmpView.wlx64. Это видно на скриншоте справа.

Скрипт запускается без показа окна консоли cmd.exe, фокус окна TC и Листера не теряется при просмотре по F3 и Ctrl+Q.

P.S. Почему именно AmpView? Просто привык к нему, а 1by1 как-то не зашёл.

----------
"... Зовёт, зовёт в дорогу далёкий Млечный Путь ..."

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115