Главная страница
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.07 c
8-1146912258
Volfram
2006-05-06 14:44
2006.12.31
Проблема с DelphiX


8-1146665803
mobila
2006-05-03 18:16
2006.12.31
Масштабирование изображения


2-1165499453
Vitaly
2006-12-07 16:50
2006.12.31
Подскажите, плииииииз


15-1165432260
Kerk
2006-12-06 22:11
2006.12.31
Погода


15-1165953241
Kolan
2006-12-12 22:54
2006.12.31
Временно обзавелся 2м монитором.