buscar arquivo unidade c e abre diretório automático

 unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, Vcl.Dialogs, Vcl.ExtCtrls, ShellAPI;

type
  TSearchThread = class(TThread)
  private
    FFileName: string;
    FSearchPath: string;
    FFoundPath: string;
    FStatusText: string;
    FDirectoriesSearched: Integer;
    procedure UpdateUI;
    procedure UpdateStatus;
    function FindFile(const FileName, SearchPath: string): string;
  protected
    procedure Execute; override;
  public
    constructor Create(const FileName, SearchPath: string);
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FSearchThread: TSearchThread;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TSearchThread }

constructor TSearchThread.Create(const FileName, SearchPath: string);
begin
  inherited Create(False);
  FreeOnTerminate := True;
  FFileName := FileName;
  FSearchPath := SearchPath;
  FDirectoriesSearched := 0;
end;

function TSearchThread.FindFile(const FileName, SearchPath: string): string;
var
  SR: TSearchRec;
begin
  Result := '';
  if FindFirst(SearchPath + '*' + FileName + '*', faAnyFile, SR) = 0 then
  begin
    Result := SearchPath + SR.Name;
  end;
  FindClose(SR);

  if Result = '' then
  begin
    if FindFirst(SearchPath + '*.*', faDirectory, SR) = 0 then
    begin
      repeat
        if ((SR.Attr and faDirectory) <> 0) and (SR.Name <> '.') and (SR.Name <> '..') then
        begin
          Inc(FDirectoriesSearched);
          FStatusText := 'Procurando em: ' + SearchPath + SR.Name;
          Synchronize(UpdateStatus);
          Result := FindFile(FileName, SearchPath + SR.Name + '\');
          if Result <> '' then Break;
        end;
      until FindNext(SR) <> 0;
    end;
    FindClose(SR);
  end;
end;

procedure TSearchThread.Execute;
begin
  FFoundPath := FindFile(FFileName, FSearchPath);
  Synchronize(UpdateUI);
end;

procedure TSearchThread.UpdateUI;
var
  DirectoryPath: string;
begin
  if FFoundPath <> '' then
  begin
    Form1.Memo1.Lines.Add('O arquivo ' + FFileName + ' encontrado ' + FFoundPath);
    DirectoryPath := ExtractFileDir(FFoundPath);
    ShellExecute(0, 'open', PChar(DirectoryPath), nil, nil, SW_SHOWNORMAL);
  end
  else
    Form1.Memo1.Lines.Add('O arquivo ' + FFileName + ' não encontrado.');
end;

procedure TSearchThread.UpdateStatus;
begin
  Form1.Label1.Caption := FStatusText;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  FSearchThread := TSearchThread.Create(Edit1.Text, 'C:\');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FSearchThread := nil;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(FSearchThread) then
  begin
    FSearchThread.Terminate;
    FSearchThread := nil;
  end;
end;

end.