1,485
社区成员
发帖
与我相关
我的任务
分享
Private Type OFFSET_TABLE
uMajorVersion As Integer
uMinorVersion As Integer
uNumOfTables As Integer
uSearchRange As Integer
uEntrySelector As Integer
uRangeShift As Integer
End Type
Private Type TABLE_DIRECTORY
szTag As String * 4
uCheckSum As Long
uOffset As Long
uLength As Long
End Type
Private Type NAME_TABLE_HEADER
uFSelector As Integer
uNRCount As Integer
uStorageOffset As Integer
End Type
Private Type NAME_RECORD
uPlatformID As Integer
uEncodingID As Integer
uLanguageID As Integer
uNameID As Integer
uStringLength As Integer
uStringOffset As Integer
End Type
Private Enum NameIDs
gfiCopyrightNotice = 0 ' Copyright notice
gfiFontFamilyName = 1 ' Font Family name
gfiFontSubfamilyName = 2
gfiUniqueFontIdentifier = 3 ' Some unique ID for this font.
gfiFullFontName = 4
gfiVersionString = 5
gfiPostscriptName = 6 ' Postscript name for the font.
gfiTrademark = 7 ' Trademark notice/information for this font.
End Enum