100分－－－如何打开整理收藏夹 这个面板

Question

就是IE菜单兰上面的Favouriate－－－Organize Favourate 这个咚咚

Answer 1

以前看到的
Dll 文件：shdocvw.dll
procedure DoOrganizeFavDlg(h:hwnd;path:pchar);stdcall;external 'shdocvw.dll';
第二个参数指定收藏夹的位置，如果第二个参数为Nil的话，默认IE得收藏夹位置。
AddUrlToFavorites
DoAddToFavDlg
DoAddToFavDlgW
DoFileDownload
DoFileDownloadEx
DoOrganizeFavDlgWSHAddSubscribeFavoriteSetShellOfflineStateSoftwareUpdateMessageBox//添加到收藏夹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.ShellUIHelperdc.ImportExportFavorites False, "c:\a.html"Set dc = Nothing就可以将收藏夹导出到 c:\a.htm 中了，如果要从文件导入到收藏夹，只要将上面的False改为True，将"c:\a.html"改为要导入的文件名就可以了。