Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.31;
Скачать: CL | DM;

Вниз

просмотр директори   Найти похожие ветки 

 
Speak   (2006-08-22 14:20) [0]

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

спасибо)...


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

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


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

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


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

В принципе ты можешь использовать 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;



Страницы: 1 вся ветка

Текущий архив: 2006.12.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
15-1165976723
Mozart
2006-12-13 05:25
2006.12.31
сom порт


2-1165686097
arturich
2006-12-09 20:41
2006.12.31
Как передать текст из поля программы в поле другого приложения?


15-1165523519
XsID
2006-12-07 23:31
2006.12.31
Перфокарта


15-1165923956
novill
2006-12-12 14:45
2006.12.31
Перепись Ростовчан :)


2-1165750746
arturich
2006-12-10 14:39
2006.12.31
TWebBrowser