Print Page - The Wavpack script, if closed by the user, does not delete the incomplete file.

Title: The Wavpack script, if closed by the user, does not delete the incomplete file.
Post by: Riky8 on 2019-05-03 16:28:18

Compress.vbs:

Code: [Select]

If (WScript.Arguments.Count <> 1) And (WScript.Arguments.Count <> 2) Then WScript.Quit 1
If WScript.Arguments.Count = 2 Then
	If WScript.Arguments(1) = "Hybrid" Then Hybrid = "-b320 -c " Else WScript.Quit 1
Else
	Hybrid = ""
End If
Set Shell = CreateObject("WScript.Shell")
If Shell.Run("%ComSpec% /c TASKLIST | FINDSTR wavpack.exe || TASKLIST | FINDSTR wvunpack.exe", 0, True) <> 0 Then
	ProgramFiles = Shell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")
	If ProgramFiles = "%ProgramFiles(x86)%" Then ProgramFiles = Shell.ExpandEnvironmentStrings("%ProgramFiles%")
	arg = WScript.Arguments(0)
	If InStr(arg, "*") > 0 Then
		s = "s"
		Message = " for one or more files!"
	Else
		s = ""
		Message = "!"
	End If
	If MsgBox("Do you want to preserve the source file" & s & "?", 4) = 7 Then Delete = "-d " Else Delete = ""
	If Shell.Run("%ComSpec% /C """"" & ProgramFiles & "\wavpack-5.1.0-x86\wavpack.exe"" -hh " & Hybrid & Delete & "-y """ & arg & """""", 8, True) = 0 Then MsgBox "Compression completed!" Else MsgBox "Compression failed" & Message
End If

Decompress.vbs:

Code: [Select]

If WScript.Arguments.Count <> 1 Then WScript.Quit 1
Set Shell = CreateObject("WScript.Shell")
If Shell.Run("%ComSpec% /c TASKLIST | FINDSTR wavpack.exe || TASKLIST | FINDSTR wvunpack.exe", 0, True) <> 0 Then
	ProgramFiles = Shell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")
	If ProgramFiles = "%ProgramFiles(x86)%" Then ProgramFiles = Shell.ExpandEnvironmentStrings("%ProgramFiles%")
	arg = WScript.Arguments(0)
	If InStr(arg, "*") > 0 Then
		s = "s"
		Message = " for one or more files!"
	Else
		s = ""
		Message = "!"
	End If
	If MsgBox("Do you want to preserve the source file" & s & "?", 4) = 7 Then Delete = "-d " Else Delete = ""
	If Shell.Run("%ComSpec% /c """"" & ProgramFiles & "\wavpack-5.1.0-x86\wvunpack.exe"" " & Delete & "-y """ & arg & """""", 8, True) = 0 Then MsgBox "Decompression completed!" Else MsgBox "Decompression failed" & Message
End If

Regedit:

Code: [Select]

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Applications\wavpack.exe]
"NoOpenWith"=""

[HKEY_CLASSES_ROOT\Applications\wvgain.exe]
"NoOpenWith"=""

[HKEY_CLASSES_ROOT\Applications\wvtag.exe]
"NoOpenWith"=""

[HKEY_CLASSES_ROOT\Applications\wvunpack.exe]
"NoOpenWith"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\1) Lossless]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Lossless"
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\1) Lossless\shell\1) Compress this file]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress this file"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\1) Lossless\shell\1) Compress this file\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" \"%1\""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\1) Lossless\shell\2) Compress all .caf]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all .caf"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\1) Lossless\shell\2) Compress all .caf\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *.caf"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\1) Lossless\shell\3) Compress all files]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all files"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\1) Lossless\shell\3) Compress all files\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\2) Hybrid]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Hybrid"
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\2) Hybrid\shell\1) Compress this file]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress this file"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\2) Hybrid\shell\1) Compress this file\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" \"%1\" Hybrid"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\2) Hybrid\shell\2) Compress all .caf]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all .caf"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\2) Hybrid\shell\2) Compress all .caf\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *.caf Hybrid"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\2) Hybrid\shell\3) Compress all files]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all files"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.caf\shell\WavPack\shell\2) Hybrid\shell\3) Compress all files\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" * Hybrid"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dff\shell\WavPack_Lossless]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dff\shell\WavPack_Lossless\shell\1) Compress this file]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress this file"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dff\shell\WavPack_Lossless\shell\1) Compress this file\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" \"%1\""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dff\shell\WavPack_Lossless\shell\2) Compress all .dff]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all .dff"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dff\shell\WavPack_Lossless\shell\2) Compress all .dff\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *.dff"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dff\shell\WavPack_Lossless\shell\3) Compress all files]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all files"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dff\shell\WavPack_Lossless\shell\3) Compress all files\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dsf\shell\WavPack_Lossless]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dsf\shell\WavPack_Lossless\shell\1) Compress this file]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress this file"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dsf\shell\WavPack_Lossless\shell\1) Compress this file\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" \"%1\""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dsf\shell\WavPack_Lossless\shell\2) Compress all .dsf]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all .dsf"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dsf\shell\WavPack_Lossless\shell\2) Compress all .dsf\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *.dsf"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dsf\shell\WavPack_Lossless\shell\3) Compress all files]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all files"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.dsf\shell\WavPack_Lossless\shell\3) Compress all files\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\1) Lossless]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Lossless"
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\1) Lossless\shell\1) Compress this file]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress this file"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\1) Lossless\shell\1) Compress this file\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" \"%1\""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\1) Lossless\shell\2) Compress all .w64]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all .w64"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\1) Lossless\shell\2) Compress all .w64\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *.w64"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\1) Lossless\shell\3) Compress all files]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all files"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\1) Lossless\shell\3) Compress all files\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\2) Hybrid]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Hybrid"
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\2) Hybrid\shell\1) Compress this file]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress this file"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\2) Hybrid\shell\1) Compress this file\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" \"%1\" Hybrid"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\2) Hybrid\shell\2) Compress all .w64]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all .w64"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\2) Hybrid\shell\2) Compress all .w64\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *.w64 Hybrid"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\2) Hybrid\shell\3) Compress all files]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all files"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.w64\shell\WavPack\shell\2) Hybrid\shell\3) Compress all files\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" * Hybrid"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\1) Lossless]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Lossless"
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\1) Lossless\shell\1) Compress this file]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress this file"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\1) Lossless\shell\1) Compress this file\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" \"%1\""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\1) Lossless\shell\2) Compress all .wav]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all .wav"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\1) Lossless\shell\2) Compress all .wav\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *.wav"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\1) Lossless\shell\3) Compress all files]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all files"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\1) Lossless\shell\3) Compress all files\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\2) Hybrid]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Hybrid"
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\2) Hybrid\shell\1) Compress this file]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress this file"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\2) Hybrid\shell\1) Compress this file\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" \"%1\" Hybrid"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\2) Hybrid\shell\2) Compress all .wav]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all .wav"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\2) Hybrid\shell\2) Compress all .wav\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" *.wav Hybrid"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\2) Hybrid\shell\3) Compress all files]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Compress all files"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wav\shell\WavPack\shell\2) Hybrid\shell\3) Compress all files\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Compress.vbs\" * Hybrid"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wv\shell\WavPack]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MultiSelectModel"="Single"
"Subcommands"=""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wv\shell\WavPack\shell\1) Decompress this file]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Decompress this file"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wv\shell\WavPack\shell\1) Decompress this file\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Decompress.vbs\" \"%1\""

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wv\shell\WavPack\shell\2) Decompress all files]
"Icon"="\"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\WavPack.ico\""
"MUIVerb"="Decompress all files"
"MultiSelectModel"="Single"

[HKEY_CLASSES_ROOT\SystemFileAssociations\.wv\shell\WavPack\shell\2) Decompress all files\command]
@="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Decompress.vbs\" *"

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\WavPack]
"DisplayIcon"="C:\\Program Files (x86)\\wavpack-5.1.0-x86\\wavpack.ico"
"DisplayName"="WavPack"
"DisplayVersion"="5.1.0"
"EstimatedSize"=dword:00000399
"InstallLocation"="C:\\Program Files (x86)\\wavpack-5.1.0-x86"
"NoModify"=dword:00000001
"NoRepair"=dword:00000001
"Publisher"="David Bryant"
"UninstallString"="WScript \"C:\\Program Files (x86)\\wavpack-5.1.0-x86\\Uninstall.vbs\""
"VersionMajor"=dword:00000005
"VersionMinor"=dword:00000001

HydrogenAudio

Lossless Audio Compression => WavPack => Topic started by: Riky8 on 2019-05-03 16:28:18