Lister les raccourcis d'un dossier

Version imprimable

Bonjour à tous !

Je n'ai jamais vu aucun sujet traitant mon problème, c'est pourquoi je l'expose ici :king:

J'aimerais lister tous les raccourcis du bureau, et je ne sais pas comme faire :roll:
Pour avoir les fichiers exposés sur le bureau, il suffit de se rendre dans le dossier "Bureau" des documents personnels de la session, pour ça, aucun problèmes.
Après, j'essai de lister les fichiers ".lnk" mais aucun résultats :(

J'ai utilisé le code de la FAQ :
Code:

1 2 3 4 5 TStringList *Extensions = new TStringList; // On construit la liste des extensions Extensions->Add(".lnk"); // Appel à notre méthode, avec pour liste des fichiers, les items de la ListBox. Search(CheminSpecialFolder(CSIDL_DESKTOP), Extensions, ListBox1->Items); delete Extensions;
Quelqu'un à t'il une idée ?
Merci d'avance,
FluidBlow

19/05/2007, 20h15
Altau

Es-tu sûr de devoir mettre un . devant lnk dans l'appel à Extensions->Add ?

Citation:

Envoyé par Altau

Es-tu sûr de devoir mettre un . devant lnk dans l'appel à Extensions->Add ?

Oui bien sur, mais j'avais oublié de préciser dans le sujet que le .h contenait

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void TForm1::Search(AnsiString FilePath, TStringList * Extensions, TStrings * ListeFichiers)
{
  TSearchRec Infos_fichier;
  if (!FindFirst(FilePath+"*.*", faAnyFile, Infos_fichier))
 
  do
  {
    for (int i = 0 ; i < Extensions->Count ; i++)
    {
      if (ExtractFileExt(Infos_fichier.Name).LowerCase() == Extensions->Strings[i].LowerCase())
      {
        ListeFichiers->Add(ExpandFileName(Infos_fichier.Name));
      }
    }
  }
  while(!FindNext(Infos_fichier));
 
  FindClose(Infos_fichier);
}