IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

Problème d'associations d'extension via le Registre


Sujet :

Delphi

  1. #1
    Membre actif Avatar de XeGregory
    Homme Profil pro
    Passionné par la programmation
    Inscrit en
    Janvier 2017
    Messages
    300
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Marne (Champagne Ardenne)

    Informations professionnelles :
    Activité : Passionné par la programmation
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Janvier 2017
    Messages : 300
    Points : 265
    Points
    265
    Par défaut Problème d'associations d'extension via le Registre
    Bonjour, depuis peu, je suis confronté à un souci avec l'association de l'extension avec mon programme.

    Windows refuse désormais de prendre en compte l'association d'extensions.

    Les clés de registre ont été créées avec succès, mais l'extension n'est pas liée au programme.

    Je ne comprends pas pourquoi cela fonctionnait si bien avant .

    J'ai testé sur un autre ordinateur avec le système exploitation Windows 10, cela fait la même chose, Les clés de registre ont été créées, mais l'extension n'est pas liée au programme.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    const
      ExtWdoc = 'wdoc';
      RootKey = '\Software\Classes\';
     
    { RegisterFileWdoc }
    procedure TFOptions.RegisterFileWdoc;
    var
      R: TRegistry;
    begin
      R := TRegistry.Create;
      try
        R.RootKey := HKEY_LOCAL_MACHINE;
     
        if R.OpenKey(RootKey + '.' + ExtWdoc, True) then
        begin
          R.WriteString(EmptyStr, ExtWdoc);
          if R.OpenKey(RootKey + ExtWdoc + 'File', True) then
          begin
            R.WriteString(EmptyStr, 'Bibliothèque ' + Application.Title);
            if R.OpenKey(RootKey + ExtWdoc + 'File\DefaultIcon', True) then
            begin
              R.WriteString(EmptyStr, Application.ExeName);
              if R.OpenKey(RootKey + ExtWdoc + 'File\shell\open\command', True) then
                R.WriteString(EmptyStr, '"' + Application.ExeName + '" "%1"');
            end;
          end;
        end;
      finally
        R.Free;
      end;
     
      SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
    end;
    Merci.
    Vous ne pouvez pas faire confiance à un code que vous n'avez pas totalement rédigé vous-même.
    Ce n’est pas un bogue - c’est une fonctionnalité non documentée.

  2. #2
    Rédacteur/Modérateur
    Avatar de Andnotor
    Inscrit en
    Septembre 2008
    Messages
    5 754
    Détails du profil
    Informations personnelles :
    Localisation : Autre

    Informations forums :
    Inscription : Septembre 2008
    Messages : 5 754
    Points : 13 340
    Points
    13 340
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    R.WriteString(EmptyStr, ExtWdoc + 'File');

  3. #3
    Membre actif Avatar de XeGregory
    Homme Profil pro
    Passionné par la programmation
    Inscrit en
    Janvier 2017
    Messages
    300
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Marne (Champagne Ardenne)

    Informations professionnelles :
    Activité : Passionné par la programmation
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Janvier 2017
    Messages : 300
    Points : 265
    Points
    265
    Par défaut
    Oh la boulette ! , En effet, je n'avais pas consulté les versions antérieures du programme, mais la ligne était bien écrite de cette façon.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    R.WriteString(EmptyStr, ExtWdoc + 'File');
    Je ne sais pas ce que j'ai cafouillé, je ne me vois pas modifier cette procédure.

    Merci Andnotor
    Vous ne pouvez pas faire confiance à un code que vous n'avez pas totalement rédigé vous-même.
    Ce n’est pas un bogue - c’est une fonctionnalité non documentée.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 5
    Dernier message: 01/10/2007, 23h27
  2. Associer l'extension au nom du fichier.
    Par Linu6 dans le forum Linux
    Réponses: 4
    Dernier message: 20/08/2007, 23h02
  3. Modifier un paramètre IE via les registres
    Par jpberub dans le forum Windows
    Réponses: 0
    Dernier message: 02/08/2007, 17h28
  4. Réponses: 3
    Dernier message: 10/10/2005, 22h31
  5. [windows]associer une extension à un exécutable ..
    Par peppena dans le forum Windows
    Réponses: 2
    Dernier message: 01/06/2004, 18h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo