Как узнать путь к файлу шрифта

[dear]

Не подскажете, каким образом узнать путь к файлу шрифта, установленного в системе, по его имени?

[JohnK]

Может эта функция поможет:

Код: Выделить всё

Declare Function EnumFontFamiliesEx Lib "gdi32" Alias "EnumFontFamiliesExA" (ByVal hdc As Long, lpLogFont As LOGFONT, ByVal lpEnumFontProc As Long, ByVal lParam As Long, ByVal dw As Long) As Long


Привосокупив эту:

Код: Выделить всё

Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwndOwner As Long, ByVal lpszPath As String, ByVal nFolder As Long, ByVal fCreate As Long) As Long
Const CSIDL_FONTS = &H14
...
retval = SHGetSpecialFolderPath(Form1.hWnd, pathname, CSIDL_FONTS, 0)


И сюда загляни http://msdn.microsoft.com/en-us/library/dd162618(VS.85).aspx

[alibek]

Не поможет.
HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts

[JohnK]

Вторая функция нужна в любом случае, ведь Windows может стоять и не на C:\

[dear]

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts - почему-то нет PostScript шрифтов.
Они как-то по другому ставятся в систему?

[dear]

Все, затормозил, нашел
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Type 1 Installer\Type 1 Fonts