Andrey_A
|
 Posted: Thu Nov 25, 2010 23:13 Post subject: |
 |
|
Недавно вновь вернулся к этому вопросу. Родился скрипт: | Code: | '================ Описание =================
' Запуск Total Commander с теми же настройками, но с другим меню
'================ Параметры =================
'{Путь\сохранения\Wincmd_2.ini} {Путь\до\меню_2.mnu}
'================ Примеры ================
' "%%COMMANDER_PATH%%\Wincmd_Two.ini" "%%COMMANDER_PATH%%\LANGUAGE\WCMD_RUS_Two.mnu"
'
' Автор: Аверин Андрей (25.11.2010)
' Версия: 1.0
'==========================================
Dim FSO, WSH, TCS, WinCmd, WcmdMnu
Set TCS = CreateObject("TCSCRIPT.Helper")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = WScript.CreateObject("WScript.Shell")
WinCmd = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(WScript.Arguments(0)))
WcmdMnu = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(WScript.Arguments(1)))
TCS.SendCommand "cm_ConfigSaveDirHistory" ' - сохранение настроек
FSO.CopyFile TCS.TCPath & "\Wincmd.ini", WinCmd, 1 ' - дубликат Wincmd.ini
TCS.INIWrite WinCmd, "Configuration", "Mainmenu", WcmdMnu ' - запись в дубликат путь открываемого меню
WSH.run chr(34) & TCS.TCPath & "\TOTALCMD.exe" & chr(34) & " " & "/i=" & chr(34) & WinCmd & chr(34)
Set TCS = Nothing
Set WSH = Nothing
Set FSO = Nothing
WScript.Quit |
Создайте любое меню в LANGUAGE\WCMD_RUS_Two.mnu |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
