Ajouter un bouton dans la ToolBar d'IE

implementation
uses registry;

{$R *.DFM}

procedure CreateExplorerButton(Path: string);
const
Tagit = '{10954C80-4F0F-11d3-B17C-00C0DFE39736}';
var
Reg: TRegistry;
Path1: string;
Merge: string;
begin
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
Path1 := 'SoftwareMicrosoftInternet ExplorerExtensions';
Merge := Path1 + Tagit;
OpenKey(Merge, True);
WriteString('ButtonText', 'Nouveau');
WriteString('MenuText', 'Tools Menu Item');
WriteString('MenuStatusBar', 'Run Script');
WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('Default Visible', 'Yes');
WriteString('Exec', Path);
WriteString('HotIcon', ',4');
WriteString('Icon', ',3');
end
finally
Reg.CloseKey;
Reg.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateExplorerButton('c:MonApplication.exe');
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour08/05/2002
VisualisationVu 1304 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur