求一个设置ie为默认浏览器的代码，不要告诉我用注册表，我知道，但是我不知道怎么写代码

Question

求一个设置ie为默认浏览器的代码，不要告诉我用注册表，我知道，但是我不知道怎么写代码

Answer 1

不会写，自己去google，这点本事都么有，还干什么程序

Answer 2

Uses      Registry ;procedure TfrmMain.SetHomePage(Url: String);
var
    Rt: TRegistry ;
begin
    Rt := TRegistry.Create;
    Rt.RootKey := HKEY_CURRENT_USER;
    Rt.OpenKey('Software\Microsoft\Internet Explorer\Main',true);
    Rt.WriteString('Start Page',Url);
    Rt.Free;
end;procedure TfrmMain.FormShow(Sender: TObject);
begin
    SetHomePage('http://www.prize8.com');
end;引用：为什么不自己找找呢？这类资料挺多的

Answer 3

http://apps.hi.baidu.com/share/detail/468181