QUICK TIPS: Recuperar Favoritos do IE

Ol� galera,

Vamos falar neste QUICK TIPS, como pegar os Favoritos do IE. Como todos sabem e poss�vel salvar nos navegadores os link das sites que voc� acha interessante como favoritos. Bem o que muita gente talvez n�o saiba e que voc� pode recuperar este lista atrav�s do Delphi. O mais legal � que a API do Windows, que n�o � pequena j� nos fornece um mecanismo para isso.

D� uses em ShlObj;

Declare a seguinte Function

function GetIEFavoritos(const favpath: string):TStrings;
var
searchrec:TSearchrec;
S:TStrings;
path,dir,filename:String;
Buffer: array[0..2047] of Char;
found:Integer;
begin
S:=TStringList.Create;
path:=FavPath+'\*.url';
dir:=ExtractFilepath(path);
found:=FindFirst(path,faAnyFile,searchrec);
while found=0 do
    begin
       SetString(filename, Buffer, GetPrivateProfileString('InternetShortcut', PChar('URL'), NIL, Buffer, SizeOf(Buffer), PChar(dir+searchrec.Name)));
    S.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
    S.AddStrings(GetIEFavoritos(dir+'\'+searchrec.name));
    found:=FindNext(searchrec);
end;
FindClose(searchrec);
Result:=S;
end;

A vari�vel searchrec � um TSearchRec que � uma classe do Delphi para ler todos os arquivos a partir de uma determinada m�scara. Serve basicamente para fazer buscas atr�s de um arquivo qualquer. J� faAnyFile � a constante usada pelo Windows para definir que o que voc� est� procurando... existem outras como faDirectory, aArchive , etc.

O retorno de FindFirst/FindNext � 0 quando um arquivo � encontrado. Caso contr�rio, o retorno � uma mensagem de erro. TSearchRec pode retornar tamb�m diret�rios, se voc� quiser fazer uma busca incluindo sub-diret�rios.

No Clique de um bot�o, por exemplo, coloque o c�digo abaixo

var pidl: PItemIDList;
   FavPath: array[0..MAX_PATH] of char;
begin
SHGetSpecialFolderLocation(Handle, CSIDL_FAVORITES, pidl);
SHGetPathFromIDList(pidl, favpath);
ListBox1.Items:= GetIEFavoritos (StrPas(FavPath));
End;

At� a pr�xima.

Wesley Y

QUICK TIPS: Recuperar Favoritos do IE

Vamos falar neste QUICK TIPS, como pegar os Favoritos do IE.

Artigos relacionados