Beyond Compare 5.0.2.30045 绿色批处理 - 无忧启动论坛

@ECHO Off
PUSHD %~DP0
>NUL 2>&1 REG.exe query "HKU\S-1-5-19" || (
ECHO SET UAC = CreateObject^("Shell.Application"^) > "%TEMP%\Getadmin.vbs"
ECHO UAC.ShellExecute "%~f0", "%1", "", "runas", 1 >> "%TEMP%\Getadmin.vbs"
"%TEMP%\Getadmin.vbs"
DEL /f /q "%TEMP%\Getadmin.vbs" 2>NUL
Exit /b
)
TITLE Beyond Compare 5 安装/卸载
:Menu
SET Options=
ECHO.&ECHO. 1.添加资源管理器右键菜单项
ECHO.&ECHO. 2.移除资源管理器右键菜单项
ECHO.&ECHO. 3.退出
ECHO.
SET /P Options=[92m请输入选择项目序号并按回车确认：[0m
IF /I "%Options%"=="1" GOTO AddMenu
IF /I "%Options%"=="2" GOTO RemoveMenu
IF /I "%Options%"=="3" GOTO OUT
ECHO.&ECHO.序号无效，请重新输入！
PING -n 2 127.1>NUL
CLS
GOTO Menu
:AddMenu
ECHO.&ECHO 添加 BeyondCompare 5 鼠标右键关联
reg add "HKCU\Software\Scooter Software\Beyond Compare" /f /v "ExePath" /d "%~dp0BCompare.exe" >NUL
reg add "HKCU\SOFTWARE\Scooter Software\Beyond Compare 5" /f /v "ExePath" /d "%~dp0BCompare.exe" >NUL
reg add "HKCU\SOFTWARE\Scooter Software\Beyond Compare 5\BcShellEx" /f /v "SavedLeft" /d "%~dp0BCompare.exe" >NUL
reg add "HKLM\SOFTWARE\WOW6432Node\Scooter Software\Beyond Compare\BcShellEx" /f /v "ExePath" /d "%~dp0BCompare.exe" >NUL
reg add "HKLM\SOFTWARE\WOW6432Node\Scooter Software\Beyond Compare\BcShellEx" /f /v "SavedLeft" /d "%~dp0BCompare.exe" >NUL
reg add "HKLM\SOFTWARE\WOW6432Node\Scooter Software\Beyond Compare 5\BcShellEx" /f /v "ExePath" /d "%~dp0BCompare.exe" >NUL
reg add "HKLM\SOFTWARE\WOW6432Node\Scooter Software\Beyond Compare 5\BcShellEx" /f /v "SavedLeft" /d "%~dp0BCompare.exe" >NUL
reg add "HKLM\SOFTWARE\Scooter Software\Beyond Compare\BcShellEx" /f /v "ExePath" /d "%~dp0BCompare.exe" >NUL
reg add "HKLM\SOFTWARE\Scooter Software\Beyond Compare\BcShellEx" /f /v "SavedLeft" /d "%~dp0BCompare.exe" >NUL
reg add "HKLM\SOFTWARE\Scooter Software\Beyond Compare 5\BcShellEx" /f /v "ExePath" /d "%~dp0BCompare.exe" >NUL
reg add "HKLM\SOFTWARE\Scooter Software\Beyond Compare 5\BcShellEx" /f /v "SavedLeft" /d "%~dp0BCompare.exe" >NUL
reg add "HKLM\SOFTWARE\Classes\CLSID\{812BC6B5-83CF-4AD9-97C1-6C60C8D025C5}" /f /ve /d "CirrusShellEx" >NUL
reg add "HKLM\SOFTWARE\Classes\CLSID\{812BC6B5-83CF-4AD9-97C1-6C60C8D025C5}\InProcServer32" /f /ve /d ""%~dp0BCShellEx64.dll"" >NUL
reg add "HKLM\SOFTWARE\Classes\CLSID\{812BC6B5-83CF-4AD9-97C1-6C60C8D025C5}\InProcServer32" /f /v "ThreadingModel" /d "Apartment" >NUL
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\BCompare.exe" /f /ve /d "%~dp0BCompare.exe" >NUL
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\BCompare.exe" /f /v "UseURL" /t REG_DWORD /d "1" >NUL
reg add "HKLM\SOFTWARE\Classes\.bcss" /f /ve /d "BeyondCompare.Snapshot" >NUL
reg add "HKLM\SOFTWARE\Classes\BeyondCompare.Snapshot" /f /ve /d "Beyond Compare Snapshot" >NUL
reg add "HKLM\SOFTWARE\Classes\BeyondCompare.Snapshot\DefaultIcon" /f /ve /d ""%~dp0BCompare.exe,0"" >NUL
reg add "HKLM\SOFTWARE\Classes\BeyondCompare.Snapshot\shell\open\command" /f /ve /d ""%~dp0BCompare.exe" "%%1"" >NUL
reg add "HKLM\SOFTWARE\Classes\.bcpkg" /f /ve /d "BeyondCompare.SettingsPackage" >NUL
reg add "HKLM\SOFTWARE\Classes\BeyondCompare.SettingsPackage" /f /ve /d "Beyond Compare Settings Package" >NUL
reg add "HKLM\SOFTWARE\Classes\BeyondCompare.SettingsPackage" /f /v "EditFlags" /t REG_DWORD /d "0x00100000" >NUL
reg add "HKLM\SOFTWARE\Classes\BeyondCompare.SettingsPackage\DefaultIcon" /f /ve /d ""%~dp0BCompare.exe,0"" >NUL
reg add "HKLM\SOFTWARE\Classes\BeyondCompare.SettingsPackage\shell\open\command" /f /ve /d ""%~dp0BCompare.exe" "%%1"" >NUL
reg add "HKLM\SOFTWARE\Classes\*\shellex\ContextMenuHandlers\CirrusShellEx" /f /ve /d "{812BC6B5-83CF-4AD9-97C1-6C60C8D025C5}" >NUL
reg add "HKLM\SOFTWARE\Classes\Folder\shellex\ContextMenuHandlers\CirrusShellEx" /f /ve /d "{812BC6B5-83CF-4AD9-97C1-6C60C8D025C5}" >NUL
reg add "HKLM\SOFTWARE\Classes\lnkfile\shellex\ContextMenuHandlers\CirrusShellEx" /f /ve /d "{812BC6B5-83CF-4AD9-97C1-6C60C8D025C5}" >NUL
reg add "HKLM\SOFTWARE\Classes\Directory\shellex\ContextMenuHandlers\CirrusShellEx" /f /ve /d "{812BC6B5-83CF-4AD9-97C1-6C60C8D025C5}" >NUL
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved" /f /v "{812BC6B5-83CF-4AD9-97C1-6C60C8D025C5}" /d "Beyond Compare 5 Shell Extension" >NUL
reg add "HKLM\SYSTEM\CurrentControlSet\Services\EventLog\Application\Beyond Compare 5" /f /v "TypesSupported" /t REG_DWORD /d "7" >NUL
reg add "HKLM\SYSTEM\CurrentControlSet\Services\EventLog\Application\Beyond Compare 5" /f /v "EventMessageFile" /d "%~dp0BCompare.exe" >NUL
ECHO.&ECHO 复制配置文件到当前用户目录
IF NOT EXIST "%USERPROFILE%\AppData\Roaming\Scooter Software\Beyond Compare 5" (mkdir "%USERPROFILE%\AppData\Roaming\Scooter Software\Beyond Compare 5")
copy /y .\config "%USERPROFILE%\AppData\Roaming\Scooter Software\Beyond Compare 5"
ECHO.&ECHO 正在添加BeyondCompare.5.ShellExt App
PowerShell.exe -NonInteractive -Command "Add-AppxPackage '%~dp0BCShellEx.msix'"
#备用PowerShell.exe -NonInteractive -Command "Add-AppProvisionedPackage -Online -SkipLicense -Regions all -PackagePath:'%~dp0BCShellEx.msix'"
ECHO.&ECHO 正在创建BeyondCompare 5 桌面快捷方式
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\Beyond Compare 5.lnk""):b.TargetPath=""%~dp0BCompare.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")
ECHO.&ECHO 重启Explorer资源管理器
taskkill /f /im explorer.exe & start "" %systemroot%\explorer.exe
cls
ECHO.&ECHO 绿化完成，任意键关闭！&pause>nul &exit
:RemoveMenu
ECHO.&ECHO 结束 BeyondCompare 5 进程
taskkill /f /im BCompare.exe>NUL 2>NUL
ECHO.&ECHO 移除 BeyondCompare 5 鼠标右键关联
reg delete "HKLM\SOFTWARE\Classes\.bcss" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\Classes\.bcpkg" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\Classes\BeyondCompare.Snapshot" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\Classes\BeyondCompare.SettingsPackage" /F>NUL 2>NUL
reg delete "HKCU\SOFTWARE\Scooter Software\Beyond Compare" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\Scooter Software\Beyond Compare" /F>NUL 2>NUL
reg delete "HKCU\SOFTWARE\Scooter Software\Beyond Compare 5" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\Scooter Software\Beyond Compare 5" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\WOW6432Node\Scooter Software\Beyond Compare" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\WOW6432Node\Scooter Software\Beyond Compare 5" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\BCompare.exe" /F >NUL 2>NUL
reg delete "HKLM\SOFTWARE\Classes\CLSID\{812BC6B5-83CF-4AD9-97C1-6C60C8D025C5}" /F >NUL 2>NUL
reg delete "HKLM\SYSTEM\CurrentControlSet\Services\EventLog\Application\Beyond Compare 5" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions\Approved" /F /v "{812BC6B5-83CF-4AD9-97C1-6C60C8D025C5}">NUL 2>NUL
reg delete "HKLM\SOFTWARE\Classes\*\shellex\ContextMenuHandlers\CirrusShellEx" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\Classes\Folder\shellex\ContextMenuHandlers\CirrusShellEx" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\Classes\lnkfile\shellex\ContextMenuHandlers\CirrusShellEx" /F>NUL 2>NUL
reg delete "HKLM\SOFTWARE\Classes\Directory\shellex\ContextMenuHandlers\CirrusShellEx" /F>NUL 2>NUL
ECHO.&ECHO 正在移除 BeyondCompare.5.ShellExt App
PowerShell.exe "Get-AppxPackage -AllUsers -Name "ScooterSoftware.BeyondCompare.5.ShellExt" | Remove-AppxPackage -AllUsers"
ECHO.&ECHO 正在移除 BeyondCompare 5 桌面快捷方式
del /f /q "%USERPROFILE%\Desktop\Beyond Compare 5.lnk" /F>NUL 2>NUL
ECHO.&ECHO 正在移除 BeyondCompare 5 用户配置文件
rmdir /s /q "%USERPROFILE%\AppData\Roaming\Scooter Software">NUL 2>NUL
ECHO.&ECHO 重启Explorer资源管理器
taskkill /f /im explorer.exe & start "" %systemroot%\explorer.exe
cls
ECHO.&ECHO 移除完成
ECHO.&ECHO 移除完成
ECHO.&ECHO 移除完成
ECHO.&ECHO 移除完成
ECHO.&ECHO 移除完成
ECHO.&ECHO 移除完成
ECHO.&ECHO 卸载成功，按任意键关闭。&pause>nul &exit
:OUT
exit

复制代码