FindFirst findet versteckte Dateien nicht

[storm1988]

Hi

Um einen gewünschten Ordner nacht dessen Unterordner und Dateien zu durchsuchen hab ich folgendes gecoded

Delphi-Quellcode:

procedure tform1.FindFilesTree (aPath: String);
Var
    SearchRec: tSearchRec;
    awithFiles :Boolean;
Begin

try
   aWithFiles := True;

  If aPath [Length (aPath)] <> '\' Then
    aPath := aPath + '\';
  If FindFirst (aPath + '*.*', faDirectory, SearchRec) = 0 Then
    Begin
      Repeat

        If (SearchRec.Attr and faDirectory = faDirectory)
          and (SearchRec.Name[1] <> '.')
        Then
          Begin
            If (SearchRec.Attr and faDirectory > 0) then
              Begin

                        FindFilesTree(aPath + SearchRec.Name);

              End;

          End
        Else

          If aWithFiles
            and (SearchRec.Name <> '.') and (SearchRec.Name <> '..')
          Then
            Begin


            End;

      Until FindNext (searchRec) <> 0;

      FindClose (SearchRec);
    End;
Except
    exit;
end;
End;

Mein Problem ist jetzt, dass ich mit diesen Source keine versteckten Datein finde! Wie schaffe ich das jetzt, dass er auch diese findet?

Mfg st0rm