这个程序很简单。
procedure TForm1.Button1Click(Sender: TObject);
reg:Tregistry;
begin
reg:=Tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('SOFTWARE/MICROSOFT/INTERNET EXPLORER/EXTENSIONS/{0713E8D2-850A-101B-AFC0-4210102A8DA7}',true);
reg.writestring('BUTTONTEXT',Ewenzi.text);
reg.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
reg.writestring('DEFAULT VISIBLE','YES');
reg.writestring('EXEC',Echxu.text);
reg.writestring('ICON',Etubiao1.text);
reg.writestring('HOTICON',Etubiao2.text);
reg.closekey;
reg.free;
end;