unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Shlobj; type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end; var
Form1: TForm1; implementation

{$R *.dfm}

function GetIEFave(const FavPath: string):TStrings;
var
Searchrec : TSearchrec;
Str : TStrings;
Path,
Dir,
Filename : String;
Buffer : Array[0..2047] of Char;
SResult : Integer; begin
Str := TStringList.Create;
Path := FavPath+'\*.url';
Dir := ExtractFilepath(path);
SResult :=FindFirst(path,faAnyFile,searchrec);
while SResult=0 do
begin
SetString(filename, Buffer, GetPrivateProfileString('InternetShortcut',
PChar('URL'), NIL, Buffer, SizeOf(Buffer), PChar(dir+searchrec.Name)));
Str.Add(filename);
SResult := FindNext(searchrec);
end;
SResult:=FindFirst (dir+'*.*',faAnyFile,searchrec);
while SResult=0 do
begin
if ((searchrec.Attr and faDirectory) > 0)
and (searchrec.Name[1]<>'.') then
Str.AddStrings(GetIEFave(dir+''+searchrec.name));
SResult:=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);
memo1.Lines:=GetIEFave(StrPas(FavPath));
end; end.