Ajouter un bouton dans internet explorer

Commenter

Contenu du snippet

Ce code permet d'ajouter un bouton dans la barre contenant les boutons standard d' Internet Explorer

Source / Exemple : 


uses Registry;

procedure TForm1.CreateExplorerButton(Path: string);
const
  Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
  Reg: TRegistry;
  Path1: string;
  Merge: string;
begin
  Path := '%SystemRoot%\System32\calc.exe'; //Lien vers le logiciel à executer suite au clic sur le bouton
  Reg := TRegistry.Create; //On ouvre le registre
  try
    with Reg do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      Path1 := 'Software\Microsoft\Internet Explorer\Extensions'; //Adresse du sous répertoire de Internet Explorer dans le registre ou seront stokées les info
      Merge := Path1 + Tagit;
      OpenKey(Merge, True);
      WriteString('ButtonText', 'Calculatrice');   //Hint du bouton
      WriteString('MenuText', 'Calculatrice');   //Texte dans la section Outils du Menu
      WriteString('MenuStatusBar', 'Exécuter la calculatrice');   //Message qui s'affiche dans la statusbar au survol du texte dan le menu
      WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
      WriteString('Default Visible', 'Yes');   //Bouton vu au démarrage de Internet Explorer
      WriteString('Exec', Path );   //Sépécifie ce que doit exécuter le clic sur le bouton
      WriteString('HotIcon', ',4');   //Icone lorsque la souris survole le bouton
      WriteString('Icon', ',4');   //Icone par défaut
{On peut remplacer ',4' par l'adresse d'une icone ex : 'C:\icone.ico' }
    end
  finally
    Reg.CloseKey;   //On ferme le registre
    Reg.Free;   //On libère le registre
  end;
end;

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_darkduck)