Ajouter un bouton dans internet explorer

5/5 (12 avis)

Snippet vu 14 026 fois - Téléchargée 35 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
cincap Messages postés 460 Date d'inscription dimanche 5 décembre 2004 Statut Membre Dernière intervention 6 avril 2009 2
30 oct. 2006 à 11:21
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
papyvore Messages postés 223 Date d'inscription samedi 15 novembre 2003 Statut Membre Dernière intervention 16 décembre 2021 15
10 janv. 2006 à 10:44
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
pyroflo Messages postés 323 Date d'inscription lundi 24 février 2003 Statut Membre Dernière intervention 17 mai 2005
3 sept. 2003 à 14:54
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 !
DropF Messages postés 18 Date d'inscription dimanche 26 janvier 2003 Statut Membre Dernière intervention 28 avril 2005
3 sept. 2003 à 14:36
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 ;))
pyroflo Messages postés 323 Date d'inscription lundi 24 février 2003 Statut Membre Dernière intervention 17 mai 2005
3 sept. 2003 à 13:39
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.