Discussion :

[FluidBlow]

Bonjour à tous !

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

J'aimerais lister tous les raccourcis du bureau, et je ne sais pas comme faire
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 :

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

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

[Altau]

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

[FluidBlow]

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 :

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
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);
}