怎么实现像“网络魔神”中的添加收藏夹（和ie的一样）功能

Question

iolecommandtarget接口怎么用
我用了webrowse

Answer 1

uses mshtml, ActiveX;procedure TForm1.Button1Click(Sender: TObject);
const
 CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
var
  ShellUIHelper: IShellUIHelper;
  Url, Title: Olevariant;
begin
  Title := WebBrowser1.LocationName;
  if Assigned(WebBrowser1.Document) then
    try
      Title := (WebBrowser1.Document as IHTMLDocument2).Title;
    except
    end;
  Url := WebBrowser1.LocationUrl;
  if Url <> '' then begin
    CoCreateInstance(CLSID_SHELLUIHELPER, nil, CLSCTX_INPROC_SERVER,
      IID_IShellUIHelper, ShellUIHelper);
    ShellUIHelper.AddFavorite(Url, Title);
  end;
end;