Удаление файлов с расширением *.tmp

[maxi_mum]

Всем здравствуйте. Вобщем есть программа, которая может проверять и просматривать почту. После просмотра она создает файлы *.tmp в своей директории. Нужно с помощью одной кнопки удалить все файлы *.tmp. Как это можно сделать?

[Stilet]

Ну например создать bat файл в котором прописать ченить типа del *.tmp
Или через FindFirst...Next получать список й удалять DeleteFile

[maxi_mum]

Сообщение от Stilet

Ну например создать bat файл в котором прописать ченить типа del *.tmp
Или через FindFirst...Next получать список й удалять DeleteFile

А можно пожалуйста по подробнее про FindFirst...Next, и хотя бы не большой кусочек кода?

[VadEr]

var
  FileName :TSearchRec;
  r :integer;
begin
r := FindFirst('*.tmp',faAnyFile,FileName);
if r = 0 then DeleteFile(FileName.Name);
while (FindNext(FileName) = 0) do
        DeleteFile(FileName.Name);
end;

From Stilet: Код оформляй тегом специальным

[maxi_mum]

Спасибо! Все работает.