Comment rechercher un fichier via tous les sous-répertoires de Delphes

La manière la plus simple est la suivante: xxx

DSIWIN32 est une bibliothèque Delphi gratuite.

Delphi: Copier des fichiers de dossier avec Les progrès d'ensemble. CopyFileEx?

Quand j'ai besoin de faire astuces code> comme des méthodes protégées de remplacement, j'ai tendance à utiliser une solution générique au problème ... Je fais un piratage à la classe.

Voici comment le faire Avec tdirectorylistbox code>. p>

sur chaque formulaire, vous devez utiliser ce formulaire piraté code> tdirectorylistbox code> Ajouter UnittDirectoryListbox_withHiddridaDidDeSystembeters Code > à l'interface utilise code>, de cette façon le formulaire utilisera le packed code> tdirectorylistbox code>. p>

Créer un fichier appelé UnittdirectoryListbox_withHiddridaDidDeDsystemIndLesfolders.pas code> sur votre dossier Proyect. P>

Mettez ce texte à l'intérieur de ce fichier (je vais vous expliquer plus tard ce que j'ai fait): P>

unit unitTDirectoryListbox_WithHiddenAndSystemFolders;

interface

uses
    Windows
   ,SysUtils
   ,Classes
   ,FileCtrl
   ;

type TDirectoryListbox=class(FileCtrl.TDirectoryListbox)
   private
     FPreserveCase:Boolean;
     FCaseSensitive:Boolean;
   protected
     function ReadDirectoryNames(const ParentDirectory:String;DirectoryList:TStringList):Integer;
     procedure BuildList;override;
   public
     constructor Create(AOwner:TComponent);override;
     destructor Destroy;override;
     property PreserveCase:Boolean read FPreserveCase;
     property CaseSensitive:Boolean read FCaseSensitive;
end;

implementation

constructor TDirectoryListbox.Create(AOwner:TComponent);
begin
     inherited Create(AOwner);
end;

destructor TDirectoryListbox.Destroy;
begin
     inherited Destroy;
end;

function TDirectoryListbox.ReadDirectoryNames(const ParentDirectory:String;DirectoryList:TStringList):Integer;
var
  TheCount,Status:Integer;
  SearchRec:TSearchRec;
begin
     TheCount:=0;
     Status:=FindFirst(IncludeTrailingPathDelimiter(ParentDirectory)+'*.*',faDirectory or faHidden or faSysFile,SearchRec);
     try
        while 0=Status
        do begin
                if faDirectory=(faDirectory and SearchRec.Attr) 
                then begin
                          if   ('.'<>SearchRec.Name)
                            and
                               ('..'<>SearchRec.Name)
                          then begin
                                    DirectoryList.Add(SearchRec.Name);
                                    Inc(TheCount);
                               end;
                     end;
                Status:=FindNext(SearchRec);
           end;
     finally
            FindClose(SearchRec);
     end;
     ReadDirectoryNames:=TheCount;
end;

procedure TDirectoryListBox.BuildList;
var
  TempPath: string;
  DirName: string;
  IndentLevel, BackSlashPos: Integer;
  VolFlags: DWORD;
  I: Integer;
  Siblings: TStringList;
  NewSelect: Integer;
  Root: string;
begin
  try
    Items.BeginUpdate;
    Items.Clear;
    IndentLevel := 0;
    Root := ExtractFileDrive(Directory)+'\';
    GetVolumeInformation(PChar(Root), nil, 0, nil, DWORD(i), VolFlags, nil, 0);
    FPreserveCase := VolFlags and (FS_CASE_IS_PRESERVED or FS_CASE_SENSITIVE) <> 0;
    FCaseSensitive := (VolFlags and FS_CASE_SENSITIVE) <> 0;
    if (Length(Root) >= 2) and (Root[2] = '\') then
    begin
      Items.AddObject(Root, OpenedBMP);
      Inc(IndentLevel);
      TempPath := Copy(Directory, Length(Root)+1, Length(Directory));
    end
    else
      TempPath := Directory;
    if (Length(TempPath) > 0) then
    begin
      if AnsiLastChar(TempPath)^ <> '\' then
      begin
        BackSlashPos := AnsiPos('\', TempPath);
        while BackSlashPos <> 0 do
        begin
          DirName := Copy(TempPath, 1, BackSlashPos - 1);
          if IndentLevel = 0 then DirName := DirName + '\';
          Delete(TempPath, 1, BackSlashPos);
          Items.AddObject(DirName, OpenedBMP);
          Inc(IndentLevel);
          BackSlashPos := AnsiPos('\', TempPath);
        end;
      end;
      Items.AddObject(TempPath, CurrentBMP);
    end;
    NewSelect := Items.Count - 1;
    Siblings := TStringList.Create;
    try
      Siblings.Sorted := True;
        { read all the dir names into Siblings }
      ReadDirectoryNames(Directory, Siblings);
      for i := 0 to Siblings.Count - 1 do
        Items.AddObject(Siblings[i], ClosedBMP);
    finally
      Siblings.Free;
    end;
  finally
    Items.EndUpdate;
  end;
  if HandleAllocated then
    ItemIndex := NewSelect;
end;

end.