Автор Тема: _FontInstall() - Установка TrueType шрифтов в систему  (Прочитано 2589 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Yashied [?]

  • AutoIt MVP
  • Глобальный модератор
  • *
  • Сообщений: 5379
  • Репутация: 2695
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.x.x
Функция предназначена только для TrueType/OpenType шрифтов. Требуется WinAPIEx UDF.

Код: AutoIt [Выделить]
#Include <WinAPIEx.au3>

ConsoleWrite(_FontInstall('MyFont.ttf') & @CR)

Func _FontInstall($sFile) ; ONLY TTF FONTS!!!

    Local $Font, $Name, $Path

    $Name = _WinAPI_GetFontResourceInfo($sFile, 1)
    If @error Then
        Return SetError(1, 0, 0)
    EndIf
    $Name &= ' (TrueType)'
    $Font = StringRegExpReplace($sFile, '^.*\\', '')
    If Not RegWrite('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts', $Name, 'REG_SZ', $Font) Then
        Return SetError(2, 0, 0)
    EndIf
    $Path = _WinAPI_ShellGetSpecialFolderPath($CSIDL_FONTS)
    If Not FileCopy($sFile, $Path) Then
        RegDelete('HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts', $Name)
        Return SetError(3, 0, 0)
    EndIf
    If Not _WinAPI_AddFontResourceEx($Path & '\' & $Font, 0, 1) Then
        Return SetError(4, 0, 0)
    EndIf
    Return 1
EndFunc   ;==>_FontInstall



Думай, прежде чем говорить.

Русское сообщество AutoIt

_FontInstall() - Установка TrueType шрифтов в систему
« Отправлен: Ноябрь 08, 2010, 10:44:16 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
23 Ответов
13968 Просмотров
Последний ответ Сентябрь 26, 2012, 17:41:20
от warezoogle3
0 Ответов
2714 Просмотров
Последний ответ Май 12, 2011, 18:50:19
от Pelerin
4 Ответов
3464 Просмотров
Последний ответ Август 18, 2011, 15:50:59
от gora
9 Ответов
3569 Просмотров
Последний ответ Сентябрь 21, 2011, 23:34:26
от agikon
3 Ответов
2610 Просмотров
Последний ответ Декабрь 19, 2011, 18:05:40
от C2H5OH
4 Ответов
2694 Просмотров
Последний ответ Август 03, 2012, 14:26:10
от Yashied
13 Ответов
7657 Просмотров
Последний ответ Декабрь 15, 2012, 18:24:11
от warezoogle3
2 Ответов
1802 Просмотров
Последний ответ Ноябрь 26, 2013, 18:23:05
от AZJIO
3 Ответов
1653 Просмотров
Последний ответ Декабрь 05, 2013, 18:36:22
от InnI
0 Ответов
909 Просмотров
Последний ответ Июнь 14, 2016, 20:46:14
от AlekSandr88