Extracting Font Name out of TTF file

[hijolin]

Anyone know how to do this?

[Yashied]

Anyone know how to do this?

#Include <WinAPI.au3>

Global Const $QFR_DESCRIPTION = 1

Global $sFont = 'C:\MyFont.ttf'
Global $tData = DllStructCreate('wchar[260]')

DllCall('gdi32.dll', 'int', 'AddFontResource', 'str', $sFont)
DllCall('gdi32.dll', 'int', 'GetFontResourceInfoW','wstr', $sFont, 'int*', DllStructGetSize($tData), 'ptr', DllStructGetPtr($tData), 'int', $QFR_DESCRIPTION)
DllCall('gdi32.dll', 'int', 'RemoveFontResource', 'str', $sFont)

ConsoleWrite(DllStructGetData($tData, 1) & @CR)

Edited May 25, 2009 by Yashied