- 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;
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;