ie问题

[susandy]

procedure TForm1.FlatButton3Click(Sender: TObject); // //定义该键的事件
var reg:tregistry;
app:string;
begin
app:=extractfilepath(paramstr(0));
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\Software\Microsoft\Internet Explorer\Extensions\{FB5F1910-F110-11d2-BB9E-00C04F795683}',True)then
begin
//下面这处的GUID值是不是特定的，我用GUIDGEN.EXE生成的其他值放在这里都不
//行，哪位老兄帮帮忙解释一下如何做
Reg.WriteString('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
Reg.WriteString('Exec',app+'project1.exe');
Reg.WriteString('HotIcon',app+'p.ico');
Reg.WriteString('Icon',app+'p.ico');
Reg.WriteString('ButtonText','广告拦截');
Reg.WriteString('MenuText','拦截');
Reg.WriteString('Default Visible','Yes');
end
else
Reg.WriteString('Default Visible','No');

finally
Reg.Closekey;
Reg.Free;
end;
end;