Discussion :

[cedni]

Salut

Je souhaite importer mes favoris .url dans mon programmes , je coince au moment de recuperer l url
Je sais que je pourrais faire un shell execute et la recuperer mais ca ferait pas tres propre
Targetpath , targeturl , shortcut , properties , j ai utilisé ces mots là sur le net mais il n y a pas grand chose .
Qulequn aurait dejà rencontré ce probleme ?

Bonne journée

[cedni]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;