HelpF.pro

Пример регистрации файла шрифта

Код 1C v 8.х
 
ВозможныеИменаФайлаШрифтаEANGNIVC = Новый Массив;
ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANGNIVC.TTF");
ВозможныеИменаФайлаШрифтаEANGNIVC.Добавить("EANG000.TTF");
Попытка
objShell = Новый COMОбъект("Shell.Application");
objFolder = objShell.Namespace(20);
ПутьККаталогуШрифтов = objFolder.Items().Item().Path;
Если Прав(ПутьККаталогуШрифтов, 1) <> "\" Тогда
ПутьККаталогуШрифтов = ПутьККаталогуШрифтов + "\";
КонецЕсли;
ФайлШрифтаСуществует = Ложь;
Для Каждого ВозможноеИмяФайлаШрифта Из ВозможныеИменаФайлаШрифтаEANGNIVC Цикл
ОбъектФайлШрифтаВКаталогеШрифтов = Новый Файл(ПутьККаталогуШрифтов + ВозможноеИмяФайлаШрифта);
Если ОбъектФайлШрифтаВКаталогеШрифтов.Существует() Тогда
ФайлШрифтаСуществует = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
Если НЕ ФайлШрифтаСуществует Тогда
ВремКаталог = КаталогВременныхФайлов() + Строка(Новый УникальныйИдентификатор) + "\";
СоздатьКаталог(ВремКаталог);
ВремФайлШрифта = ВремКаталог + ВозможныеИменаФайлаШрифтаEANGNIVC[0];
Обработки.ОбщиеОбъектыРегламентированнойОтчетности.ПолучитьМакет("EANGNIVC").Записать(ВремФайлШрифта);
objFolder.CopyHere(ВремФайлШрифта);
УдалитьФайлы(ВремКаталог);
КонецЕсли;
objFolder = Неопределено;
objShell = Неопределено;
Исключение
КонецПопытки;

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/262.html