Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
Вниз
Поскажите, как собрать всю инфу о файлах и папках на компе? Найти похожие ветки
← →
Гость22 (2005-09-19 11:03) [0]Нужно создать екзешник, который сохранит информацию о всех! файлах и каталогах (включая пути и размер файлов) на данном компе.
← →
Fay © (2005-09-19 11:04) [1]2 Гость22 (19.09.05 11:03)
FindFirstFile и т.д.
← →
Плохиш © (2005-09-19 11:05) [2]
> Гость22 (19.09.05 11:03)
> Нужно создать екзешник
Создавай, разрешаю.
← →
Sergey13 © (2005-09-19 11:10) [3]dir /s >dir.txt
← →
Anatoly Podgoretsky © (2005-09-19 11:12) [4]Создать .rc файл и подключить его к проекту.
← →
Гость22 (2005-09-19 11:51) [5]
> Создать .rc файл и подключить его к проекту.
а можнга поподробнее?
> dir /s >dir.txt
и так в каждую папку лазить руками??
← →
Fay © (2005-09-19 11:53) [6]2 Гость22 (19.09.05 11:51) [5]
Что именно тебе нужно? Получить инфу о файлах, или запихать её в exe-шник?
← →
Sergey13 © (2005-09-19 11:54) [7]2 [5] Гость22 (19.09.05 11:51)
>и так в каждую папку лазить руками??
Нет. Только по всем дискам.
← →
Anatoly Podgoretsky © (2005-09-19 11:56) [8]Гость22 (19.09.05 11:51) [5]
А ты сначала задай вопрос по русски.
← →
Гость22 (2005-09-19 12:53) [9]
> Что именно тебе нужно? Получить инфу о файлах, или запихать
> её в exe-шник?
получить всю инфу о файлах и сохранить, например, в .txt
> Создать .rc файл и подключить его к проекту.
а можна поподробнее?
← →
Anatoly Podgoretsky © (2005-09-19 13:22) [10]Гость22 (19.09.05 12:53) [9]
См. Sergey13 © (19.09.05 11:10) [3]
а можна поподробнее?
В данной редакции это уже не требуется.
← →
Гость22 (2005-09-19 13:25) [11]ну так как собрать всю инфу?
Кто-то подскажет?
← →
HEXO4YXA © (2005-09-19 13:53) [12]вот рекурсивная процедурка сканит все каталоги на диске "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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.049 c
