发信人: leezy (【HIT】穆子), 信区: BorlandDev
标  题: 获取IE收藏夹内容
发信站: 哈工大紫丁香 (2002年01月19日15:50:05 星期六), 站内信件

摘　要：如何从MSIE递归的读取保存的URL!
关键字：Internet-Explorer 收藏夹
类　别：网络


中文开发在线原创作品，未经允许，严禁任何形式的转载
uses shlobj;
...
function GetIEFavorites(const favpath: string):TStrings;
var searchrec:TSearchrec;
    str:TStrings;
    path,dir,filename:String;
    Buffer: array[0..2047] of Char;
    found:Integer;
begin
  str:=TStringList.Create;
  //取在favourites 路径下的所有名字
  path:=FavPath+'\*.url';
  dir:=ExtractFilepath(path);
  found:=FindFirst(path,faAnyFile,searchrec);
  while found = 0 do
  begin
    //从files变量读URLs
    SetString(filename, Buffer,
              GetPrivateProfileString('InternetShortcut',
              PChar('URL'), NIL, Buffer, SizeOf(Buffer),
              PChar(dir+searchrec.Name)));
    str.Add(filename);
    found := FindNext(searchrec);
  end;
  found:=FindFirst(dir+'\*.*',faAnyFile,searchrec);
  while found=0 do
  begin
    if ((searchrec.Attr and faDirectory) > 0) and
        (searchrec.Name[1]<>'.') then
      str.AddStrings(GetIEFavorites(dir+'\'+searchrec.name));
    found := FindNext(searchrec);
end;
FindClose(searchrec);
Result:=str;
end;
procedure TForm1.Button1Click(Sender: TObject);
var pidl: PItemIDList;
    FavPath: array[0..MAX_PATH] of char;
begin
  //获取收藏夹
  SHGetSpecialFolderLocation(Handle, CSIDL_FAVORITES, pidl);
  SHGetPathFromIDList(pidl, favpath);
  ListBox1.Items:=GetIEFavorites(StrPas(FavPath))
end;
--
°★．☆° ．★·°∴°★．°·∴°☆ ·°∴° ☆．．·°∴°．☆°★°∴°

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.230.122]