网址添加到收藏夹代码,运行时报exception class eoleexception错误
各位高手,我想实现一个将指定网址添加到收藏夹,编译的时候没什么问题,但是一执行,就老报错,还请各位帮我看看~ 哪里出了问题? 谢谢~~
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;