Открытие сторонних приложений по заданным параметрам

[skalt12]

Доброе время суток, уважаемые!
В общем, задача такая, нужно написать программу, которая открывает сторонние приложения, производя поиск таковых в заданных ранее папках.
То есть привожу пример, юзер добавляет папку в настройках, потом в меню программы вводит название приложения, напр. "program.exe", программа ищет в папке, которую указал юзер. и если находит, то открывает..
Собственно прошу помощи по поводу реализации добавления пользовательской директории для поиска и, непосредственно, самого поиска..
Прошу сильно не пинать, надеюсь на вашу помощь, господа

[Volt]

попрубуй так

procedure ScanDir(StartDir: string; FileNam: string);
var SearchRec : TSearchRec;
begin
if StartDir[Length(StartDir)] <> '\' then
StartDir := StartDir + '\';
try
if FindFirst(StartDir+FileNam, faAnyFile, SearchRec) = 0 then
repeat
if (SearchRec.Attr and faDirectory) <> faDirectory then begin
ShellExecute(0,nil,pchar(StartDir+ SearchRec.Name),'','',SW_SHOWNORMAL );
end;
until FindNext(SearchRec) <> 0;FindClose(SearchRec);
except end;
{разделение по каталогам}
if FindFirst(StartDir+'*', faAnyFile, SearchRec) = 0 then
try
repeat
if (SearchRec.Attr and faDirectory) = faDirectory then
if (SearchRec.Name <> '..')
and (SearchRec.Name <> '.') then
begin
ScanDir(StartDir + SearchRec.Name + '\', FileNam);
end;
until FindNext(SearchRec) <> 0;FindClose(SearchRec);
except end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
for chrI:='C' to 'Z' do
ScanDir(chrI+':\','thebat.exe') //имя файла
end;

[W0LF]

добавляешь адрес папки например в DBGrid, цыклом пробигаешь по колонке де папки и проверяешь FileExists'ом. Если файл есть в папке, то запускаешь и прирываешь цыкл.

for i:=1 to StringGrid1.RowCount do
if fileexists('адрес твоего файла, который надо найти и запустить') then begin
ShellExecute(Handle, 'open', pchar(' {опять же твой файл который запускать} '), '', nil, SW_SHOWNORMAL);
break;
end;

[KREGI]

А я так сделал, только не компилировал, делфи глючит

procedure TForm1.Button1Click(Sender: TObject);
var sr:TSearchRec;
dir:integer;
    begin
    dir:=strtoint(Edit2.Text);
    findFirst('dir+*.exe',faAnyFile,sr);
    edit1.Text:=sr.Name;
    FindClose(sr);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WinExec(pchar(Edit1.text),sw_show); //открывается приложение
end;

end.

[skalt12]

Господа, а иных вариантов нет? просто в случае с вариантом Volt'a
дельфя ругается на ShellExecute..
На вариант Wolf'a дельфя ругается на ShellExecute и сообщает:

Declaration Expected, but 'FOR' found

..

[KREGI]

uses ShellAPI;

[skalt12]

Всем спасибо, разобрался