1

Тема: 1Cv7.7: автоматическая установка шрифта TrueType

Потребуется библиотека dynwrap.dll: http://www.script-coding.com/dynwrap.html

Wrapper = СоздатьОбъект("DynamicWrapper");
Wrapper.Register("GDI32.DLL", "AddFontResource", "i=s", "f=s", "r=l");
Wrapper.Register("USER32.DLL", "SendMessage", "i=llll", "f=s", "r=l");
WshShell = СоздатьОбъект("WScript.Shell");
ПутьШрифты = WshShell.SpecialFolders.Item("Fonts") + "\";
Файл = "tunga.ttf";
ФС.КопироватьФайл("C:\TEMP\" + Файл, ПутьШрифты + Файл, 0);
Если Wrapper.AddFontResource(ПутьШрифты + Файл) > 0 Тогда
    WshShell.RegWrite("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts\Tunga (TrueType)", "tunga.ttf", "REG_SZ");
    Wrapper.SendMessage(65535, 29, 0, 0);
КонецЕсли;

Опубликовал Raven.

Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.