VPF::Список программ на диске - Форум программистов

ShadowDancer

Дата 9.2.2006, 22:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Snowy

Дата 10.2.2006, 00:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

M
Snowy

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

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

CaNIBaLchik

Дата 10.2.2006, 07:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 8.2.2006
Где: Томск

Репутация: нет
Всего: нет

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

Akella

Дата 10.2.2006, 09:10 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Цитата(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 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

CaNIBaLchik

Дата 13.2.2006, 08:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 8.2.2006
Где: Томск

Репутация: нет
Всего: нет

стандартный treeview разбери на запчасти медлненно зато работать будет

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »