delphi Webbrowser添加到收藏夹

uses ActiveX,ComObj;

const

CLSID_ShellUIHelper: TGUID = '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';

procedure AddFavorite(Webbrowser:TWebBrowser);

var

ShellUIHelper: ISHellUIHelper;

url, title: Olevariant;

begin

Title := Webbrowser.LocationName;

Url := Webbrowser.LocationUrl;

if Url <>'' then

begin

ShellUIHelper := CreateComObject(CLSID_SHELLUIHELPER) as IShellUIHelper;

ShellUIHelper.AddFavorite(url, title);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

AddFavorite(WebBrowser1);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

WebBrowser1.Navigate('http://www.delphitop.com');

end;

推荐分享