Re: Enumerate Win32 Fonts

Are you running activestate? I found an old note about a bug. It's old so they either never solved it or it was re-introduced.

I ran your code and the code mentioned in the link with strawberry perl. When I ran it with Activestate, both blew up with the mentioned error.

Comment on Re: Enumerate Win32 Fonts

Replies are listed 'Best First'.
Re^2: Enumerate Win32 Fonts by slloyd (Hermit) on Jan 22, 2008 at 15:47 UTC
I am running ActiveState `This is perl, v5.8.8 built for MSWin32-x86-multi-thread (with 50 registered patches, see perl -V for more detail) Copyright 1987-2006, Larry Wall Binary build 820 [274739] provided by ActiveState http://www.ActiveSta +te.com Built Jan 23 2007 15:57:46` [download] ------------------------------- Need a good Perl friendly Host Provider? http://www.dreamhost.com	[reply] [d/l]
Re^2: Enumerate Win32 Fonts by slloyd (Hermit) on Jan 24, 2008 at 00:00 UTC
I finally ended up having to go to Win32API::Registry to make this work. `use strict; $\|=1; use Win32API::Registry qw( :ALL ); my ($key, $uIndex, $name, $nameLength, $type, $data, $dataLength ); my $ok=RegOpenKeyEx( HKEY_LOCAL_MACHINE , "SOFTWARE\\Microsoft\\Window +s NT\\CurrentVersion\\Fonts", 0, KEY_READ, $key ); if($key){ my $uIndex=0; do{ RegEnumValue ( $key, $uIndex, $name, $nameLength, [], $type, +$data, $dataLength ); print "$name=$data\r\n"; $uIndex++; } while(!regLastError()); } RegCloseKey( $key );` [download] ------------------------------- Need a good Perl friendly Host Provider? http://www.dreamhost.com	[reply] [d/l]