поиск файла

[Mihailhome]

Здравствуйте специалисты!
Подскажите пожалуйста как по нажатую на кнопку он мне искал файл (ну например theBat.exe), и если он его находил то запускал, иначе сообщение что неустановлена такая программа. представления не имею как осуществить поиск в дерикториях
Благодарю!

[uberchel]

Тема обсуждалась много раз, просто надо нажать поиск по форуму!!!!

uses ShellApi;
...
procedure TForm1.Button1Click(Sender: TObject);
const Path = 'C:\';
Var
 SearchRec:TSearchRec;
begin
If FindFirst(Path + Edit1.Text, faAnyFile, SearchRec)=0 then
repeat
ShellExecute(0,'open',pchar(Path + Edit1.Text),nil,nil,SW_NORMAL);
until FindNext(SearchRec) <> 0
else ShowMessage('File not Fount');
FindClose(SearchRec);
end;