Select Code to Download

#!/usr/bin/perl -w
#
...
print "Deleting label '$label' ...\n";
my $result = delete($h_shell->{$label});
print "Result of delete:  '$result'\n";

    [+]-### FName.Factoid
    [+]-### FName.Factoid.2
...
     |  [+]-### shellex
    [+]-### fonfile
    [+]-### FormHost.FormHost

D:\Tools\rmfolder>regtest.pl
[Values for 'HKEY_CLASSES_ROOT/Folder/shell']
...
Deleting label 'xyzzy_1' ...
Result of delete:  'The system cannot find the file specified.
'