收藏夹函数

Dll 文件：shdocvw.dll
源代码网推荐 procedure DoOrganizeFavDlg(h:hwnd;path:pchar);stdcall;external "shdocvw.dll";
源代码网推荐 第二个参数指定收藏夹的位置，如果第二个参数为Nil的话，默认IE得收藏夹位置。
源代码网推荐 AddUrlToFavorites
源代码网推荐 DoAddToFavDlg
源代码网推荐 DoAddToFavDlgW
源代码网推荐 DoFileDownload
源代码网推荐 DoFileDownloadEx
源代码网推荐 DoOrganizeFavDlgW
源代码网推荐 SHAddSubscribeFavorite
源代码网推荐 SetShellOfflineState
源代码网推荐 SoftwareUpdateMessageBox
源代码网推荐 //添加到收藏夹
源代码网推荐 const
源代码网推荐 CLSID_ShellUIHelper: TGUID = "{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}";
源代码网推荐 var
源代码网推荐 ShellUIHelper: ISHellUIHelper;
源代码网推荐 url, title: Olevariant;
源代码网推荐 begin
源代码网推荐 url:="www.csdn.net"
源代码网推荐 title:="中国软件"
源代码网推荐 ShellUIHelper :=CreateComObject(CLSID_SHELLUIHELPER) as IShellUIHelper;
源代码网推荐 ShellUIHelper.AddFavorite(url, title);
源代码网推荐 end;
源代码网推荐 //整理收藏
源代码网推荐 var
源代码网推荐 H: HWnd;
源代码网推荐 p: procedure(Handle: THandle; Path: PChar); stdcall;
源代码网推荐 begin
源代码网推荐 H := LoadLibrary(PChar("shdocvw.dll"));
源代码网推荐 if H <> 0 then
源代码网推荐 begin
源代码网推荐 p := GetProcAddress(H, PChar("DoOrganizeFavDlg"));
源代码网推荐 if Assigned(p) then p(Application.Handle, PChar(favpath));
源代码网推荐 end;
源代码网推荐 FreeLibrary(h);
源代码网推荐 end;
源代码网推荐 ---------
源代码网推荐 导出收藏夹
源代码网推荐 在VB中选择菜单的Project | References 选项，在References对话框中选择Microsoft Internet Controls项，然后在程序中加入以下语句：
源代码网推荐
源代码网推荐 Dim dc As New SHDocVw.ShellUIHelper
源代码网推荐
源代码网推荐 dc.ImportExportFavorites False, "c:a.html"
源代码网推荐 Set dc = Nothing
源代码网推荐 就可以将收藏夹导出到 c:a.htm 中了，如果要从文件导入到收藏夹，只要将上面的False改为True，将"c:a.html"改为要导入的文件名就可以了。