ASSOCIER UN PROGRAMME À UNE EXTENSION, AVEC ICONE ET NOM

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtDlgs;

type
  TForm1 = class(TForm)
    btnCreer: TButton;
    btnModifierIcone: TButton;
    btnSupprimer: TButton;
    Ouvrir: TOpenPictureDialog;
    procedure btnCreerClick(Sender: TObject);
    procedure btnSupprimerClick(Sender: TObject);
    procedure btnModifierIconeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Uses Registry;

Procedure TForm1.btnCreerClick(Sender: TObject);
Var Registre:TRegistry;
Begin
  Registre:= TRegistry.Create;
  With Registre Do Try
    RootKey := HKEY_CLASSES_ROOT;
    OpenKey('NonoFile',True);
    WriteString('','Les fichiers de Nono');
    CloseKey;
    OpenKey('NonoFile\shell\open\command',True);
    WriteString('',Application.ExeName+' %1');
    CloseKey;
    OpenKey('.Nono',True);
    WriteString('','NonoFile');
    CloseKey;
  Finally
    Free;
  End;
End;

procedure TForm1.btnSupprimerClick(Sender: TObject);
Var Registre:TRegistry;
Begin
  Registre:= TRegistry.Create;
  With Registre Do Try
    RootKey := HKEY_CLASSES_ROOT;
    DeleteKey('NonoFile');
    DeleteKey('.Nono');
  Finally
    Free;
  End;
end;

procedure TForm1.btnModifierIconeClick(Sender: TObject);
Var Registre:TRegistry;
Begin
  If Not Ouvrir.Execute Then Exit;
  Registre:= TRegistry.Create;
  With Registre Do Try
    RootKey := HKEY_CLASSES_ROOT;
    OpenKey('NonoFile\DefaultIcon',True);
    WriteString('',Ouvrir.FileName);
    CloseKey;
  Finally
    Free;
  End;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  If ParamStr(1)<>'' Then ShowMessage('Vous avez sélectionner le fichier :'#13+ParamStr(1));
end;

end.