[perl-win32-gui-users] Getting the browser

[Sean H. <jal...@ho...>]

Due to a message earlier this week, I was thinking about the problem of 
getting a browser preference from the user's registry, so I wrote this:

use Win32::TieRegistry;

sub getProgram
{
	if (my $ext = $_[0])
	{
		if (my $typeName = $Registry->{"HKEY_CLASSES_ROOT\\$ext\\\\"})
		{
			if (my $command = 
$Registry->{"HKEY_CLASSES_ROOT\\$typeName\\shell\\open\\command\\\\"})
			{
				split(/ /, $command);
				return $_[0];
			}
			else { return 0; }
		}
		else { return 0; }
	}
	else { return 0; }
}

You pass in the extension and this returns the path to the associated 
program.  The extension must include the dot (i.e, pass in '.html', not 
'html').

This works on my machine, and you're welcome to use it (or modify it to make 
it work on your system).  It does some basic error checking (makes sure you 
pass in an extension, makes sure the extension exists in the registry, makes 
sure the file type has a command associated with it).  I have not tested 
case sensitivity (I know Windows is not case-sensitive as far as file names 
go, but I don't know if the same applies to the registry).

I'd be glad to hear any feedback.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com