Сегодня мы поговорим о различных способах установки шрифтов в Windows 7. Эта процедура, казалось бы, не должна вызывать особых проблем у пользователей системы и администраторов, но и в ней есть свои подводные камни. Попытаемся разобраться каким же образом можно установить шрифт в Windows 7, я приведу несколько способов, по мере увеличения сложности. Естественно, мы предполагаем, что вы уже скачали новый шрифт и, если он находился в архиве, вы его распаковали. Напомню, что файл шрифта имеет расширение .ttf.
Установка нового шрифта в Windows 7
Чтобы установить новый шрифт, достаточно просто щелкнуть по файлу ttf правой клавишей мыши и выбрать пункт «Install» (Установить)
После чего появится окно, отображающее прогресс установки.
Еще один способ установки шрифтов заключается в том, что вам необходимо открыть панель управления шрифтами (Control Panel\All Control Panel Items\Fonts) и простым перетягиванием (Drag&Drop) перетянуть файл шрифта в это окно.
Если нужно установить сразу несколько шрифтов, то их так же просто можно выделить мышью и перетянуть на панель.
Есть еще одна интересная опция по добавлению новых шрифтов в Windows 7. Если новых шрифтов много, а места на системном диске мало, можно установить шрифты при помощи ярлыков. Для этого в панели управления шрифтами слева нажмите на пункт «Font Settings» (Параметры шрифта) и в появившемся окне отметьте галочкой опцию «Allow fonts to be installed using a shortcut (advanced)» (Разрешить установку шрифтов с помощью ярлыков). В этом случае Windows будет использовать новый шрифт прямо из того каталога, в котором он находится.
Теперь, если щелкнуть правой кнопкой по шрифту, появится дополнительный пункт меню «Install as shortcut» (Установить как ярлык).
Массовая установка шрифтов в 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, то их повторная установка запущена не будет.
Спасибо за скрипт.
К сожалению с VBS не знаком и при выполнении получаю ошибку.
В вашем скрипте редактировал только строку Set objFolder = objShell.Namespace(«c:\install\font»)
указав там иное расположение файла .ttf. Все остальное осталось неизменным.
Ошибка:
Сценарий: \\192.168.0.1\shared\fonts\install.vbs
Строка: 15
Символ: 1
Ошибка: Требуется объект: ‘objFolderItem’
Код: 800A01A8
Добрый день!
Как сделать тихую установку?
Лучше так:
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
Дада, VBS скрипт у Вас не рабочий.
Кстати еще можно было бы указать cmd скрипт.
Спасибо за внимательность 🙂 . Вы правы, vbs скрипт не работал. Немного поправил текст скрипта и взял его текст в тег <code>. Проверяйте!
Добрый день. Возможно, существует способ установки шрифтов из под пользовательской учетки без прав админа? Вы не сталкивались с подобной необходимостью?
Скорее всего будет достаточно дать пользователю права RW на каталог c:\windows\fonts
Если это невозможно, нужно:
1. создать каталог C:\winfonts
2. Открыть Панель управления -> Шрифты
3. В меню выбрать Файл -> Установка шрифтов
4. Указать путь к файлу шрифта в каталоге C:\winfonts и снять галку «Копировать шрифты в папку шрфитов» и нажать ОК.
Шрифт должен корректно установится
У меня вот так заработал
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
А в домене как развернуть сие чудо? Кто-нибудь делал?
Заранее спасибо…
Попробуйте установку через Startup скрипты GPO
Пробовал и через авторан компьютера и пользователя. Одно и то же.
Обычным рядовым юзерам не доступна установка шрифтов. Учётка System тоже не хочет правильно отрабатывать скрипт. Также пробовал через командную строку (командой runas под другим пользователем). В итоге: от админа всё замечательно, а от обычного пользователя нифига….
Можно попробовать дать право на установку шрифтов обычным пользователям и без прав администратора. Для этого нужно:
1. Дать права пользователям на запись в папку c:\Windows\Fonts, к примеру так:
c:\Windows\Fonts /e /t /g users:c
2. Дать права на регистрацию шрифтов в системе, предоставив пользователям права на запись (как минимум Set Value и Delete) в ветку реестра HKLM\Software\Microsoft\Windows NT\Current Version\Fonts
Ничё нужного не нашёл для себя. Мне нужно сделать так, чтобы все шрифты поддерживали кириллицу! «Установить» не нажимается (кнопка почти прозрачная!) Что делать?!