Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
Эта "целая" утилита весит меньше 3 кб, и она портабельна.Flasher писал(а):Понимаю, но это так мелочно, чтобы использовать целую утилиту для такой ерунды неоправданно. В любом случае Alt+F4 у себя никто не меняет. Это стандарт.
Спасибо, всё происходит очень быстро и, самое главное, никаких мерцаний лишних диалогов.Batya писал(а):Сильно не извращаясь, получилось так
А никто дважды и не тыкал.Flasher писал(а):P.S. Дважды тыкать на одну ошибку вовсе не обязательно.
Честно, не помню.Flasher писал(а):Т.е. проблема в совпадении модификатора?
Код: Выделить всё
Option Explicit
Dim FSO, TCS, F1, F2, Str1, Str2, Str3, Str4, Text1, Text2
Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set TCS = CreateObject("TCScript.Helper")
If Err.Number <> 0 Then
Err.Clear
TCScriptHelperRegistration
If Err.Number = 0 Then Set TCS = CreateObject("TCScript.Helper")
If Err.Number <> 0 Then
MsgBox """TCScript.Helper"" в системе не зарегистрирован!", vbCritical, "Ошибка"
WScript.Quit Err.Number
End If
End If
On Error GoTo 0
F1 = "%COMMANDER_PATH%\default.bar"
Str1 = "%COMMANDER_PATH%\Icons\icon.icl,54"
Str2 = "%COMMANDER_PATH%\Icons\icon.icl,55"
F2 = "%COMMANDER_PATH%\WinCmd.ini"
Str3 = "[Associations]"
Str4 = "[-Associations]"
F1 = FSO.GetAbsolutePathName(CreateObject("WScript.Shell").ExpandEnvironmentStrings(F1))
F2 = FSO.GetAbsolutePathName(CreateObject("WScript.Shell").ExpandEnvironmentStrings(F2))
Text1 = FSO.OpenTextFile(F1, 1, False, -1).ReadAll
Text2 = FSO.OpenTextFile(F2, 1, False, -1).ReadAll
If bCheck Then
Text1 = Replace(Text1, Str2, Str1, 1, -1, 1)
Text2 = Replace(Text2, Str4, Str3, 1, -1, 1)
Else
Text1 = Replace(Text1, Str1, Str2, 1, -1, 1)
Text2 = Replace(Text2, Str3, Str4, 1, -1, 1)
End If
FSO.OpenTextFile(F1, 2, False, -1).Write Text1
FSO.OpenTextFile(F2, 2, False, -1).Write Text2
With TCS
.LockTC True
.SendCommand "cm_InternalAssociate"
.SendKeystroke "{Enter}"
.UserCmd "em_default.bar"
End With
Set TCS = Nothing
Set FSO = Nothing
WScript.Quit
Function bCheck()
Dim sFile
sFile=WScript.ScriptFullName
bCheck=TCS.INIRead(sFile, "Ass", "Line", 0)
TCS.INIWrite sFile, "Ass", "Line", Not bCheck
End Function
[Ass]
Line =-1Зачем регистрировать Хелпер, если можно просто через TCMC вызывать нужные команды? Советую использовать алгоритм скрипта Batya, чтобы свести дело к полной портабельности.HA3APET писал(а):А хелпер регистрируется по нажатию на туже кнопку вкл\выкл вн ассоц, через TCMC
Для себя я сделал бескнопочный вариант с TCFS2:CreateObject("WScript.Shell").ExpandEnvironmentStrings(Fn)
Код: Выделить всё
' Вкл\выкл внутренние ассоциации в TC
'==================================
Dim WSH
Set WSH = CreateObject("WScript.Shell")
Str1 = "[-Associations]"
Str2 = "[Associations]"
INI = WSH.ExpandEnvironmentStrings("%COMMANDER_PATH%\Wincmd.ini")
Text = CreateObject("Scripting.FileSystemObject").OpenTextFile(INI, 1).ReadAll
If InStr(1, Text, Str1, 1) > 0 Then
Text = Replace(Text, Str1, Str2, 1, 1, 1)
Else
Text = Replace(Text, Str2, Str1, 1, 1, 1)
End If
With CreateObject("Scripting.FileSystemObject")
.OpenTextFile(INI, 2).Write Text
.OpenTextFile(INI, 1).Close
End With
WSH.Exec("%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe /ef tcm(519)")
WScript.Sleep 10
WSH.SendKeys "~"
Set WSH = Nothing
WScript.QuitНет.Flasher писал(а):До этого ничего не стиралось?
Нет, только заголовок секции ([Associations]) без содержимого спустился в конец *.INI. Активировать скрипт снова уже побаиваюсь.Flasher писал(а):В конец ini лишние строки не дописываются?
Ищи или подсвети поочерёдно оба варианта [-ass и [ass.ask-rus писал(а):Нет, только заголовок секции ([Associations]) спустился в конец *.INI.
Сделай резервную копию wincmd.ini, чтобы не бояться. Кроме одной секции никуда ничего не исчезнет всё равно.ask-rus писал(а):Активировать скрипт снова уже побаиваюсь.
Код: Выделить всё
[-Associations]
Filter1=*.txt
Filter1_open=D:\Totalcmd\SOFT\Notepad++\notepad++.exe "%1"
[Associations]
