Thread Alle installierten Schriftarten in array schreiben (Win32)
(17 answers)
Opened by Kean at 2011-05-23 10:58
Das Modul sieht nicht schlecht aus. Die Beispiele in der Doku funktionieren bei mir aber leider nicht:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 use Win32::Fonts::Info; my $F=Win32::Fonts::Info->new(); my $truetypefonts = $F->GetTrueTypeFonts(); foreach (keys %{$truetypefonts}) { print $_ . "=" . %{$truetypefonts}->{$_} . "\n"; } Auf den Code folgt keine Ausgabe. |