delphi操作ie收藏夹？

Question

1、delphi如何模拟点击一下ie右键菜单‘添加到收藏夹’？或者delphi必须自己写添加到收藏夹呢？
2、如何删除一个收藏夹中.url呢
----------------------------------各位大侠最好给源码，嘿嘿

Answer 1

收藏夹就是一个文件夹，url就是一个文件，和操作文件没有区别

Answer 2

--------找到源码了
unit Unit3;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComObj,SHDocVw,SHDocVw_TLB;
const
  CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
type
  TForm3 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);  private
    { Private declarations }
  public
    procedure OrganizeFavorite(Sender: Tobject);
    procedure AddFavorite(Sender: TObject);
    { Public declarations }
  end;var
  Form3: TForm3;
  p:procedure(Handle: THandle; Path: PChar); stdcall;
  FavFolder:string;
implementation
{$R *.dfm}procedure TForm3.OrganizeFavorite(Sender: Tobject);
var
  H: HWnd;
begin
H := LoadLibrary(PChar('shdocvw.dll'));
  if H <> 0 then
  begin
    p := GetProcAddress(H, PChar('DoOrganizeFavDlg'));
    if Assigned(p) then p(Application.Handle, PChar(FavFolder));
  end;
  FreeLibrary(h);
end;
procedure TForm3.AddFavorite(Sender: TObject);
var
ShellUIHelper: ISHellUIHelper;
url, title: Olevariant;
begin
  Title := '我我我我为哦喔喔欧文欧文';
  Url := 'http://sfjslkdjf.com';
  if Url <> '' then
  begin
    ShellUIHelper := CreateComObject(CLSID_SHELLUIHELPER) as IShellUIHelper;
    ShellUIHelper.AddFavorite(url, title);
  end;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
//OrganizeFavorite(Sender);
AddFavorite(Sender);
end;end.