你的Delphi社区

各位高手,我想实现一个将指定网址添加到收藏夹,编译的时候没什么问题,但是一执行,就老报错,还请各位帮我看看~ 哪里出了问题? 谢谢~~

procedure TForm1.Button1Click(Sender: TObject);
  const
  CLSID_ShellUIHelper:TGUID='{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
  var
  ShellUIHelper:ISHellUIHelper;
  url,title:Olevariant;

begin
  url:='www.sohu.com';
  title:='搜狐';
  ShellUIHelper:=CreateComObject(CLSID_SHELLUIHELPER) as IShellUIHelper;
  ShellUIHelper.AddFavorite(url,title);//执行到这句报错
end;

http://