Тема: 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.
Предложения в русском языке начинаются с большой буквы и заканчиваются точкой.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.
В названии ветки всегда должен быть указан язык программирования или среда исполнения скрипта, если это возможно.