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 );
|