Поиск файлов в каталоге

[Аватар]

Здесь выгрузка в Memo, под StringGrid переделайте

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  FindFilesExe('e:\Setup\');
end;

procedure TForm1.FindFilesExe(dir: string);
var SRexe: TSearchRec;
    findResExe: integer;
    xExt: String;
begin
  findResExe:= FindFirst(dir+'*.*',faAnyFile,SRexe);
  while findResExe=0 do begin
    if (SRexe.Attr and faDirectory = faDirectory) and
       (SRexe.Name<>'.') and (SRexe.Name<>'..') then FindFilesExe(dir+SRexe.Name+ '\')
    else begin
      xExt:=AnsiUpperCase(ExtractFileExt(SRexe.Name));
      if (xExt='.EXE') or (xExt='.DLL') then Memo1.Lines.Add(Format('%s%s size=%d',[dir,SRexe.Name,SRexe.Size]));
    end;
    findResExe:= FindNext(SRexe);
  end;
  FindClose(SRexe);
end;

[pupilMartyr]

Ошибка нашлась (глупая, конечно))

findResExe:= FindFirst(dir + '*.*', faAnyFile, SRexe);

а надо было

findResExe:= FindFirst(dir + '\' + '*.*', faAnyFile, SRexe);

Спасибо всем.

[Аватар]

Ошибка нашлась (глупая, конечно))

Нет там ни какой ошибки, посмотрите как обращение сделано к процедуре и в первом, и во втором случаях. Параметр dir передается со слешем справа