delphi操作ie收藏夹

--------找到源码了
unit Unit3;

interface

uses
  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;

转自：http://topic.csdn.net/u/20111220/14/020a65a9-ef96-4123-837c-ac005fe97b6c.html