' InstalFontInWincmd.vbs
'======================================================================
' Установить Шрифт для Total Commander
' можно использовать со скриптом ListFontBar.au3
'========================  Параметры ===================================
' В параметрах вызова из TC должно быть прописанo {имя шрифта}
'========================    Примеры    ===================================
' "Courier New"

' используется FunctionsINIRWS.vbs, который следует положить в ...AkelFiles\Plugs\Scripts\Include\

' Автор:             Аверин Андрей
' Версия:          1.3 (07.01.2011 - 14.04.2012)
' Mail:                 Averin-And@yandex.ru
' Site:                  http://tc-image.3dn.ru/forum/3-48-291-16-1330537846
'=================   Изменяемые параметры   ================================
TCINI = "%COMMANDER_PATH%\Wincmd.ini"
INI = "%COMMANDER_PATH%\Scripts\Include\FunctionsINIRWS.vbs"
TCMC = "%COMMANDER_PATH%\Utilities\TotalCom\TCMC\TCMC.exe"
'========================================================================
If WScript.Arguments.Count < 1 Then
    MsgBox "Не хватает параметров!" & vbNewLine & "Должно быть ОДИН параметр!  Имя Шрифта", vbOKOnly &_
    vbCritical, "Установка шрифта в Total Commander" : Wscript.Quit
End If

Dim WSH
Set WSH = CreateObject("WScript.Shell")
FontName = WScript.Arguments(0) : FontKey = "FontName" : TCINI = GetPath(TCINI)
Execute CreateObject("Scripting.FileSystemObject").OpenTextFile(GetPath(INI)).ReadAll
SC = Array("800x600 (8x16)", "960x600 (8x16)", "1024x600 (8x16)", "1024x768 (8x16)", "1088x612 (8x16)",_
                       "1152x864 (8x16)", "1280x720 (8x16)", "1280x768 (8x16)", "1280x800 (8x16)", "1280x960 (8x16)",_
                       "1280x1024 (8x16)", "1360x768 (8x16)", "1366x768 (8x16)","1440x900 (8x16)", "1920x1080 (10x20)")
For i = 0 To Ubound(SC)
    WriteINI RedirectSection(TCINI, SC(i)), SC(i), FontKey, FontName
Next

WSH.Exec(Chr(34) & TCMC & Chr(34) & "CM492") : WScript.Sleep 100
WSH.SendKeys "{TAB}" & "{ENTER}" & "{ENTER}" & "{TAB}" & "{TAB 5}" & "{ENTER}" & "{ENTER}"

Set WSH = Nothing : WScript.Quit
Function GetPath(pPath) : GetPath = WSH.ExpandEnvironmentStrings(pPath) : End Function