Поиск всех файлов в папке программы

Функция возвращает список файлов в папке программы.

Пример использования:

memo1.lines:=SearchAllFilesInHomeDir('*.*');

function SearchAllFilesInHomeDir(mask:string):TStringList;

var

return:TStringList; searchResult:TSearchRec; begin return:=TStringList.Create();

if FindFirst(mask,faAnyFile,searchResult) = 0

then begin

repeat

return.Add(searchResult.Name);

until FindNext(searchResult)<>0; FindClose(searchResult); result:=return; end; end;