VPF::Поиск DLL файлов и запись имён в фаил.

ivan219

Дата 29.9.2006, 14:33 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

Есть папка вней есть DLL файлы мне нужно найти все файлы с расширением DLL и их имена записать в фаил ini smile

--------------------

Мой первый сайт и моя первая программа!!!!!

Matematik

Дата 29.9.2006, 15:09 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

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

Поиск:
FindFirst+FindNext+FindClose
Запись:
AssingFile+Rewrite+Writeln

Yanis

Дата 29.9.2006, 15:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Цитата(ivan219 @ 29.9.2006, 15:33

)

Есть папка вней есть DLL файлы мне нужно найти все файлы с расширением DLL и их имена записать в фаил ini

Поиск по форуму по фразе ScanDir. А там в маске укажи *.dll.

--------------------

*щёлк*

ivan219

Дата 29.9.2006, 15:41 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

Код


Procedure ScanDir(Dir:string); 
var SearchRec:TSearchRec; 
begin 
  if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';  
  if FindFirst(Dir+'*.DLL', faAnyFile, SearchRec)=0 then repeat  
    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  
      Showmessage(Dir+SearchRec.name); //we found File: "Dir+SearchRec.name"  
  until FindNext(SearchRec)<>0;  
  FindClose(SearchRec);
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ScanDir('c:');  
end;

Вот так вот.

А уменя всего одна папка, эта процедура ищит под каталоги smile

Добавлено @ 15:42
И ещё вот нашол я фаил а как его имя узнать smile

--------------------

Мой первый сайт и моя первая программа!!!!!

Akella

Дата 29.9.2006, 15:48 (ссылка)

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

Загрузка ...

Творец

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

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

вот рабочий код

Код


Procedure TfmUpdateInfo.ExtractArchives(Dir:String);
Var
 SearchRec:TSearchRec;
begin
 try
   log('Поиск полученной информации');
   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
         ExtractArchives(Dir+SearchRec.name) //нашли папку: "Dir+SearchRec.name"
       else
        begin
          if AnsiUpperCase(ExtractFileExt(SearchRec.name)) = '.RAR' then <- вот где проверяем расширение
          begin
            log('Распаковываю архив: '+SearchRec.name);//SearchRec.name - имя файла (dir+SearchRec.name - имя - полный путь)
            fmMain.ExecAndWait(fmMain.swinrar,'e -ep '+ SearchRec.name, dir,0);
            DeleteFile(dir+SearchRec.name);
          end;//if ExtractFileExt(SearchRec.name)='.rar' then
        end;//else
     until FindNext(SearchRec)<>0;

 finally
   FindClose(SearchRec);
 end;
end;

Добавлено @ 15:51

Цитата(ivan219 @ 29.9.2006, 15:41

)

А уменя всего одна папка, эта процедура ищит под каталоги

эта процедура ищет всё, включая папки, подпап, файлы.

Это сообщение отредактировал(а) Akella - 29.9.2006, 15:51

ivan219

Дата 29.9.2006, 16:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

Akella, а твоя процедура тоже ищит под каталоги smile

но мне это ненадо как зделать по проще smile

и архивы тоже ненадо распаковывать.

Мне надо по проще т.е. одна папка и куча DLL надо их все посмотреть а имена записать в фаил, ну в фаил я сам разберусь а вот как узнать её имя smile

--------------------

Мой первый сайт и моя первая программа!!!!!

Romikgy

Дата 29.9.2006, 16:04 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Код


procedure TForm1.Button1Click(Sender: TObject);
var lb: TListBox;
  sx: string;
begin
  sx:=GetCurrentDir;
  SetCurrentDir('путь к нужной папке');
  lb:=TListBox.Create(nil);
  lb.Parent:=Form1;
  lb.Perform(LB_DIR,DDL_READWRITE    ,LongInt(PChar('*.dll')));
  SetCurrentDir(sx);
  lb.Items.SaveToFile('sp.ini');
  lb.Free;
end;

Добавлено @ 16:05

Цитата(ivan219 @ 29.9.2006, 15:00

)

а вот как узнать её имя

кого имя?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

ivan219

Дата 29.9.2006, 16:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

кого имя? Файла *.DLL

Добавлено @ 16:43
Romikgy, Спасибо всё получилось так как надо!!!
Akella, Спасибо разобрался!!!

Это сообщение отредактировал(а) ivan219 - 29.9.2006, 17:28

--------------------

Мой первый сайт и моя первая программа!!!!!

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