RegistreRésolu

Question

Bonjour,
J'ai créé une fiche et un boutton,
Lorsque l'on clique sur le boutton, le code suivant s'execute :

var
Registre: TRegistry;
begin
  Registre:= TRegistry.Create;
  with Registre do try
    RootKey := HKEY_CLASSES_ROOT;
    OpenKey('Script SG',True);
    WriteString('','Script SG');
    CloseKey;
    OpenKey('Script SG\shell\open\command',True);
    WriteString('',Application.ExeName+' "%1"');
    CloseKey;
    OpenKey('.SG',True);
    WriteString('','Script SG');
    CloseKey;
    OpenKey('Script SG\DefaultIcon',True);
    WriteString('','');
    CloseKey;
    finally
    free;

Comme vous le voyez, à la ligne 17 il n'y a (presque) rien.
J'aimerais que l'icone inclue dans mon fichier RES soit visible sur les fichiers SG, quel code dois-je insérer ?

J'ai essayé avec :
    WriteString('',Application.ExeName+'\Icon\2\0.ico');

(Ceci étant l'adresse de l'icône dans mon fichier RES, sans succès)

Merci d'avance;
Gogo700.

WhiteHippo · Accepted Answer

Bonsoir

Voila ce qui devrait solutionner ton problème.

uses Registry, ShlObj ;

procedure EnregistrerTypeDeFichier
  ( const Extension     : string
  ; const TypeDeFichier : string
  ; const Description   : string
  ; const NomExecutable : string
  ; const IndexIcone    : Integer
  ) ;
var
  Registre : TRegistry;
begin
  Registre := TRegistry.Create;
  with Registre do
  try
    RootKey := HKEY_CLASSES_ROOT ;
    Access  := KEY_WRITE         ;

    OpenKey( Extension, True) ;
    WriteString('', TypeDeFichier);
    CloseKey;

    OpenKey(TypeDeFichier, True);
    WriteString('', Description);
    CloseKey;

    OpenKey(TypeDeFichier + '\DefaultIcon', True);
    WriteString('' + '\DefaultIcon',  AnsiQuotedStr(NomExecutable, '"') + ',' + IntToStr(IndexIcone));
    CloseKey;

    OpenKey(TypeDeFichier + '\Shell\Open', True);
    WriteString('', '&Open');
    CloseKey;

    OpenKey(TypeDeFichier + '\Shell\Open\Command', True);
    WriteString('', AnsiQuotedStr(NomExecutable, '"') + AnsiQuotedStr('%1', '"') );
    CloseKey;

    SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil);
  finally
    Registre.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnregistrerTypeDeFichier
    ( '.sg'
    , 'Script SG'
    , 'Script SG : Blah blah description'
    , Application.ExeName
    , 1
    ) ;
end;


Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein

f0xi · Answer

on devrais toujours mettre aussi :


if openKey() then
   {action}
else
  {erreur registre}


________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?

WhiteHippo · Answer

Bonsoir f0xi

Comme "tout va pour le mieux dans le meilleur des mondes...", le OpenKey fonctionne toujours ! 

N.B. Je sais, je sais, je suis de mauvaise foi . Tu as entièrement raison.

Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein

Gogo700 · Answer

Bonjour,
J'ai une dernière question.
Le code est-t-il tout prêt fait, où j'ai encore des choses dedans à modifier ?

WhiteHippo · Answer

Bonsoir

Soit tu l'utilises tel quel (il est fonctionnel en l'état), soit tu l'améliores pour tester si l'OpenKey s'est correctement executé comme l'a suggérer f0xi. 

Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein

Registre

5 réponses

Votre réponse

Discussions similaires