[Delphi] CMDFonts

[Kulverstukas]

Well after reading this article I thought I'd make an app that would write all the fonts on my computer to that registry key so that I have all TT fonts in CMD.
When I tried, it worked - fonts are written to the registry, although they don't seem to appear in CMD, even after reboot - only 1 font appeared and that was it.

I'm using WinXP SP3. Maybe someone else could test it out and report if it worked?

Compiled Exe: CMDFonts.exe
Project: CMDFonts.zip

EDIT: yeah after another careful read I noticed it says "monospace", not "TrueType", althought the key you put values in is named "TrueTypeFont"... weird so this is why only 1 font appeared.... oh well. Nvm, maybe you people have more than one xD