Как создать список файлов exe по определенному пути - Delphi - Ответ 5459683

uses
  FileCtrl;
 
//Поиск файлов по заданной маске в папке aPath.
//Если маска не задана, то будет использована маска = '*'.
procedure SearchFiles(const aPath, aMask : string; aSl : TStrings);
var
  Path, Mask : String;
  Sr : TSearchRec;
  Attr : Integer;
begin
  //Добавление в конец строки слеша, если его нет.
  Path := IncludeTrailingPathDelimiter(aPath);
  //Маска.
  if aMask <> '' then
    Mask := aMask
  else
    Mask := '*';
 
  //В текущей папке ищем файлы по заданной маске.
  Attr := faAnyFile - faVolumeID - faDirectory;
  try
    if FindFirst(Path + Mask, Attr, Sr) = 0 then
    repeat
      aSl.Add(Path + Sr.Name);
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
end;
 
//Диалог поиска файлов.
procedure TForm1.Button1Click(Sender: TObject);
var
  Path : String;
begin
  Path := ExtractFilePath(ParamStr(0));
  //if not SelectDirectory('Выбор папки', '', Path) then
  //  Exit;
  if not SelectDirectory(Path, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
    Exit;
  if not DirectoryExists(Path) then begin
    MessageBox(Handle, 'Заданная папка не найдена. Действие отменено.', 'Отмена!',
      MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Поиск файлов по заданной маске в указанной папке.
  //Если маска не задана, то в процедуре SearchFiles() будет использована маска = '*'.
  //Маска читается из Edit1.Text.
  Memo1.Clear;
  SearchFiles(Path, Edit1.Text, Memo1.Lines);
end;

uses
  FileCtrl;
 
//Поиск файлов по заданной маске, начиная с папки aPath.
//Если маска не задана, то будет использована маска = '*'.
procedure SearchFiles(const aPath, aMask : string; aSl : TStrings);
var
  Path, Mask : String;
  Sr : TSearchRec;
  Attr : Integer;
begin
  //Добавление в конец строки слеша, если его нет.
  Path := IncludeTrailingPathDelimiter(aPath);
  //Маска.
  if aMask <> '' then
    Mask := aMask
  else
    Mask := '*';
 
  //В текущей папке ищем файлы по заданной маске.
  Attr := faAnyFile - faVolumeID - faDirectory;
  try
    if FindFirst(Path + Mask, Attr, Sr) = 0 then
    repeat
      aSl.Add(Path + Sr.Name);
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
 
  //В текущей папке ищем все папки и для каждой из них выполняем рекурсивный вызов.
  Attr := faDirectory;
  try
    if FindFirst(Path + '*', Attr, Sr) = 0 then
    repeat
      if (Sr.Name <> '.') and (Sr.Name <> '..') then
        SearchFiles(Path + Sr.Name, Mask, aSl);
    until FindNext(Sr) <> 0;
  finally
    FindClose(Sr);
  end;
end;
 
//Диалог поиска файлов.
procedure TForm1.Button1Click(Sender: TObject);
var
  Path : String;
begin
  Path := ExtractFilePath(ParamStr(0));
  //if not SelectDirectory('Выбор папки', '', Path) then
  //  Exit;
  if not SelectDirectory(Path, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
    Exit;
  if not DirectoryExists(Path) then begin
    MessageBox(Handle, 'Заданная папка не найдена. Действие отменено.', 'Отмена!',
      MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    Exit;
  end;
 
  //Поиск файлов по заданной маске, начиная с указанной папки.
  //Если маска не задана, то в процедуре SearchFiles() будет использована маска = '*'.
  //Маска читается из Edit1.Text.
  Memo1.Clear;
  SearchFiles(Path, Edit1.Text, Memo1.Lines);
end;