gopalr has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks

I am using Windows and I need to get installed all fonts name.

Please advise me.

Thanks
Gopal R.

Replies are listed 'Best First'.
Re: Get Windows Installed Fonts
by jbrugger (Parson) on Feb 23, 2006 at 05:43 UTC
    Windows stores the fonts in \windows\fonts, perhaps you could do a list there, and seek out the names?
    e.g. arial.ttf and arialbd.ttf are two fonts you could see (arial and arial bold).

    Or perhaps Win32::GuiTest::Examples can help you (see eg/fonts.pl).

    "We all agree on the necessity of compromise. We just can't agree on when it's necessary to compromise." - Larry Wall.
[reply]
      use Tk;
my $mw = MainWindow->new(-title => "Fonts");
my @fonts=  sort keys { map {$_, 1}  @{$mw->fontFamilies}}

      [download]
[reply]
[d/l]
Re: Get Windows Installed Fonts
by renodino (Curate) on Feb 23, 2006 at 15:38 UTC
[reply]

Back to Seekers of Perl Wisdom