Delphi Função de Pesquisa

[.IndependentResearch.]

Função para encontramos algum determinado arquivo,que muitas vezes esteja com problema sendo eles possivelmente: dll,exe,etc

function TForm1.Busca(const cPath, cFile: String): Boolean;
var
S: String;
nRet: Integer;
Search: TSearchRec;
begin
nRet := FindFirst(cPath+'*.*',faAnyFile or faArchive or faDirectory,Search);
while nRet = 0 do
begin
if (Trim(Search.Name)<>‘.’) and (Trim(Search.Name)<>‘..’) then
begin
{ Se for um diretório, chama a função para percorrê-lo. }
if Search.Attr and faDirectory > 0 then
Busca(IncludeTrailingPathDelimiter(cPath+Search.Name), cFile)
{ Neste caso estamos fazendo uma busca exata, pode-se fazer um if com pos para buscar extensões
partes do nome e etc. }
else if Trim(Search.Name) = cFile then
Memo1.Lines.Add(cPath+Search.Name);
end;
nRet := FindNext(Search);
end;
end;

Exemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
begin
Busca('C:\Windows\','arquivo.dll');
end;