Windows 7 doesn't come with Tips. Below I picked a different Registry key that I find often fills up with simple text data and also only asked for 'read' access:
use Win32::TieRegistry( Delimiter => '/' );
sub isExist{
my $tips= $Registry->Open(
"HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/
+Run/",
{ Access => 'KEY_READ' },
)
or die "Can't find the 'Run' key: $^E\n";
foreach( keys %$tips ) {
print "$_: ", $tips->{$_}, "\n";
}
}
isExist();
It works for me on Windows 7. But it wouldn't work if you don't even have 'read' access to that part of the Registry (seems unlikely). And it will report nothing if you don't have any "Run" entries (I've never been so lucky).
