Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
5 - ASSOCIER ICONE

PRÉSENTATION : Associer une icône à une extension afin d'ouvrir votre application directement en double-cliquant sur le document.
ZIP : Téléchargez le zip APERÇUS :

NOTES : Je n'ai rien à ajouter...
Mis à jour le 15/03/2003 : correction d'un bug sous Window2000/XP, %1 a été remplacé par "%1", merci à S.Lune pour l'information.

CODE :
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.

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -