Динамическое создание DirectoryListBox

[Kuzya59]

Здравствуйте. Понадобилось осуществить следующее. Есть указанная директория. Нужно в компонент класса TStringList внести все под-директории которые в ней содержаться. В случае с формой поступаю так. Помещаю на форму компонент DirectoryListBox и там где надо пишу (dir - указанная папка):

dl.Directory := dir;
for i := dl.ItemIndex+1 to dl.Items.Count-1 do
  dirs.Add(dl.Items[i]);

После этого в dirs лежит то что нужно.
Но вся соль в том что тоже самое мне нужно проделать в консольном приложении. Тут начинаются проблемы. Состряпал функцию:

function getDirList(dir: String): TStringList;
var
  dirs: TStringList;
  dl: TDirectoryListBox;
  i: integer;
begin
  dl := TDirectoryListBox.Create(nil);
  dirs := TStringList.Create;

  dl.Directory := dir;
  for i := dl.ItemIndex+1 to dl.Items.Count-1 do
    dirs.Add(dl.Items[i]);

  Result := dirs;
end;

При использовании она выдаёт вот такую ошибку ( это ругается TDirectoryListBox )

Control '' has no parent window.

Этому классу нужно для работы свойство Parent, класс TWinControl.
Порывшись в гугле я понял что это что-то типа ссылки на форму. Но я ведь в консоли =(. Подскажите пожалуйста, как заставить его работать в консольном варианте?

[Пепел Феникса]

а может просто искать папки через FindFirst/FindNext/FindClose?

[Stilet]

Все правильно. Не используй VCL в консоли. Они для визуальзации предназначены.
Просто напиши функцию на основе FindFirst...FindNext для получения списка папок, примеров тут уже выкладывалось море - это лучше будет.

[ОДИНОЧЕСТВО В СЕТИ]

procedure ListFileDir(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path + '\*.*', faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr = faDirectory) then
          FileList.Add(SR.Name);
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;

вот процедура выводи ее в StringList и будет тебе счастье

[Kuzya59]

Всем большое спасибо. В особенности ОДИНОЧЕСТВО В СЕТИ. Ваш способ просто супер.