Ajouter un bouton dans internet explorer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 790 fois - Téléchargée 33 fois

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

Ajouter un commentaire

Commentaires

Messages postés
460
Date d'inscription
dimanche 5 décembre 2004
Statut
Membre
Dernière intervention
6 avril 2009
2
Bonjour,

J'ai essayé d'utilisé le code, et j'aimerai pouvoir avec l'appui d'un bouton sur une fiche installer mon new bouton (déjà paramétré) dans iexploreur.

Le code tel qu'il est présenté ne le permet pas ou alors incomplet.

Cincap
Messages postés
199
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
10 septembre 2020
7
bonjour
d'abord je ne suis qu'un amateur ,ce qui expliquerait qu'une évidence pour vous ne l'est pas pour moi :) .
trés bonne source dont je m'inspire pour faire un prog pour ajouter des boutons dans IE (ça servira sans doute a rien mais c'est pour comprendre).
j'aimerais pouvoir choisir l'icone dans un EXE ou DLL ...
WriteString('Icon', 'c:\maDLL.dll ,4'); //Icone par défaut
ne marche pas le ',nombre' ne lit apparament que dans shell32.dll
je suis donc obligé d'extraire l'icone pour l'écrire dans
WriteString('Icon', 'c:\nomIcone.ico'); //Icone par défaut .
ce qui est un lourd (surtout quand on supprime ce bouton de IE)
savez vous pourquoi 'c:\maDLL.dll ,4' ne marche pas
merci
Messages postés
323
Date d'inscription
lundi 24 février 2003
Statut
Membre
Dernière intervention
17 mai 2005

DropF, t'es notre google national :D

C'est vraiment bien ces tuts' je n'étais même pas au courant de leur existence :(

En plus, c'est de l'anglais compréhensible de tous je pense, c'est super !
Messages postés
18
Date d'inscription
dimanche 26 janvier 2003
Statut
Membre
Dernière intervention
28 avril 2005

Les mecs, vous trouverez absolument toutes les explications à cette adresse : http://msdn.microsoft.com/workshop/browser/ext/tutorials/button.asp (c'est encore une nouvelle adresse, mais encore plus complète ;))
Messages postés
323
Date d'inscription
lundi 24 février 2003
Statut
Membre
Dernière intervention
17 mai 2005

Mouarf fausse joie :

Merci quand même pour les commentaires.
Afficher les 12 commentaires

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.