[Alegun]

Сообщение от asil_mak@mail.ru

У меня программа конвертирует Jpg на Сид. но она по одному файлу делает...

Если я правильно понял (см. подпись:-), то Вам нужно вот это:

Код:

procedure TForm1.Fnd(ds: String);
 // ds - путь до папки с картинками, например 'c:\Фото\'
var
SR: TSearchRec;
b : integer;
vr: string;
begin
  b:= FindFirst(ds + '*.*', faAnyFile, SR);
  while b = 0 do
  begin
 if ((SR.Attr and faDirectory) = faDirectory)
 and
   ((SR.Name = '.') or (SR.Name = '..')) then
   begin
    b:= FindNext(SR); Continue;
      end;
   if CheckBox1.Checked then
   // искать, включая подкаталоги, на форму нужно добавить checkbox.
   begin
   if ((SR.Attr and faDirectory) = faDirectory) then
   begin
    Fnd(ds + SR.Name + '\');
    b:=FindNext(SR);
    Continue;
    end;
      end;
    if not CheckBox1.Checked then
    begin
   if ((SR.Attr and faDirectory) = faDirectory) then
   begin
    b:= FindNext(SR);
    Continue;
    end;
     end;
     vr:='.jpg'; // расширение файлов для поиска
 //     if vr='.*' then vr:='';
     if copy(sr.Name,length(sr.name) - length(vr) + 1, length(vr)) = vr then
     begin

  begin

 //  ConvertJPGtoSID(ds + SR.Name);
 // Здесь что угодно делаем с нужным файлом

  end;

   if Application.Terminated then Break;
   Application.ProcessMessages;
   b:= FindNext(SR);
   end;
   FindClose(SR);
end;