Установка шрифтов в Windows 7 | Windows для системных администраторов

Установка шрифтов в Windows 7

Сегодня мы поговорим о различных способах установки шрифтов в Windows 7. Эта процедура, казалось бы, не должна вызывать особых проблем у пользователей  системы и администраторов, но и в ней есть свои подводные камни. Попытаемся разобраться каким же образом можно установить шрифт в Windows 7, я приведу несколько способов, по мере увеличения сложности. Естественно, мы предполагаем, что вы уже скачали новый шрифт и, если он находился в архиве, вы его распаковали. Напомню, что файл шрифта имеет расширение .ttf.

Установка нового шрифта в Windows 7


Чтобы установить новый шрифт, достаточно просто щелкнуть по файлу ttf правой клавишей мыши и выбрать пункт «Install» (Установить)

Установка шрифта в Windows 7

После чего появится окно, отображающее прогресс установки.

Еще один способ установки шрифтов заключается в том, что вам необходимо открыть панель управления шрифтами (Control Panel\All Control Panel Items\Fonts) и простым перетягиванием (Drag&Drop) перетянуть файл шрифта  в это окно.

установка шрифтов в Windows 7 перетаскиванием

Если нужно установить сразу несколько шрифтов, то их так же просто можно выделить мышью и перетянуть на панель.

Есть еще одна интересная опция по добавлению новых шрифтов в Windows 7. Если новых шрифтов много, а места на системном диске мало, можно установить шрифты при помощи ярлыков. Для этого в панели управления шрифтами слева нажмите на пункт «Font Settings» (Параметры шрифта) и в появившемся окне отметьте галочкой опцию «Allow fonts to be installed using a shortcut (advanced)» (Разрешить установку шрифтов с помощью ярлыков).  В этом случае Windows будет использовать новый шрифт прямо из того каталога, в котором он находится.

устанавливаем ярлык шрифта в Windows 7

Теперь, если щелкнуть правой кнопкой по шрифту, появится дополнительный пункт меню «Install as shortcut» (Установить как ярлык).

ярлык для шрифта в Win 7

Массовая установка шрифтов в Windows 7 скриптом


Представим ситуацию, когда нужно установить сразу несколько десятков шрифтов на несколько компьютеров. Естественно вручную делать это очень долго и нудно. Есть ли способ автоматизации установки новых шрифтов в Windows 7. К счастью есть!

Во времена Windows XP чтобы установить шрифт, достаточно было просто скопировать его файл в каталог C:\Windows\Fonts. В Windows 7  такой трюк не сработает, и хотя вы можете сказать, что чуть выше мы проводником копируем файл со шрифтом в каталог C:\Windows\Fonts,  я возражу, сказав что не все так просто. При копировании шрифта с помощью Windows Explorer осуществляется не просто копирование. Система определяет, что копируется новый шрифт и автоматически запускает его установку в систему, поэтому и появляется всплывающее окно с текстом «Installing».

Для установки шрифтов в Windows 7 можно воспользоваться файлом-сценария на языке VBS. Допустим, у нас есть каталог c:\install\font, в котором содержатся файлы шрифтов, которые нужно установить. Мы создаем на диске новый файл с расширением vbs (например, batch_install_font.vbs), копируем в него указанный код и запускаем его как обычную программу:

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("c:\install\font")
Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each FontFile In objFolder.Items()
Set objFolderItem = objFolder.ParseName(FontFile)
If Not objFSO.FileExists("c:\windows\fonts\" & FontFile) Then
objFolderItem.InvokeVerb ("Install")
End If
Next

В результате запустится последовательная установка новых шрифтов из каталога  c:\install\font в систему и для каждого из них появится окно с индикатором выполнения процесса. Запустилась установка нового шрифта в Windows 7

Если данные шрифты уже установлены в Windows 7, то их повторная установка запущена не будет.

Еще записи по теме: Windows 7
Понравилась статья? Скажи спасибо и расскажи друзьям!
Назад:
Вперед:

Комментариев: 12

Оставить комментарий
  1. Александр | 29.07.2013

    Спасибо за скрипт.
    К сожалению с VBS не знаком и при выполнении получаю ошибку.
    В вашем скрипте редактировал только строку Set objFolder = objShell.Namespace(«c:\install\font»)
    указав там иное расположение файла .ttf. Все остальное осталось неизменным.
    Ошибка:
    Сценарий: \\192.168.0.1\shared\fonts\install.vbs
    Строка: 15
    Символ: 1
    Ошибка: Требуется объект: ‘objFolderItem’
    Код: 800A01A8

    Ответить
    • Александр | 04.10.2013

      Добрый день!
      Как сделать тихую установку?

      Ответить
      • Сергей | 16.01.2014

        Лучше так:
        Set objShell = CreateObject(«Shell.Application»)
        Set objFolder = objShell.Namespace(«c:\f»)
        Set objFSO = CreateObject(«Scripting.FileSystemObject»)

        For Each FontFile In objFolder.Items()
        Set objFolderItem = objFolder.ParseName(FontFile)
        If Not objFSO.FileExists(«c:\windows\fonts\» & FontFile) Then
        objFolderItem.InvokeVerb («Install»)
        End If
        Next

        Ответить
  2. Имя | 15.04.2014

    Дада, VBS скрипт у Вас не рабочий.
    Кстати еще можно было бы указать cmd скрипт.

    Ответить
    • itpro | 16.04.2014

      Спасибо за внимательность :) . Вы правы, vbs скрипт не работал. Немного поправил текст скрипта и взял его текст в тег <code>. Проверяйте!

      Ответить
  3. Наташа | 23.06.2014

    Добрый день. Возможно, существует способ установки шрифтов из под пользовательской учетки без прав админа? Вы не сталкивались с подобной необходимостью?

    Ответить
    • itpro | 23.06.2014

      Скорее всего будет достаточно дать пользователю права RW на каталог c:\windows\fonts
      Если это невозможно, нужно:
      1. создать каталог C:\winfonts
      2. Открыть Панель управления -> Шрифты
      3. В меню выбрать Файл -> Установка шрифтов
      4. Указать путь к файлу шрифта в каталоге C:\winfonts и снять галку «Копировать шрифты в папку шрфитов» и нажать ОК.
      Шрифт должен корректно установится

      Ответить
  4. kos | 30.06.2014

    У меня вот так заработал
     
    Set objShell = CreateObject(«Shell.Application»)
    Set objFolder = objShell.Namespace(«c:\install»)
    Set objFolderItem = objFolder.ParseName(«IDAutomationSC128XS.ttf»)
    Set objFSO = CreateObject(«Scripting.FileSystemObject»)
    For Each FontFile In objFolder.Items()
    Set objFolderItem = objFolder.ParseName(FontFile)
    If Not objFSO.FileExists(«c:\windows\fonts\» & FontFile) Then
    objFolderItem.InvokeVerb («Install»)
    End If
    Next

    Ответить
  5. Олег | 24.08.2015

    А в домене как развернуть сие чудо? Кто-нибудь делал?
    Заранее спасибо…

    Ответить
    • itpro | 27.08.2015

      Попробуйте установку через Startup скрипты GPO

      Ответить
      • Олег | 27.08.2015

        Пробовал и через авторан компьютера и пользователя. Одно и то же.
        Обычным рядовым юзерам не доступна установка шрифтов. Учётка System тоже не хочет правильно отрабатывать скрипт. Также пробовал через командную строку (командой runas). В итоге: от админа всё замечательно, а от обычного пользователя нифига….

        Ответить
        • itpro | 28.08.2015

          Можно попробовать дать право на установку шрифтов обычным пользователям и без прав администратора. Для этого нужно:
          1. Дать права пользователям на запись в папку c:\Windows\Fonts, к примеру так: c:\Windows\Fonts /e /t /g users:c
          2. Дать права на регистрацию шрифтов в системе, предоставив пользователям права на запись (как минимум Set Value и Delete) в ветку реестра HKLM\Software\Microsoft\Windows NT\Current Version\Fonts

          Ответить
Полные правила комментирования на сайте winitpro.ru. Вопросы, не связанные с содержимым статьи или ее обсуждением удаляются.

Сказать Спасибо! можно на этой странице или (еще лучше) поделиться с друзями ссылкой на понравившуюся статью в любимой социальной сети(специально для этого на сайте присуствуют кнопки популярных соц. сетей).

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Я не робот( Обязательно отметьте)



MAXCACHE: 0.26MB/0.00111 sec