Bonjour,
je suis debutant en delphi et
j'essaye de lister le contenu d'un dossier (les fichier .dot) et de mettre le resultat dans une combobox

j'ai essaye le code suivant trouve sur un site, mais il ne liste rien, (ou alor je ne l'utilise pas correctement...) :

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
26
27
28
29
30
 
 procedure Dir(FileName: String; Attr: Integer; ListDir: TStrings);
 var 
  SearchRec: TSearchRec;
 begin 
   ListDir.Clear;
   if FindFirst(FileName, Attr, SearchRec) = 0 then begin 
     ListDir.Add(ExtractFilePath(FileName) + SearchRec.Name);
     While FindNext(SearchRec) = 0 do 
       ListDir.Add(ExtractFilePath(FileName) + SearchRec.Name);
     FindClose(SearchRec);
   end;
 end;
 
 
 
 
 
Procedure TForm1.ListeLeDossierWinSystem;
var 
  MaListe: TStringList;
begin 
  MaListe := TStringList.Create;
  Try
    Dir('C:\Windows\system\*.dll', faAnyfile, MaListe); // Liste les DLL du dossier System 
    {* Ici on peut faire ce qu'on veut du contenu de MaListe *}
  Finally
    MaListe.Free;
  end;
end;
de plus, je ne sais pas comment je dois declarer la procedure

Code : Sélectionner tout - Visualiser dans une fenêtre à part
procedure Dir(FileName: String; Attr: Integer; ListDir: TStrings); ?
quelqu'un aurait il des info ?

merci davance