| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поскажите, как собрать всю инфу о файлах и папках на компе? [D7, 95/98]
Гость22 © (2005-09-19 11:03:00)Нужно создать екзешник, который сохранит информацию о всех! файлах и каталогах (включая пути и размер файлов) на данном компе.
HEXO4YXA (2005-09-19 13:53:00) [1]вот рекурсивная процедурка сканит все каталоги на диске "Dir":
Procedure TForm1.ScanDir(Dir:string);
var
SearchRec:TSearchRec;
begin
if Dir<>'' then
if Dir[length(Dir)]<>'\'
then Dir:=Dir+'\';
Application.ProcessMessages;
if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
repeat
Application.ProcessMessages;
if (SearchRec.name='.') or (SearchRec.name='..') then
continue;
if (SearchRec.Attr and faDirectory)<>0 then
ScanDir(Dir+SearchRec.name) //we found Directory: "Dir+SearchRec.name"
else
begin
// Раскомменть здесь, если хочешь искать по определенному расширению
// if ExtractFileExt(Dir+SearchRec.name) = '.exe' then
// Здеся засовывай имена файлов и любую инфу о них куда хочешь
end;
Application.ProcessMessages;
until FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;
Гость22 (2005-09-19 13:25:00) [2]ну так как собрать всю инфу?
Кто-то подскажет?
Anatoly Podgoretsky (2005-09-19 13:22:00) [3]Гость22 (19.09.05 12:53) [9]
См. Sergey13 © (19.09.05 11:10) [3]
а можна поподробнее?
В данной редакции это уже не требуется.
Гость22 (2005-09-19 12:53:00) [4]
> Что именно тебе нужно? Получить инфу о файлах, или запихать
> её в exe-шник?
получить всю инфу о файлах и сохранить, например, в .txt
> Создать .rc файл и подключить его к проекту.
а можна поподробнее?
Anatoly Podgoretsky (2005-09-19 11:56:00) [5]Гость22 (19.09.05 11:51) [5]
А ты сначала задай вопрос по русски.
Sergey13 (2005-09-19 11:54:00) [6]2 [5] Гость22 (19.09.05 11:51)
>и так в каждую папку лазить руками??
Нет. Только по всем дискам.
Fay (2005-09-19 11:53:00) [7]2 Гость22 (19.09.05 11:51) [5]
Что именно тебе нужно? Получить инфу о файлах, или запихать её в exe-шник?
Гость22 (2005-09-19 11:51:00) [8]
> Создать .rc файл и подключить его к проекту.
а можнга поподробнее?
> dir /s >dir.txt
и так в каждую папку лазить руками??
Anatoly Podgoretsky (2005-09-19 11:12:00) [9]Создать .rc файл и подключить его к проекту.
Sergey13 (2005-09-19 11:10:00) [10]dir /s >dir.txt
Плохиш (2005-09-19 11:05:00) [11]
> Гость22 (19.09.05 11:03)
> Нужно создать екзешник
Создавай, разрешаю.
Fay (2005-09-19 11:04:00) [12]2 Гость22 (19.09.05 11:03)
FindFirstFile и т.д.
| |
