Четверг, 2017-11-23, 11:11 PM
Главная Форум Регистрация RSS
Приветствую Вас, Гость
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум Энфа » Вопросы и решения » Delphi 7 » Поиск файлов по расширению
Поиск файлов по расширению
EnforcerДата: Суббота, 2009-11-14, 10:36 PM | Сообщение # 1
Энф
Группа: Администраторы
Сообщений: 534
Награды: 4
Репутация: 33
Статус: Нет меня
Источник

Чтобы разобраться с использованием этих функций попробуем написать программку, которая выдавала список всех программ с расширением *.exe в указанной директории, а затем при нажатии на кнопку включалась бы выбранная программа. На примере я покажу, как найти все .exe файлы в директории Windows, а затем объясню как можно модифицировать программку!

Итак, ставим на форму компонент TListBox в него мы будем выводить список найденных файлов. Обработчик события OnClick для нашей первой кнопки заменяем на такой:

Code
    procedure TForm1.Button1Click(Sender: TObject);
      var sr:TSearchRec;
      Result:word;
      begin
          ChDir('C:\windows');//меняем папку на C:\Windows
          Result := FindFirst ('*.exe',faAnyFile,sr);
          ListBox1.Clear;
          While result=0 do
      Begin
             ListBox1.Items.add(sr.name);
       Result:=FindNext (sr);
      End;
      end;

Как видите мы просто организовали цикличный проход по директории C:\Windows, который прекращается, как только функции возвращает не ноль! Функция ChDir была использована для смены папки с текущей на папку C:\windows\

 
Форум Энфа » Вопросы и решения » Delphi 7 » Поиск файлов по расширению
Страница 1 из 11
Поиск:


Copyright ELForcer © 2017