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);
КонецЕсли;