在IE上增添一个按钮

作者：昆明 阎磊
源代码网推荐
源代码网推荐 uses registry;
源代码网推荐 var
源代码网推荐 Reg1: TRegistry;
源代码网推荐 begin
源代码网推荐 Reg1:=TRegistry.Create;
源代码网推荐 Reg1.RootKey := HKEY_LOCAL_MACHINE;
源代码网推荐 Reg1.OpenKey("SOFTWAREMicrosoftInternet ExplorerExtensions", True);
源代码网推荐 Reg1.CreateKey("{37E91B47-F40A-11D1-B792-444553540000}");
源代码网推荐 Reg1.OpenKey("SOFTWAREMicrosoftInternet ExplorerExtensions{37E91B47-F40A-11D1-B792-444553540000}", True);
源代码网推荐 Reg1.WriteString("ButtonText", "按钮名称");//按钮名
源代码网推荐 Reg1.WriteString("CLSID","{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}");//系统默认id,是一定，你可以参考网络蚂蚁的
源代码网推荐 Reg1.WriteString("Default Visible", "Yes");//缺省可以
源代码网推荐 Reg1.WriteString("Exec", "F:烟叶Baccy.exe"); //按钮要执行的事件
源代码网推荐 Reg1.WriteString("HotIcon", "C:WIN98WINUPD.ICO");//热图标
源代码网推荐 Reg1.WriteString("Icon", "C:WIN98WEBchang.ico");//图标
源代码网推荐 Reg1.CloseKey;
源代码网推荐 Reg1.Free;
源代码网推荐 end;
源代码网推荐 //本人的运行环境为windows2000 delphi5