|
7zx.bat
if %time:~0,2% leq 9 (set hour=0%time:~1,1%) else (set hour=%time:~0,2%)
set ymd=%date:~0,4%%Date:~5,2%%Date:~8,2%%hour%%time:~3,2%%time:~6,2%
set hdrvfold="%systemdrive%\7zx\"
%systemdrive%\7zx\7z.exe x %1 -o"%hdrvfold%%ymd%"
if exist "%hdrvfold%%ymd%" ( start explorer.exe "%hdrvfold%%ymd%" )
exit
7zxsetup.bat
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
:runas
REG ADD "HKEY_CLASSES_ROOT\*\shell\7zx\command" /f /d "%systemdrive%\7zx\7zx.bat """%%1""""
md %systemdrive%\7zx\
copy /Y 7zx.bat %systemdrive%\7zx\
copy /Y 7z.dll %systemdrive%\7zx\
copy /Y 7z.exe %systemdrive%\7zx\
timeout /t 3
exit
|
|