Help for this page

Select Code to Download


  1. or download this
    use Win32::TieRegistry( Delimiter=>"#", ArrayValues=>0 );
my $pound = $Registry->Delimiter("/");

...
foreach $key (keys %$BaseKey)
{ print"$key: " . $BaseKey->{"$key"} . "\n"
}
  2. or download this
    $SubbyKey = $Registry->Open("HKEY_CLASSES_ROOT/Installer/Patches/".$ke
+y."SourceList/", {Access=> 0x20019|0x0100});
print $SubbyKey->{'PackageName'}."\n";