| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

просмотр директори

Speak ©   (2006-08-22 14:20:00) 

Здравствуйте!
Такой вопрос, как можно программно просмотреть содержимое определенной директории, без использования компонентов, и все это должно работать в консольном приложении.

спасибо)...

---

n0name   (2006-08-22 19:32:00) [1]

В принципе ты можешь использовать Borland'овские обертки.

procedure DumpDir(Path: string);
var
SearchRec: TSearchRec;
Res: Integer;
begin
Res := FindFirst(Path + '*.*', faAnyFile, SearchRec);
while Res = 0 do
 begin
  if ((SearchRec.Attr and faDirectory) > 0) then
   begin
    if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then DumpDir(Path + SearchRec.Name + '\');
   end
  else
   if ExtractFileExt(SearchRec.Name) = '.lnk' then WriteStr(Path + SearchRec.Name);
  Res := FindNext(SearchRec);
 end;
FindClose(SearchRec.FindHandle);
end;


---

Speak   (2006-08-22 19:24:00) [2]

хотелось бы по подробней

---

n0name   (2006-08-22 14:29:00) [3]

FindFirstFile/FindNextFile
Дальше MSDN тебе поможет.

---

Наверх