|
@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\DefaultIcon" /f /ve /t REG_SZ /d "%~sdp0icon\%%a.ico"
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
在TTPlayer文件夹里新建文件夹命名为icon,在这个文件夹里放入.ico图标文件,对应哪个格式就命名为什么,比如midi.ico |
|