Mit Rekursiver-S. auch in versteckten Ordnern Dateien finden

[St.Pauli]

Hi,

ich will ne suchfunktion machen, die auf der festplatte rekursiv auch in versteckten ordnern nach dateien sucht. habe aber kein plan wie ich das machen soll.
habe mir den quelltext für eine suche aus easyhelper geholt.

Code:

procedure GetFilesInDirectory(Directory: String; const Mask: String;
                              List: TStrings;
                              WithSubDirs, ClearList: Boolean);

procedure ScanDir(const Directory: String);
var
  SR: TSearchRec;
begin
  if FindFirst(Directory + Mask, ------> faAnyFile - faDirectory <------ , SR) = 0 then try
    repeat
      List.Add(Directory + SR.Name)
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;

  if WithSubDirs then begin
    if FindFirst(Directory + '*.*', ------> faAnyFile <------ , SR) = 0 then try
      repeat
        if (SR.Attr = faDirectory) and
           (SR.Name <> '.') and (SR.Name <> '..') then
          ScanDir(Directory + SR.Name + '\');
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  end;
end;

begin
  List.BeginUpdate;
  try
    if ClearList then
      List.Clear;
    if Directory = '' then Exit;
    if Directory[Length(Directory)] <> '\' then
      Directory := Directory + '\';
    ScanDir(Directory);
  finally
    List.EndUpdate;
  end;
end;

Ich muss doch die Attribute an den ------> <------ stellen verändern, damit er auch in versteckten ordnern sucht, oder? hab schon soviel ausporb und nix klappt. hoffentlich könnt ihr mir helfen.

__________________________________________________ _________________________
PS: keine angst, ------> <------ hab ich nicht in meinem Prog stehen, hab sie nurma für hier eingefügt