Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Работа с сетью / Как получить закладки из IE ?

Как получить закладки из IE ?

function GetIEFavourites(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; 
 //Get all file names in the favourites path 
 path:=FavPath+'\*.url'; 
 dir:=ExtractFilepath(path); 
 found:=FindFirst(path,faAnyFile,searchrec); 
 while found=0 do begin 
  //Get now URLs from files in variable files 
  SetString(filename, Buffer, GetPrivateProfileString('InternetShortcut', 
  PChar('URL'), NIL, Buffer, SizeOf(Buffer), PChar(dir+searchrec.Name))); 
  str.Add(filename); 
  found:=FindNext(searchrec); 
 end; 
 //unterordner finden 
 found:=FindFirst(dir+'\*.*',faAnyFile,searchrec); 
 while found=0 do begin 
  if ((searchrec.Attr and faDirectory) > 0) and (searchrec.Name[1]<>'.') then 
  str.AddStrings(GetIEFavourites(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:=GetIEFavourites(StrPas(FavPath)); 
end; 

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru