S
slowly2006
Unregistered / Unconfirmed
GUEST, unregistred user!
各位高手,我想实现一个将指定网址添加到收藏夹,编译的时候没什么问题,但是一执行,就老报错,还请各位帮我看看~ 哪里出了问题? 谢谢~~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;