enumerate the available fonts

[clueless]

Does anyone know how to enumerate the available fonts in windows? Im sure ive seen this somewhere before. Thanks.

[FoxLeader]

You have to enumerate the files in

_SystemFolder.."\\Fonts

I don't remember if it's the right name for _SystemFolder, but I think so. However I don't remember which action is for listing the files in a folder.

You could always try to get this information from the registry, but I don't know enough to help you more about it.

[holtgrewe]

hth - I'm not really sure if this is what you're looking for.

result = File.Find("C:\\Windows\\Fonts\\", "*.ttf", false, false, nil, nil);
for x = 1, 5 do
    Dialog.Message("Font: ", ""..result[x], MB_OK)
end 

I'm just displaying the first 5 in this example.

[clueless]

ahh, of course. *slaps head*
thanks.

[FoxLeader]

...but all the fonts are not TTF. There's at least OTF, but there's another if I recall correctly.

[Intrigued]

You could just use "*.*" instead of the hard-coding the extention. But make sure to error check after you get that table of index, values!

[Mina]

Also,
I think it might be safer to use

Shell.GetFolder(SHF_FONTS) instead of "C:\\Windows\\Fonts\\"

( if your program will be distributed )

hth - I'm not really sure if this is what you're looking for.

result = File.Find("C:\\Windows\\Fonts\\", "*.ttf", false, false, nil, nil);
for x = 1, 5 do
    Dialog.Message("Font: ", ""..result[x], MB_OK)
end 

I'm just displaying the first 5 in this example.