procedure TForm1.BitBtn1Click(Sender: TObject);
var
rg:Tregistry;
begin
rg:=Tregistry.create;
rg.rootkey:=HKEY_LOCAL_MACHINE;
rg.openkey('SOFTWARE/MICROSOFT/INTERNET EXPLORER/EXTENSIONS/{0713E8D2-850A-101B-AFC0-4210102A8DA7}',true);
rg.writestring('BUTTONTEXT',Ewenzi.text); //图标按钮文字
rg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}'); //这个全球唯一定位符可以自己生成
rg.writestring('DEFAULT VISIBLE','YES');
rg.writestring('EXEC',Echxu.text); //对应的可执行文件
rg.writestring('ICON',Etubiao1.text); //静止图标文件
rg.writestring('HOTICON',Etubiao2.text); //浮动图标文件
rg.closekey;
rg.free;
end;
]。
]