поиск и вывод папок. delphi

как организовать поиск в определённой дериктории папок и вывод их списком в листбокс?

 

Code:

procedure ScanDir(Dir: string);
var
  hFind: THandle;
  FD: TWIN32FindData;
begin
  hFind:= FindFirstFile(PChar(Dir + '\*.*'), FD);
  if (hFind <> INVALID_HANDLE_VALUE) then try
    repeat
      if (FD.dwFileAttributes and faDirectory) <> 0 then
       [COLOR=DarkRed]Form1.ListBox1.Items.Add(FD.cFileName);[/COLOR]
    until not FindNextFile(hFind,FD);
  finally
    Windows.FindClose(hFind);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ScanDir('c:\');
end;

 

шикарно. но как сделать чтобы не выводил в листбоксе точки (. и ..) в самом начале?

 

ТС тебе не стыдно?Учи рекурсию, и работу со строками!

 

самому-то подумать сложно? все же просто:

Code:

  .............
  hFind:= FindFirstFile(PChar(Dir + '\*.*'), FD);
  if (hFind <> INVALID_HANDLE_VALUE) then begin
    repeat
      if (FD.cFileName<>String('.')) and (FD.cFileName <> '..') then begin
        if (FD.dwFileAttributes and faDirectory) <> 0 then
        .............

 

подкинь сайтик со статьями и примерами(учебники не над)

 

Вот тут много примеров , да и форум хороший

http://www.cyberguru.ru/

 

скачиваешь 5005 статей по делфи (она же Delphi World) и там очень много примеров на всё

 

Спасибо..тоже почитаю)))

 

Намного удобней юзать IOUtils из Delphi 2010