如何通过批处理命令操作注册表修改默认打开方式

飘水

求助如何通过批处理命令操作注册表修改默认打开方式？
重装系统后，图片、视频、音乐文件等想通过第三方软件打开，第三方软件不安装，直接用绿色版，将绿色版的第三方软件作为默认打开图片、视频、音乐文件等，如何通过批处理修改注册表的方式实现？
譬如修改.JPG\.MP3\.MP4\.AVI默认打开方式，
用绿色软件“d:\tools\picture\FastStoneImageViewer.exe”打开扩展名为JPG\BMP等文件
用绿色软件“d:\tools\music\千千静听.exe”打开扩展名为.mid\.mp3等文件
用绿色软件“d:\tools\video\KMPlayer.exe”打开扩展名为.MP4\.avi等文件

求大佬给个模版，琢磨了好久都不能成功！非常感谢！！！

飘水

@echo off
set "MusicDir=%~dp0D:\Program_Files_\MP3_Player\千千静听"
set "MusicDirReg=%MusicDir:\=\\%"
if "%1"=="" (
    call :Main
) else (
    call :%1
    if not "%2"=="SkipRefresh" (
        assoc .=.
    )
) >nul 2>nul
exit /b
::以管理员身份运行
:Main
    title 关联文件
    fltmc >nul || mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~dpnx0","%*",,"runas",1)(window.close) && exit /b
    fltmc >nul || mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~dpnx0","%*",,"runas",1)(window.close) && exit /b

call "%~dpnx0" Install




::执行创建注册表关联项
:Install
    (
        echo Windows Registry Editor Version 5.00
        call :RegAssoc  AA  TTPlayer  1
        call :RegAssoc  AAC  TTPlayer  1
        call :RegAssoc  A52  TTPlayer  1
        call :RegAssoc  AC3  TTPlayer  1
        call :RegAssoc  AIF  TTPlayer  1
        call :RegAssoc  AIFC  TTPlayer  1
        call :RegAssoc  AIFF  TTPlayer  1
        call :RegAssoc  AU  TTPlayer  1
        call :RegAssoc  SND  TTPlayer  1
        call :RegAssoc  CDA  TTPlayer  1
        call :RegAssoc  CUE  TTPlayer  1
        call :RegAssoc  DTS  TTPlayer  1
        call :RegAssoc  DTSWAV  TTPlayer  1
        call :RegAssoc  FLA  TTPlayer  1
        call :RegAssoc  FLAC  TTPlayer  1
        call :RegAssoc  MIDI  TTPlayer  1
        call :RegAssoc  MID  TTPlayer  1
        call :RegAssoc  RMI  TTPlayer  1
        call :RegAssoc  MOD  TTPlayer  1
        call :RegAssoc  FAR  TTPlayer  1
        call :RegAssoc  IT  TTPlayer  1
        call :RegAssoc  MTM  TTPlayer  1
        call :RegAssoc  S3M  TTPlayer  1
        call :RegAssoc  UMX  TTPlayer  1
        call :RegAssoc  XM  TTPlayer  1
        call :RegAssoc  APE  TTPlayer  1
        call :RegAssoc  MAC  TTPlayer  1
        call :RegAssoc  MP1  TTPlayer  1
        call :RegAssoc  MP2  TTPlayer  1
        call :RegAssoc  MP3  TTPlayer  1
        call :RegAssoc  MP3PRO  TTPlayer  1
        call :RegAssoc  MPA  TTPlayer  1
        call :RegAssoc  M4A  TTPlayer  1
        call :RegAssoc  MP+  TTPlayer  1
        call :RegAssoc  MPC  TTPlayer  1
        call :RegAssoc  OPUS  TTPlayer  1
        call :RegAssoc  RA  TTPlayer  1
        call :RegAssoc  TAK  TTPlayer  1
        call :RegAssoc  TTA  TTPlayer  1
        call :RegAssoc  OGG  TTPlayer  1
        call :RegAssoc  WAV  TTPlayer  1
        call :RegAssoc  WMA  TTPlayer  1
        call :RegAssoc  M3U  TTPlayer  1
        call :RegAssoc  M3U8  TTPlayer  1
        call :RegAssoc  TTBL  TTPlayer  1
        call :RegAssoc  TTPL  TTPlayer  1
    ) >"%Temp%\Install_YinYue.reg"
    reg import "%Temp%\Install_YinYue.reg"
    del /f "%Temp%\Install_YinYue.reg"
goto :eof

::关联相关文件类型
:RegAssoc :: <%1=Ext> <%2=ExeName> <%3=IconIndex>
    echo [HKEY_CLASSES_ROOT\TTPlayer.%1\DefaultIcon]
    echo @="%MusicDirReg%\\%2.exe,%3"
    echo [HKEY_CLASSES_ROOT\WPS.%1\Shell\Open\Command]
    echo @="\"%MusicDirReg%\\%2.exe\" \"%%1\""
    echo [HKEY_CLASSES_ROOT\.%1]
    echo @="TTPlayer.%1"
goto :eof

::timeout /t 6 >nul
pause

上述批处理运行无效

飘水

@echo off
    fltmc >nul || mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~dpnx0","%*",,"runas",1)(window.close) && exit /b

for %%a in (midi mid) do (
        reg add "HKCR\TTPlayer.%%a\Shell\Open\Command" /f /ve /t REG_SZ /d "\"%~sdp0TTPlayer.exe\" \"%%1\""
        reg add "HKCR\.%%a" /f /ve /t REG_SZ /d "TTPlayer.%%a"
) >nul 2>nul

pause

上述批处理运行无效

飘水

@echo Off
::【关联：用  “千千静听.exe”打开扩展名为 “.mid”的文件】
REG add HKCR\.mid /ve /t REG_SZ /d "midfile" /f
assoc .mid=midfile
::ftype midfile="D:\Program_Files_\MP3_Player\Winamp\winamp.exe" "%%1"

ftype midfile="D:\Program_Files_\MP3_Player\千千静听\TTPlayer.exe" "%%1"

::exit

::D:\Program_Files_\MP3_Player\Winamp\winamp.exe
::D:\Program_Files_\MP3_Player\千千静听\TTPlayer.exe

pause

用上述操作不成功，Windows11系统

飘水

我都无语了

飘水

有懂的大佬给指点一下，我实在是无能为力啊，求大佬帮助一下