• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

收藏夹函数 _Delphi

Delphi 搞代码 3年前 (2018-08-09) 200次浏览 已收录 0个评论

Dll 文件:shdocvw.dll
procedure DoOrganizeFavDlg(h:hwnd;path:pchar);stdcall;external ‘shdocvw.dll’;
第二个参数指定收藏夹的位置,如果第二个参数为Nil的话,默认IE得收藏夹位置。
AddUrlToFavorites
DoAddToFavDlg
DoAddToFavDlgW
DoFileDownload
DoFileDownloadEx
DoOrganizeFavDlgW
SHAddSubscribeFavorite

http://www.gaodaima.com/?p=65883收藏夹函数 _Delphi

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"改为要导入的文件名就可以了。 

欢迎大家阅读《收藏夹函数 _Delphi,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址