Поиск по расширению

[Memories]

Привет всем!!! Я только начинающий программист, можно сказать еще зеленый. Но прошу мне ответить, как можно искать файлы в указанной папки по расширению. Вот прога по которой он ищет в указанной папке:

var
searchResult : TSearchRec;
fileName : string;
fullFilePath : string;
dir : string;
begin
fileName := 'Romeo - Ty Pover.mp3';
dir := 'e:\Music';
fullFilePath := FileSearch(fileName, dir);
if fullFilePath = 'e:\Music\'+filename
then begin ShowMessage(fullFilePath+' найден');
deletefile ('e:\Music\'+filename);
end
else ShowMessage(fileName+' не найден');
FindClose(searchResult);
end;

Как можно найти все файлы с расширением например mp3 или exe? Заранее спасибо за внимание!!!

[mutabor]

избитый вопрос, используй поиск по форуму,
плюс я выкладывал исходники плеера, там добавление файлов из папки по заданным расширениям http://www.programmersforum.ru/attac...4&d=1188456458

[Stilet]

Memories, можно воспользоваться компонентом FileListBox, натравив его на нужную папку, и он покажет тебе все файлы в ней, а далее в цикле выбирай, если конечно тебе не нужно искать во вложенных папках

[_SERGEYX_]

... а лучше установи маленький компонентик FindFile... вот здесь у меня лежит. Там есть критерии поиска: атрибуты, содержание, размер, дата создания... и т.п. Вообще ничего писать не надо...

[Memories]

хорошо. А как мне найти все файлы одного расширения в опреленной папке?

[Alar]

Memories, вам сюда - http://www.programmersclub.ru/lab

[Memories]

Большое спасибо!!!