Help for this page

Select Code to Download


  1. or download this
    use Win32::Registry;
    my $Register = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{0
    +34106B5-54B7-467F-B477-5B7DBB492624}';
    my $hkey;
    $HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die print "($!) ($?) ($^E
    +)\n";
    
    $hkey->Close();
    
  2. or download this
    use Win32::Registry;
    my $Register = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall';
    my $hkey;
    $HKEY_LOCAL_MACHINE->Open($Register,$hkey)|| die print "($!) ($?) ($^E
    +)\n";
    
    $hkey->Close();