Total Commander :: Как создать reg файл для прописывание звуковой схемы тотала?

Как создать reg файл для прописывание звуковой схемы тотала?

#

through

#

[^/[Print]\]
Goto page 1, 2, 3, 4 Next :| |:
Total Commander -> Общие вопросы

#1: Как создать reg файл для прописывание звуковой схемы тотала? Author: TheAleksandr,

Posted: Sat Sep 08, 2018 02:10
—
Всем привет, подскажите пожалуйста как создать файл реестра что бы автоматом прописать звуковую схему для действий в тотале на вин 8.1 х64
Наподобие такого http://wincmd.ru/plugring/Sounds_Rus_WC3_Fire.html

!	CaptainFlint:
	Оживил ссылку.

#2: Author: Flasher, Location: Москва

Posted: Sat Sep 08, 2018 02:29
—
Там в основном схемы с одноимёнками. Нет смысла создавать новый reg. Один раз зарегистрировал, потом при неоходимости только копируются/распаковываются *.wav в %WINDIR%\Media с автозаменой.

#3: Author: TheAleksandr,

Posted: Sat Sep 08, 2018 02:32
—
У меня не получается зарегистрировать тем файликом который там приложен. Файлы не прописываются, может в вин 8.1 пути изменились, или разрядность тоже как то влияет?

#4: Author: Flasher, Location: Москва

Posted: Sat Sep 08, 2018 02:47
—
Не знаю, как на 8-ке. Из комстроки ТС выполните:

Code:

reg query HKEY_CURRENT_USER\AppEvents /s|clip

Содержимое буфера сюда по [cut][/cut], посмотрим разницу.

#5: Author: TheAleksandr,

Posted: Sat Sep 08, 2018 02:55
—

Hidden text

#6: Author: Flasher, Location: Москва

Posted: Sat Sep 08, 2018 04:20
—

RegisterSounds.reg

Code:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\AppEvents\EventLabels\WincmdConnected]
@="FTP-соединение установлено"

[HKEY_CURRENT_USER\AppEvents\EventLabels\WincmdCopyComplete]
@="Копирование/перемещение завершено"

[HKEY_CURRENT_USER\AppEvents\EventLabels\WincmdDeleteComplete]
@="Удаление завершено"

[HKEY_CURRENT_USER\AppEvents\EventLabels\WincmdPackComplete]
@="Упаковка завершена"

[HKEY_CURRENT_USER\AppEvents\EventLabels\WincmdSearchComplete]
@="Поиск завершён"

[HKEY_CURRENT_USER\AppEvents\EventLabels\WincmdTransferComplete]
@="Передача завершена"

[HKEY_CURRENT_USER\AppEvents\EventLabels\WincmdUnpackComplete]
@="Распаковка завершена"

[HKEY_CURRENT_USER\AppEvents\Schemes]
@="Wincmd"

[HKEY_CURRENT_USER\AppEvents\Schemes\Names\Wincmd]
@="Total Commander"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd]
@="Wincmd"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdConnected\.current]
@="C:\\Windows\\Media\\TotalCmd\\TC Connected To FTP.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdConnected\TotalCmd]
@="C:\\Windows\\Media\\TotalCmd\\TC Connected To FTP.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdCopyComplete\.current]
@="C:\\Windows\\Media\\TotalCmd\\TC Operation Complete.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdCopyComplete\TotalCmd]
@="C:\\Windows\\Media\\TotalCmd\\TC Operation Complete.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdDeleteComplete\.current]
@="C:\\Windows\\Media\\TotalCmd\\TC Delete Complete.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdDeleteComplete\TotalCmd]
@="C:\\Windows\\Media\\TotalCmd\\TC Delete Complete.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdPackComplete\.current]
@="C:\\Windows\\Media\\TotalCmd\\TC Pack Complete.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdPackComplete\TotalCmd]
@="C:\\Windows\\Media\\TotalCmd\\TC Pack Complete.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdSearchComplete\.current]
@="C:\\Windows\\Media\\TotalCmd\\TC Search Complete.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdSearchComplete\TotalCmd]
@="C:\\Windows\\Media\\TotalCmd\\TC Search Complete.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdTransferComplete\.current]
@="C:\\Windows\\Media\\TotalCmd\\TC Transfer Complete.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdTransferComplete\TotalCmd]
@="C:\\Windows\\Media\\TotalCmd\\TC Transfer Complete.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdUnpackComplete\.current]
@="C:\\Windows\\Media\\TotalCmd\\TC Unpack Complete.wav"

[HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Wincmd\WincmdUnpackComplete\TotalCmd]
@="C:\\Windows\\Media\\TotalCmd\\TC Unpack Complete.wav"

*.wav кидать в C:\Windows\Media\TotalCmd\.
С regedit /s RegisterSounds.reg запуск.

А вот VBS-автоустановщик из zip-а стандартной схемы (памятка):

InstallTCSounds.vbs

Code:

'==================== VBS =====================
' Установить звуковую zip-схему Тotal Commander

' Параметр: "<Путь к zip>"
' Примеры: %P%N | C:\TC\Sounds\TC_Sounds.zip
'========================= Автор: Flasher © ===

Option Explicit: Dim ZIP, Items, Path, MP,_
T, C, Verbs, Names, Hive, i, Verb, FTP, k
ZIP = WSH.Arguments(0)
With CreateObject("Shell.Application")
If LCase(Right(ZIP, 4)) <> ".zip" Then Msg
Set Items = .NameSpace(ZIP).Items
Items.Filter 8256, "*.wav"
If Items.Count = 0 Then Msg
.NameSpace(36).NewFolder "Media\TotalCmd"
With .NameSpace(36).ParseName("Media\TotalCmd")
.GetFolder.CopyHere Items, 4116 : Path = .Path & "\"
End With
End With

T = "Wincmd" : C = "Complete" : Hive = "HKCU\AppEvents\Schemes\"
Sub Msg : MsgBox "Выберите zip с *.wav!", 4144 : WSH.Quit : End Sub
Verbs = Split("Operation Delete Pack Search Transfer Unpack Connected")
Names = Array("Копирование/перемещение завершено", "Удаление завершено", "Упаковка завершена", _
"Поиск завершён", "Передача завершена", "Распаковка завершена", "FTP-соединение установлено")
With New RegExp
.Pattern = "\\[^\\]+[\-$]([^\$]+)\)?\.zip$" : .IgnoreCase = 1
If .Test(ZIP) Then ZIP = " " & .Execute(ZIP)(0).SubMatches(0) Else ZIP = ""
End With

Set MP = CreateObject("MediaPlayer.MediaPlayer")
With CreateObject("WScript.Shell")
.RegWrite Hive, T
.RegWrite Hive & "Apps\" &T& "\", T
.RegWrite Hive & "Names\" &T& "\", "Total Commander"
For i = 0 To UBound(Verbs)
If i = 0 Then Verb = "Copy" Else Verb = Verbs(i)
If i = UBound(Verbs) Then FTP = " To FTP" : C = ""
.RegWrite "HKCU\AppEvents\EventLabels\" & T & Verb & C & "\", Names(i)
For Each k In Array(T, ".current")
.RegWrite Hive & "Apps\" &T& "\" &T& Verb & C & "\" &k& "\", Path & "TC " & Verbs(i) & RTrim(" " & C) & FTP & ".wav"
Next
Next
MP.Open Path & "TC Operation Complete.wav" : MP.Volume = 0 : MP.Play
.Popup "Звуковая схема" & ZIP & " установлена!", 1.4, " Total Commander", 4144
End With
While MP.PlayState : WSH.Sleep 200 : Wend : Set MP = Nothing

Last edited by Flasher on Wed Sep 12, 2018 20:08; edited 6 times in total

#7: Author: Вахмурка, Location: Большая деревня Москва

Posted: Sat Sep 08, 2018 09:29
—
2TheAleksandr
Сюда глянь. И всю ветку тоже просмотреть можно...

#8: Author: TheAleksandr,

Posted: Tue Sep 11, 2018 22:00
—

Flasher wrote:

RegisterSounds.reg
*.wav кидать в C:\Windows\Media\TotalCmd\.
С regedit /s RegisterSounds.reg запуск.

А вот VBS-автоустановщик из zip-а стандартной схемы (памятка):
InstallTCSounds.vbs

Помогите пожалуйста разобраться.
Через reg файл звуки так и не появились.
С .vbs не смог разобраться. Все скопировал в текстовик, обозвал InstallTCSounds.vbs
F4 - заменил строчку ' Параметр: "<Путь к zip>" на ' Параметр: "c:\Downloads\321\TotalCmd.zip"
Запускаю, он мне ошибку выдает
строка 10
символ 1
ошибка индекс выходит за пределы допустимого диапазона
код 800А0009

#9: Author: Flasher, Location: Москва

Posted: Tue Sep 11, 2018 22:19
—

TheAleksandr wrote:

Через reg файл звуки так и не появились.

rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2 из комстроки. Какая схема стоит?

TheAleksandr wrote:

С .vbs не смог разобраться

Что-то помешало в скобках ссылку нажать?

#10: Author: TheAleksandr,

Posted: Tue Sep 11, 2018 22:30
—

Flasher wrote:

В mmsys.cpl какая схема стоит?

Total Commander (изменена), но в самом разделе Total Commander не к одной операции звук не присвоился.

Flasher wrote:

Что-то помешало в скобках ссылку нажать?

я несколько раз перечитал, но видать глуповат Neutral

#11: Author: Flasher, Location: Москва

Posted: Tue Sep 11, 2018 22:41
—

TheAleksandr wrote:

не к одной операции звук не присвоился.

Должно быть так.

TheAleksandr wrote:

я несколько раз перечитал

Сомнительно.

Quote:

Описание работы скрипта выносится в его шапку (верхние строки комментариев).

Исправлять комментарии никто не предлагал. Внимательно 3 и 5 пункты.
%P%N — это параметр для второго поля кнопки. Курсор ставить на zip.

#12: Author: TheAleksandr,

Posted: Tue Sep 11, 2018 23:26
—
Flasher

Но у меня без звуков, так

Flasher wrote:

Исправлять комментарии никто не предлагал. Внимательно 3 и 5 пункты.
%P%N — это параметр для второго поля кнопки. Курсор ставить на zip.

Если эта кнопка должна просто копировать содержимое выбранного архива в директорию c:\Windows\Media\TotalCmd\ с созданием папки, то получилось разобраться. Копирование произошло, а звуки так и не зарегистрировались.

Last edited by TheAleksandr on Tue Sep 11, 2018 23:56; edited 1 time in total

#13: Author: Flasher, Location: Москва

Posted: Tue Sep 11, 2018 23:42
—

TheAleksandr wrote:

Если эта кнопка должна просто копировать

Не просто, а с регистрацией.

TheAleksandr wrote:

Но у меня без звуков, так

И после скрипта тоже?

#14: Author: TheAleksandr,

Posted: Wed Sep 12, 2018 00:25
—

Flasher wrote:

И после скрипта тоже?

Если представить что окно звуков можно растянуть, у меня сейчас такая ситуация.
Там где TotalCmd действия почему то дублировались, звуки назначены, но в ТС не воспроизводятся. ТС связан с пунктом Total Commander, пробовал в нем вручную назначить звук на операцию, все работает.

#15: Author: Flasher, Location: Москва

Posted: Wed Sep 12, 2018 02:04
—
TheAleksandr
Понял свою ошибку. Скрипт исправил.
Перед его выполнением надо выполнить:

DeleteOldRegSounds.reg

Total Commander -> Общие вопросы

output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page 1, 2, 3, 4 Next :| |: Page 1 of 4