Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

21st
Апр

Поиск файлов исходник

Posted by Chas under Delphi, Исходники

как написать программу на Delphi, которая ищет файлы, и чтобы с ними можно было что-либо делать? Я поискала решение задачи в Сети, но все рецепты там, во-первых, какие-то мутные, во-вторых, не работают.

execom
1)Создаешь новый проект.
2)Кидаешь на форму Listbox1 и Button1
3)Двойной клик по Button1
4)Копируешь исходник ниже

unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls,  FileCtrl;
type

  TForm1 = class(TForm)

    ListBox1: TListBox;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);

begin

  Caption:='Поиск';

  BorderStyle:=bsSizeable;

  Position:=poScreenCenter;

  Button1.Caption:='Каталог';

  Width:=470;

  Height:=300;

  ListBox1.Width:=457;

  ListBox1.Height:=233;

  ListBox1.Top:=0;

  ListBox1.Left:=0;

  Button1.Width:=75;

  Button1.Height:=25;

  Button1.Top:=240;

  Button1.Left:=8;

end;
procedure FindFile(path : PChar);

type

 PathBuf = array[0..MAX_PATH] of char;

var

  Buf : PathBuf;

    H : THandle;

    R : TWIN32FindData;

    I : integer;

begin

  Application.ProcessMessages;

  lstrCpy(Buf, #0);

  LStrCat(Buf,Path);

  LStrCat(Buf,#42#46#42);

  H:=FindFirstFile(Buf,R);

  while H<>0 do

    begin

      if  ((R.dwFileAttributes

      and   FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY)

      and ((R.cFileName[0]=#46)

      or   (R.cFileName[1]=#46)) then

        begin

          if not FindNextFile(H,R) then break;

          Continue;

        end;

      if ((R.dwFileAttributes

      and  FILE_ATTRIBUTE_DIRECTORY)=FILE_ATTRIBUTE_DIRECTORY) then

        begin

          LstrCpy(Buf,#0);

          LStrCat(Buf,Path);

          LStrCat(Buf,R.cFileName);

          LStrCat(Buf,#92);

          FindFile(Buf);

          if not FindNextFile(H,R) then break;

          Continue;

        end;

     i:=0;

     while true do

       if R.cFileName=#0

       then break

       else inc(i);

     LstrCpy(Buf,#0);

     LStrCat(Buf,R.cFileName);

     Form1.ListBox1.Items.Add(String(Path)+R.cFileName);

     Form1.Refresh;

     if not FindNextFile(H,R) then break;

    end;

  Windows.FindClose(H);

end;
procedure TForm1.Button1Click(Sender: TObject);

var

  st : string;

begin

  Button1.Enabled:=false;

  if SelectDirectory('Выберите каталог для поиска','',st)

  then FindFile(PChar(st));

  Button1.Enabled:=true;

end;
end.