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

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"

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