Шрифт

Georgio · Отправлено: **19:24, 06-08-2014** | #2

Код:

': 2>nul& @cls& echo off& ::Сохранить этот код целиком в пакетном файле (расширение ".bat" или ".cmd"), поместить его в папку с устанавливаемым шрифтом и запустить от имени администратора!
': 2>nul& set "font=Helvetica_Light-Normal.ttf"
': 2>nul& cscript "%~fs0" //nologo //e:vbscript /Font:"%~dps0%font%"& exit
Option Explicit
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
'Если переданный в параметр этого скрипта файл шрифта существует, начинается установка шрифта
If FSO.FileExists(WScript.Arguments.Named.Item("Font")) Then
    Dim WSH
    Set WSH = CreateObject("WScript.Shell")
    'Копирование файла шрифта в системную папку шрифтов
    FSO.CopyFile WScript.Arguments.Named.Item("Font"), WSH.SpecialFolders("Fonts") & "\"
    'Установка шрифта вызовом API
    WSH.Run "RunDll32.exe gdi32.dll,AddFontResourceA " & chr(34) & FSO.GetBaseName(WScript.Arguments.Named.Item("Font")) & chr(34)
End If

???