1:
2:
3:
4:
5:
6:
7:

if (FindFirst(ADirectory+AMask,faAnyFile-faDirectory,SR)=0) then begin
    repeat
      if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr<>faDirectory) then
          AList.Add(ADirectory+SR.Name)
    until FindNext(SR)<>0;
    FindClose(SR);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//FindFirst erwartet 3 Parameter:
//          Das Verzeichnis, welches durchsucht werden soll, sowie den Dateinamen.
//          In deinem Falle *.png (* = Wildcard)
//          im zweiten Parameter gibst du an, welche Art von Datei/Ordner er auflisten soll/darf
//      der letzter Parameter ist eine Art Liste, in der die Funde gespeichert werden
if (FindFirst(ADirectory+AMask,faAnyFile-faDirectory,SR)=0) then begin
    //Wiederhole solang
    repeat
      //Wenn der Fund (Dateiname) nicht . .. und kein Verzeichnis ist, dann
      if (SR.Name<>'.') and (SR.Name<>'..') and (SR.Attr<>faDirectory) then
          //Füge die Datei der Liste hinzu
          AList.Add(ADirectory+SR.Name)
    until FindNext(SR)<>0; //bis nichts mehr gefunden wurde
    //"Suchergebnis schließen"
    FindClose(SR);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Beschreibung

FindFirst sucht im Verzeichnis Path nach dem ersten Eintrag, der mit dem angegebenen Dateinamen und den festgelegten Attributen übereinstimmt. Das Ergebnis wird im Parameter F zurückgegeben. Den Feldern dieses Datensatzes können Sie die benötigten Informationen entnehmen. FindFirst gibt im Erfolgsfall 0 zurück, ansonsten einen Fehlercode.

Der Konstantenparameter Path enthält das Verzeichnis und die Dateinamensmaske. Es können auch Platzhalterzeichen verwendet werden. '.\test\*.*' gibt beispielsweise alle Dateien im aktuellen Laufwerk an.

Der Parameter Attr gibt an, welche speziellen Dateien zusätzlich zu den normalen Dateien angezeigt werden. Die folgenden Konstanten können verwendet werden:

Konstante  Beschreibung
faReadOnly  Schreibgeschützte Datei
faHidden  Verborgene Datei
faSysFile  Systemdatei
faVolumeID  Laufwerks-ID
faDirectory  Verzeichnis
faArchive  Archivdatei
faAnyFile  Beliebige Datei
Sie können auch mehrere Attribute kombinieren, indem Sie die betreffenden Konstanten hinzufügen (Delphi) bzw. eine ODER-Verknüpfung (C++) durchführen. Soll beispielsweise zusätzlich zu den normalen auch nach schreibgeschützten und versteckten Dateien gesucht werden, übergeben Sie als Parameter Attr in Delphi den Wert (faReadOnly + faHidden) bzw. in C++ den Wert (faReadOnly | faHidden).