@echo off
rem 设置新文件夹路径
set folderPath=新文件夹

rem 判断新文件夹是否存在，不存在则创建
if not exist %folderPath% md %folderPath%

rem 设置压缩包路径
set zipPath=文件夹\*.rar

rem 解压压缩包
"C:\Program Files (x86)\WinRAR\WinRAR.exe" x %zipPath% %folderPath%

rem 删除压缩包
del %zipPath%

echo 解压完成
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=:" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" /v Path 2^>nul ^| findstr ":"') do (
    set "RarPathL=%%a"
    set "RarPathR=%%b"
    set "MyRar=!RarPathL:~-1!:!RarPathR!\rar.exe"
    echo,!MyRar!
)
for /f "tokens=1,2 delims=:" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\7zFM.exe" /v Path 2^>nul ^| findstr ":"') do (
    set "ZipPathL=%%a"
    set "ZipPathR=%%b"
    set "MyZip=!ZipPathL:~-1!:!ZipPathR:~0,-1!\7z.exe"
    echo,!MyZip!
)
pause
复制代码

for /f "tokens=3" %%a in ('reg query "HKEY_CLASSES_ROOT\.rar"') do echo %%a 
复制代码