|
|
发表于 2026-5-5 23:35:21
|
显示全部楼层
- @ECHO OFF&(PUSHD "%~DP0")&(REG QUERY "HKU\S-1-5-19">NUL 2>&1)||(
- powershell -Command "Start-Process '%~sdpnx0' -Verb RunAs"&&EXIT)
- :: 设置文件关联
- set "EXT=265 3g2 3gp 3gp2 3gpp ac3 acc act aif aiff amr amv APE asf asm ass asx au avi avsts bhd bik csf d2v divx dpl dsa dsm dss dsv dts evo FLAC flc fli flic flv ghd gplf hevc ifo ivf kpl m1v m2p m2ts m2v m3u m4a m4b m4p m4v mid midi mkv mod mov mp2 mp3 mp4 mpa mpcpl mpe mpeg mpg mts ogm pls pmp pmp2 pss pva qpl qt ra ram ratDVD rm rmvb rpm rt smi smil smk smpl srt ssa sup tp tpr ts vg2 vid vob vp6 vp7 vp9 wax webm wm wma wmp wmv wmx wv wvx"
- for %%e in (%EXT%) do (
- reg add "HKLM\SOFTWARE\Classes\.%%e" /ve /d "BaofengPlayer9.%%e" /f >nul
- reg add "HKLM\SOFTWARE\Classes\.%%e\OpenWithProgIds" /v "BaofengPlayer9.%%e" /t REG_BINARY /f >nul
- reg add "HKLM\SOFTWARE\Classes\BaofengPlayer9.%%e\DefaultIcon" /ve /d "%~sdp0LibIcon.dll,-225" /f >nul
- reg add "HKLM\SOFTWARE\Classes\BaofengPlayer9.%%e\shell" /ve /d "open" /f >nul
- reg add "HKLM\SOFTWARE\Classes\BaofengPlayer9.%%e\shell\open" /ve /d "使用 暴风影音16 播放(&P)" /f >nul
- reg add "HKLM\SOFTWARE\Classes\BaofengPlayer9.%%e\shell\open\command" /ve /d "\"%~sdp0StormPlayer9.exe\" /Type=LocalFile /Play /Url=\"%%1\" /From=Shell" /f >nul
- reg add "HKLM\SOFTWARE\Classes\BaofengPlayer9.%%e\shell\open\DropTarget" /v "Clsid" /d "{944AE114-F63B-4AFB-9348-3E0BDAFE1E49}" /f >nul
- reg add "HKLM\SOFTWARE\Classes\BaofengPlayer9.%%e\shell\play_enqueue" /ve /d "添加到 暴风影音16 播放列表(&L)" /f >nul
- reg add "HKLM\SOFTWARE\Classes\BaofengPlayer9.%%e\shell\play_enqueue\command" /ve /d "\"%~sdp0StormPlayer9.exe\" /Type=LocalFile /Url=\"%%1\" /From=Shell" /f >nul
- reg add "HKLM\SOFTWARE\Classes\BaofengPlayer9.%%e\shell\play_enqueue\DropTarget" /v "Clsid" /d "{205D2714-073F-473E-BDEF-460D13A47966}" /f >nul
- reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.%%e\OpenWithProgids" /v "BaofengPlayer9.%%e" /t REG_BINARY /f >nul
- reg add "HKCU\Software\BaofengVideo\StormPlayer9\UserConfig\FileAssociate" /v "%%e" /t REG_DWORD /d 1 /f >nul
- )
- ::正在注册缩列图组件
- if exist extfa.dll regsvr32 /n /s ".\extfa.dll"
- if exist PlayList.dll regsvr32 /n /s ".\PlayList.dll"
- if exist ShellDrag.dll regsvr32 /n /s ".\ShellDrag.dll"
- ::创建桌面快捷方式
- mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\暴风影音16.lnk""):b.TargetPath=""%~sdp0StormPlayer9.exe"":b.WorkingDirectory=""%~sdp0"":b.Save:close")
- ECHO.&ECHO 完成 &TIMEOUT /t 2 >NUL&EXIT
复制代码
稍微补充点内容 效果如下图
|
|