#!/usr/bin/perl
use strict;
use warnings;
use Win32::TieRegistry;

$Registry->Delimiter('/');
my $NomExtension = 'FichierDVP';

# Suppression des clés si présentes
$Registry->FastDelete(1);
delete $Registry->{"HKEY_CLASSES_ROOT/$NomExtension/DefaultIcon/"};
delete $Registry->{"HKEY_CLASSES_ROOT/$NomExtension/shell/open/command/"};
delete $Registry->{"HKEY_CLASSES_ROOT/$NomExtension/shell/open/"};
delete $Registry->{"HKEY_CLASSES_ROOT/$NomExtension/shell/"};
delete $Registry->{"HKEY_CLASSES_ROOT/$NomExtension/"};
delete $Registry->{"HKEY_CLASSES_ROOT/.dvp/"};

# Création des nouvelles clés
# Clé .dvp
$Registry->{"HKEY_CLASSES_ROOT/.dvp/"} = { '/' => $NomExtension };

# Clé FichierDVP
$Registry->{"HKEY_CLASSES_ROOT/$NomExtension/"} = {
	'DefaultIcon' => {
		'/' => 'C:\Temp\developpez.ico',
	},
	'shell' => {
		'open' => {
			'command' => {
				'/' => 'C:\Program Files\Notepad++\notepad++.exe "%1"'	
			}	
		},
	}
};