Recuperer l url de mes favoris

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Function ListeAdrFavoris: TStringList;
var
  sltFavoris: TStringList;
  sChemFavoris, sCh: string;
  srR: TSearchRec;
  IniRac: TIniFile;
begin
    sltFavoris:= TStringList.create;
    sChemFavoris:= litChemRepRegist('Favorites');
    if FindFirst(sChemFavoris + '\*.url', faAnyFile , srR) = 0 then
    begin
       Repeat
        try
         IniRac:= TIniFile.create(sChemFavoris + '\' + srR.Name);
         sCh:= IniRac.ReadString('DEFAULT', 'BASEURL','');
         if sCh <> '' then
          sltFavoris.add(sCh);
        finally
          IniRac.free;
        end;
       Until FindNext(srR) <> 0;
    end;
    result:= sltFavoris;
end;