WindowsFontFamilyMBS.AllFonts as WindowsFontFamilyMBS()

dim lines(-1) as string

for each f as WindowsFontFamilyMBS in WindowsFontFamilyMBS.AllFonts
  lines.append f.LogFontFullName
next

MsgBox Join(lines,EndOfLine)

Font list is queried from OS and not cached, so this should update if new fonts are activated.

Uses EnumFontFamiliesW function, see
https://docs.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-enumfontfamiliesw

See also:

• AllFonts(fonts() as WindowsFontFamilyMBS) as Integer

Some examples using this method:

• /Win/Windows Font
• /Win/Windows Font Unicode and Code Pages

WindowsFontFamilyMBS.AllFonts(fonts() as WindowsFontFamilyMBS) as Integer

Returns the number of fonts found and sets the font objects in the array.
if the array is too short, you get the first ubound(fonts)+1 fonts set there.

Font list is queried from OS and not cached, so this should update if new fonts are activated.

See also:

• AllFonts as WindowsFontFamilyMBS()

WindowsFontFamilyMBS.AllFontsEx as WindowsFontFamilyMBS()

dim lines(-1) as string

for each f as WindowsFontFamilyMBS in WindowsFontFamilyMBS.AllFontsEx
  lines.append f.LogFontFullName
next

MsgBox Join(lines,EndOfLine)

Font list is queried from OS and not cached, so this should update if new fonts are activated.

Uses EnumFontFamiliesExW function, see
https://docs.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-enumfontfamiliesexw

WindowsFontFamilyMBS.FontsOfFamily(family as string) as WindowsFontFamilyMBS()

See also:

• FontsOfFamily(family as string, fonts() as WindowsFontFamilyMBS) as Integer

Some examples using this method:

• /Win/Windows Font

WindowsFontFamilyMBS.FontsOfFamily(family as string, fonts() as WindowsFontFamilyMBS) as Integer

Returns the number of fonts found and sets the font objects in the array.
if the array is too short, you get the first ubound(fonts)+1 fonts set there.

See also:

• FontsOfFamily(family as string) as WindowsFontFamilyMBS()