in reply to Get Windows Installed Fonts

While it won't precisely solve your problem, Win32::Font::NameToFile might have some code you can borrow.

In Section Seekers of Perl Wisdom