Папки в листбоксе

[beemoto]

вообщем название говорит само за себя =)
как мне в листбоксе показать все папки каторые находятся в папке: допустим C:\Downloads!?

[koma_grusha]

попробуй TDirectoryListBox

[spamer]

Ну вот что то типа такого:
на форму бросаешь листбокс и баттон

//Обработчик для баттона
var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
FileAttrs := faDirectory;
  with ListBox1 do
    begin
      if FindFirst('c:\*.*', FileAttrs, sr) = 0 then
        begin
          repeat
            if (sr.Attr and FileAttrs) = sr.Attr then
              ListBox1.Items.Add(sr.Name) ;
          until FindNext(sr) <> 0;
      FindClose(sr);
        end;
    end;

[beemoto]

spamer, во спасибо,то что нужно!
и плиз: как зделать чтоб он выдавал всё папки в папке skins которая находится в папке с прогой!

[FaTaL]

Так же, только вот это поменяй

if FindFirst(ExtractFilePath (ParamStr(0)) + 'Skins\', FileAttrs, sr) = 0 then

[beemoto]

FaTaL, тьфу, ты блин)))
забыл, ТОЧНО!
спс!
ноон выдает еще и лишнее:
.
..
1
2
(т.е. точки)
как это убрать!?

[FaTaL]

Сообщение от beemoto

FaTaL, тьфу, ты блин)))
забыл, ТОЧНО!
спс!
ноон выдает еще и лишнее:
.
..
1
2
(т.е. точки)
как это убрать!?

Сделай проверку на папку

if (sr.Attr and FileAttrs) = faDirectory then
Continue;

Или
If (sr.Name = '.') or (sr.Name = '..') then
continue;

[beemoto]

мм, а может подсказатькуда вставить!?
а то куда невствлю пишет на контине:
break or continue outside look

[FaTaL]

var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
FileAttrs := faDirectory;
  with ListBox1 do
    begin
      if FindFirst('c:\*.*', FileAttrs, sr) = 0 then
        begin
          repeat
            if (sr.Name = '.') or (sr.Name = '..') then
                Continue;
            if (sr.Attr and FileAttrs) = sr.Attr then
              ListBox1.Items.Add(sr.Name) ;
          until FindNext(sr) <> 0;
      FindClose(sr);
        end;
    end;

[beemoto]

spamer, FaTaL, большое СПС, +1(2воим)!