Platzhalter in FindFirst/FindNext

[nahpets]

Für den Fall, dass das Dateisystem NTFS sein sollte, so reicht faAnyFile nicht aus. Vom Filesystem komprimierte Dateien werden damit nicht gefunden.

Bei mir sieht das in 'ner entsprechenden Klasse so aus (Ausschnitt):

Delphi-Quellcode:

Var
  sr                  : TSearchRec;
  FileAttrs           : Integer;
Begin
  FileAttrs :=             SysUtils.faReadOnly;
  FileAttrs := FileAttrs + SysUtils.faHidden;
  FileAttrs := FileAttrs + SysUtils.faSysFile;
  FileAttrs := FileAttrs + SysUtils.faDirectory;
  FileAttrs := FileAttrs + SysUtils.faArchive;
  FileAttrs := FileAttrs + SysUtils.faSymLink;
  FileAttrs := FileAttrs + 2048; // komprimierte Dateien unter NTFS

  // faReadOnly  = $00000001 platform;
  // faHidden    = $00000002 platform;
  // faSysFile   = $00000004 platform;
  // faVolumeID  = $00000008 platform;
  // faDirectory = $00000010;
  // faArchive   = $00000020 platform;
  // Summe bis hierher entspricht: 
  // faAnyFile   = $0000003F;
  // 
  // faSymLink   = $00000040 platform;

(Zugegeben unter Delphi 7, weiß nicht, ob neuere Delphis die komprimierten Dateien unter NTFS inzwischen bei Nutzung von faAnyFile berücksichtigen.)