Developing.ru

Код: Выделить всё

procedure TForm1.List(Path: string);
var
  lpBuf: PChar;          
  sWinDir: string[128]; 
  SearchRec: TSearchRec; 
  begin
  if FindFirst(Path + '<*.расширение>', faAnyFile, SearchRec) =0 then
     begin
                    // добавим имя этого файла в список
          ListBox1.Items.Add(SearchRec.Name);
          // пока в каталоге есть другие файлы
          while (FindNext(SearchRec) = 0) do
              ListBox1.Items.Add(SearchRec.Name);
     end;
   ListBox1.ItemIndex := 0;  
end;

Код: Выделить всё

 
procedure TForm1.AddInRes(const dir:string);
var
  sr:TSearchRec;
begin
  if FindFirst(dir+'*', faAnyFile, sr) = 0 then
    begin
      repeat
        if sr.Name[1]<>'.' then
          if sr.Attr and faDirectory <> faDirectory then ListBox1.Items.Add(dir+sr.Name) else AddInRes(dir+sr.Name+'\');
      until FindNext(sr) <> 0;
      FindClose(sr);
    end;
end;

Код: Выделить всё

 
ext:=Copy(sr.Name,Length(sr.Name)-3,4);
if (ext='.jpg') or (ext='.bmp') then ListBox1.Items.Add(dir+sr.Name);