Fórum Ajuda com Projeto #375587

 unit Unit1;

interface

uses
  Windows, Messages, URLmon, Shellapi, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, Buttons;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Edit2: TEdit;
    ListBox1: TListBox;
    function Procurar_Arquivo(Diretorio, Arquivo: String): Boolean;
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


function TForm1.Procurar_Arquivo(Diretorio, Arquivo: String): Boolean;
var
  Temp1: Integer;
  Temp2: TSearchRec;
  Proximo_Diretorio: String;
begin
  Result:=False; //Se True, achou o arquivo
  Diretorio:=Trim(Diretorio);
  if Diretorio[Length(Diretorio)]<>´\´ then Diretorio:=Diretorio+´\´;
  if FindFirst(Diretorio+Arquivo,faAnyFile,Temp2)=0 then Result:=True //Verifica diretório
  else                                                                //Verifica sub-diretórios
    begin
      FindClose(Temp2);
      Temp1:=FindFirst(Diretorio+´*.*´,faDirectory,Temp2);
        while (Temp1=0) and (not Result) do
          begin
            if (Temp2.Name<>´.´) and (Temp2.Name<>´..´) then                //Não procura por diretórios e sim por arquivos
              begin
                Proximo_Diretorio:=Diretorio+Temp2.Name+´\´;
                Result:=Procurar_Arquivo(Proximo_Diretorio,Arquivo);
                Label1.Caption:=Copy(Proximo_Diretorio,1,Length(Proximo_Diretorio)-1);
                  if Result then
                     begin
                       Result:=False;
                       Diretorio:=Proximo_Diretorio;                               //Se achou, próximo arquivo
                       
                       listbox1.Items.Add(Proximo_Diretorio+Arquivo);
                     end;
                  end;
                Temp1:=FindNext(Temp2);
                Application.ProcessMessages;
              end;
              FindClose(Temp2);
            end;
          if not Result then Diretorio:=´´;
          
       end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var nome: pchar;
begin

    Procurar_Arquivo(edit2.Text,edit1.text);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.text=´´ then
   speedbutton1.Enabled:=false
else
   speedbutton1.Enabled:=true;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
   speedbutton1.OnClick(edit1);
end;

end.