Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Список программ на диске


Автор: ShadowDancer 9.2.2006, 22:31
Вобщем помогите создать список содержимого на диске разбитого по разделам, ну например видео, картинки, музыка. И чтобы в этом списке пожно было узнать инфу о каждом файле.
Спасибо.

Автор: Snowy 10.2.2006, 00:23

M
Snowy		Поиск по форуму по словам FindFirst, FindNext, рекурсивно.
Также неплохой пример есть в самой справке по дельфи.
Также это есть в любой книге по дельфи

Добавлено @ 00:34
Вот буквально неделю назад было:
http://forum.vingrad.ru/index.php?showtopic=82343

Автор: CaNIBaLchik 10.2.2006, 07:11
напиши итератор рекурсивного поиска файлов, если не можешь кинь на емаил ghik. исходник, правда на билдере
Добавлено @ 07:12
в смасле я тебе пришлю

Автор: Akella 10.2.2006, 09:10
Цитата(ShadowDancer @ 9.2.2006, 22:31 Найти цитируемый пост)

Вобщем помогите создать список содержимого на диске

Пуск->Поиск smile
Если не разберешься, как пользоваться поиском в windows, нажми F1.
Добавлено @ 09:19
Код

Procedure GetFiles(Dir:String);
Var
 SearchRec:TSearchRec;
begin
 try
   if Dir<>'' then Dir:=IncludeTrailingPathDelimiter(Dir);

   if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
     repeat
       if (SearchRec.name='.') or (SearchRec.name='..') then continue;
       if ((SearchRec.Attr and faDirectory)<>0) then
         begin
           //нашли папку с именем Dir+SearchRec.name
           GetFiles(Dir+SearchRec.name)
           
         end;
       else
        begin
           //нашли файл
          //можно проверить расширение
          if ExtractFileExt(SearchRec.name)<>'.rar' then
            slArcFile.Add(Dir+SearchRec.name);
        end;//else
     until FindNext(SearchRec)<>0;
   FindClose(SearchRec);

 finally
   //
 end;
end;

Добавлено @ 09:22
Код

Var slArcFile:TStringList;
...

procedure FindArcs...
begin
  slArcFile:=TStringList.create;
  GetFiles('C:\');
  //теперь в slArcFile содержаться пути ко всем архивам на диске c:\
 

Автор: ShadowDancer 10.2.2006, 15:02
Я наверно неправильно написал.
Мне нужно чтобы в программе было например что-то типа проводника, в котором заранее всё было разделено по группам, при щелчке на выбранном объекте загружался Image и описание.
Вот так вот.

Автор: CaNIBaLchik 13.2.2006, 08:10
стандартный treeview разбери на запчасти медлненно зато работать будет

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)