Total Commander

Flasher писал(а):потом перезапуск

Flasher писал(а):А по скрипту, что по ссылке, незаметно?

Flasher писал(а):Скрипт может. Тут всего-то - найти строку, сравнить и изменить

ask-rus писал(а):Какой именно скрипт?

Flasher писал(а):Примерно так же, как и в первом, но с некоторыми поправками по сравнению.

ask-rus писал(а):без использования сторонних утилит

Batya писал(а):А скрипт, это сторонняя утилита?

Flasher писал(а):TCMP - да.

Flasher писал(а):kIT Universal Presets

ask-rus писал(а):Значит, всё-таки одним скриптом без хелпера никак?

ask-rus писал(а):kIT Universal Presets

Flasher писал(а):Этот вывод из каких моих слов исходит?

Flasher писал(а):Может, без флуда обойдёмся? См. как написано в мануале.

Batya писал(а):Всё легко делается с помощью портабельной утилиты TCMC.

ask-rus писал(а):Каких? Не нахожу.

ask-rus писал(а):ошибка автора мануала

ask-rus писал(а):Если действительно легко, как это делается?

ask-rus писал(а):Если действительно легко, как это делается?

'Вкл\выкл внутренние ассоциации в TC
Option Explicit
Dim FSO, WSH, TCMC, F, Str1, Str2, Text, TC
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")

TC   = "%COMMANDER_PATH%\TotalCmd.exe"
F    = "%COMMANDER_PATH%\WinCmd.ini"
Str1 = "[Associations]"
Str2 = "[-Associations]"
TCMC = "%COMMANDER_PATH%\Utils\TCMC\TCMC.exe"

TC   = GetPath(TC)
F    = GetPath(F)
TCMC = GetPath(TCMC)

Text = FSO.OpenTextFile(F, 1).ReadAll

If bCheck(Text, Str1) Then
  Text = Replace(Text, Str1, Str2, 1, -1, 1)
Else
  Text = Replace(Text, Str2, Str1, 1, -1, 1)
End If
FSO.OpenTextFile(F, 2).Write Text

WSH.Run """" & TCMC & """ CM24340", 1, True 'Выход
WSH.Run """" & TC   & """"        , 1, True 'Запуск TC

Set WSH = Nothing
Set FSO = Nothing
WScript.Quit

Function bCheck(pText, pFind)
   bCheck = (InStr(1, pText, pFind, 1) > 0)
End Function

Function GetPath(pPath)
  GetPath = FSO.GetAbsolutePathName(WSH.ExpandEnvironmentStrings(pPath))
End Function

Flasher писал(а):и никакая TCMP для правки ini-файла не нужна и, в принципе, ничем помочь в поставленной задаче не сможет.

Batya писал(а):TCMC я использую, чтобы послать TC команду выхода. Очень не люблю я имитацию нажатия клавиш.