Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Задачки на внутренние ассоциации 
Author Message
Serge Yolkin



PostPosted: Sun Jul 18, 2010 02:10    Post subject: Reply with quote

Прошу прощения за задержку с ответом, батник, действительно, на встроенной reg:
Code:
@Echo Off
SetLocal
Reg QUERY HKCU\SOFTWARE\Clients\StartMenuInternet /ve>%TEMP%\%~n0.tmp
If %ERRORLEVEL% NEQ 0 Reg QUERY HKLM\SOFTWARE\Clients\StartMenuInternet /ve>%TEMP%\%~n0.tmp
For /f "tokens=3* skip=2" %%i In (%TEMP%\%~n0.tmp) Do (
   If %%i EQU REG_SZ (Set #A=%%j) Else (Set #A=%%i))
Reg QUERY HKLM\SOFTWARE\Clients\StartMenuInternet\%#A%\Shell\Open\Command /ve>%TEMP%\%~n0.tmp
For /f "tokens=3* skip=2" %%i In (%TEMP%\%~n0.tmp) Do (
   If %%i EQU REG_SZ (Set #A=%%j) Else (Set #A=%%i %%j))
Set #A=%#A:"=%
Call :SN "%#A%"
If Exist %1 (Set #B=%~f1) Else (Set #B=%1)
Start %#A% %#B%
Del /q %TEMP%\%~n0.* 1>Nul 2>Nul
Exit /b
:SN
Set #A=%~s1
Exit /b
Сергей Ёлкин (2010)

Немного намудрил, чтобы на XP, Vista и 7 работало одинаково (что не всегда так просто, как кажется). К тому же, этому файлу без разницы, запускать локальный файл, или адрес в иНете.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group