Top Ad unit 728 fff 90

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

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

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

 

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;

All Rights Reserved by ProcessPlus 2014 - 2018

Написать нам

Имя

Email *

Сообщение *